diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 13:16:21 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 13:16:21 +0000 |
| commit | 1e24932c5f5badcca3125b9c4c0df2ac113532bf (patch) | |
| tree | 873c9d7dfb7da8ad2cfa9911252b2e2d782a4825 /common | |
| parent | 16e42ca83c3282ba7de830fb8a40623c6ac04dc7 (diff) | |
Suppressed Init_pointer, now useless. Improved printing of strings in generated .s
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1274 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'common')
| -rw-r--r-- | common/AST.v | 3 | ||||
| -rw-r--r-- | common/Mem.v | 4 |
2 files changed, 1 insertions, 6 deletions
diff --git a/common/AST.v b/common/AST.v index 13e84dd..2d20276 100644 --- a/common/AST.v +++ b/common/AST.v @@ -91,8 +91,7 @@ Inductive init_data: Type := | Init_float32: float -> init_data | Init_float64: float -> init_data | Init_space: Z -> init_data - | Init_addrof: ident -> int -> init_data (**r address of symbol + offset *) - | Init_pointer: list init_data -> init_data. + | Init_addrof: ident -> int -> init_data. (**r address of symbol + offset *) (** Whole programs consist of: - a collection of function definitions (name and description); diff --git a/common/Mem.v b/common/Mem.v index 6510828..252ee29 100644 --- a/common/Mem.v +++ b/common/Mem.v @@ -571,9 +571,6 @@ Fixpoint contents_init_data (pos: Z) (id: list init_data) {struct id}: contentma | Init_addrof s n :: id' => (* Not handled properly yet *) contents_init_data (pos + 4) id' - | Init_pointer x :: id' => - (* Not handled properly yet *) - contents_init_data (pos + 4) id' end. Definition size_init_data (id: init_data) : Z := @@ -585,7 +582,6 @@ Definition size_init_data (id: init_data) : Z := | Init_float64 _ => 8 | Init_space n => Zmax n 0 | Init_addrof _ _ => 4 - | Init_pointer _ => 4 end. Definition size_init_data_list (id: list init_data): Z := |