diff options
Diffstat (limited to 'cfrontend/Clight.v')
-rw-r--r-- | cfrontend/Clight.v | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/cfrontend/Clight.v b/cfrontend/Clight.v index 59c056d6..f2ba2405 100644 --- a/cfrontend/Clight.v +++ b/cfrontend/Clight.v @@ -335,19 +335,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. - (** ** Evaluation of expressions *) Section EXPR. @@ -402,7 +389,6 @@ with eval_lvalue: expr -> block -> int -> Prop := | eval_Evar_global: forall id l ty, e!id = None -> Genv.find_symbol ge id = Some l -> - type_of_global l = Some ty -> eval_lvalue (Evar id ty) l Int.zero | eval_Ederef: forall a ty l ofs, eval_expr a (Vptr l ofs) -> |