diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-11-12 13:42:22 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-11-12 13:42:22 +0000 |
| commit | ce4951549999f403446415c135ad1403a16a15c3 (patch) | |
| tree | cac9bbb2fea29fce331916b277c38ed8fe29e471 /backend/Lineartyping.v | |
| parent | dcb9f48f51cec5e864565862a700c27df2a1a7e6 (diff) | |
| download | compcert-kvx-ce4951549999f403446415c135ad1403a16a15c3.tar.gz compcert-kvx-ce4951549999f403446415c135ad1403a16a15c3.zip | |
Globalenvs: allocate one-byte block with permissions Nonempty for each
function definition, so that comparisons between function pointers
are correctly defined.
AST, Globalenvs, and many other files:
represent programs as a list of (function or variable) definitions
instead of two lists, one for functions and the other for variables.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2067 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Lineartyping.v')
| -rw-r--r-- | backend/Lineartyping.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Lineartyping.v b/backend/Lineartyping.v index 3930da32..da73b00b 100644 --- a/backend/Lineartyping.v +++ b/backend/Lineartyping.v @@ -133,7 +133,7 @@ Inductive wt_fundef: fundef -> Prop := wt_fundef (Internal f). Definition wt_program (p: program) : Prop := - forall i f, In (i, f) (prog_funct p) -> wt_fundef f. + forall i f, In (i, Gfun f) (prog_defs p) -> wt_fundef f. (** Typing the run-time state. These definitions are used in [Stackingproof]. *) |