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 /arm/PrintAsm.ml | |
parent | 16e42ca83c3282ba7de830fb8a40623c6ac04dc7 (diff) | |
download | compcert-1e24932c5f5badcca3125b9c4c0df2ac113532bf.tar.gz compcert-1e24932c5f5badcca3125b9c4c0df2ac113532bf.zip |
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 'arm/PrintAsm.ml')
-rw-r--r-- | arm/PrintAsm.ml | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index 25d9db2e..64f8be2e 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -459,8 +459,6 @@ let print_fundef oc (Coq_pair(name, defn)) = (* Data *) -let init_data_queue = ref [] - let print_init oc = function | Init_int8 n -> fprintf oc " .byte %ld\n" (camlint_of_coqint n) @@ -481,23 +479,9 @@ let print_init oc = function if n > 0l then fprintf oc " .space %ld\n" n | Init_addrof(symb, ofs) -> fprintf oc " .word %a\n" print_symb_ofs (symb, ofs) - | Init_pointer id -> - let lbl = new_label() in - fprintf oc " .word .L%d\n" lbl; - init_data_queue := (lbl, id) :: !init_data_queue let print_init_data oc id = - init_data_queue := []; - List.iter (print_init oc) id; - let rec print_remainder () = - match !init_data_queue with - | [] -> () - | (lbl, id) :: rem -> - init_data_queue := rem; - fprintf oc ".L%d:\n" lbl; - List.iter (print_init oc) id; - print_remainder() - in print_remainder() + List.iter (print_init oc) id let print_var oc (Coq_pair(Coq_pair(name, init_data), _)) = match init_data with |