diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-02-20 09:52:30 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-02-20 09:52:30 +0000 |
| commit | 842190a7a7c85b15f663fdf299a1f015a774f416 (patch) | |
| tree | 70c467bf21255737f3b28b10972478896599c740 /cfrontend/Csem.v | |
| parent | 3ec022950ec233a2af418aacd1755fce4d701724 (diff) | |
| download | compcert-kvx-842190a7a7c85b15f663fdf299a1f015a774f416.tar.gz compcert-kvx-842190a7a7c85b15f663fdf299a1f015a774f416.zip | |
Remove useless checks on type_of_global in dynamic semantics
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2411 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/Csem.v')
| -rw-r--r-- | cfrontend/Csem.v | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/cfrontend/Csem.v b/cfrontend/Csem.v index 2eedbd84..5acf23f8 100644 --- a/cfrontend/Csem.v +++ b/cfrontend/Csem.v @@ -189,19 +189,6 @@ Section SEMANTICS. Variable ge: genv. -(** [type_of_global b] returns the type of the global variable or function - at address [b]. *) - -Definition type_of_global (b: block) : option type := - match Genv.find_var_info ge b with - | Some gv => Some gv.(gvar_info) - | None => - match Genv.find_funct_ptr ge b with - | Some fd => Some(type_of_fundef fd) - | None => None - end - end. - (** ** Reduction semantics for expressions *) Section EXPR. @@ -223,7 +210,6 @@ Inductive lred: expr -> mem -> expr -> mem -> Prop := | red_var_global: forall x ty m b, e!x = None -> Genv.find_symbol ge x = Some b -> - type_of_global b = Some ty -> lred (Evar x ty) m (Eloc b Int.zero ty) m | red_deref: forall b ofs ty1 ty m, |