diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-03-09 09:38:44 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-03-09 09:38:44 +0000 |
| commit | b6e17910ddf7874e2d6d02623414674a654f9fcc (patch) | |
| tree | 2f4c1a4da309e07cfa80535f63aef604150c519d /caml | |
| parent | a0a5ac6bdf9450a57c2306aeda4b4add980c79bd (diff) | |
Renommage List -> CList lors de l'extraction
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@8 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml')
| -rw-r--r-- | caml/Allocationaux.ml | 4 | ||||
| -rw-r--r-- | caml/CMparser.mly | 12 | ||||
| -rw-r--r-- | caml/Camlcoq.ml | 2 | ||||
| -rw-r--r-- | caml/PrintPPC.ml | 2 |
4 files changed, 10 insertions, 10 deletions
diff --git a/caml/Allocationaux.ml b/caml/Allocationaux.ml index 8e4f328..c682c3c 100644 --- a/caml/Allocationaux.ml +++ b/caml/Allocationaux.ml @@ -1,6 +1,6 @@ open Camlcoq open Datatypes -open List +open CList open AST open Locations @@ -36,4 +36,4 @@ let parallel_move_order lsrc ldst = for i = 0 to n - 1 do if status.(i) = To_move then move_one i done; - List.rev !moves + CList.rev !moves diff --git a/caml/CMparser.mly b/caml/CMparser.mly index 0b19bce..99e2a6c 100644 --- a/caml/CMparser.mly +++ b/caml/CMparser.mly @@ -2,7 +2,7 @@ %{ open Datatypes -open List +open CList open Camlcoq open BinPos open BinInt @@ -134,9 +134,9 @@ let orbool e1 e2 = prog: global_declarations proc_list EOF - { { prog_funct = List.rev $2; + { { prog_funct = CList.rev $2; prog_main = intern_string "main"; - prog_vars = List.rev $1; } } + prog_vars = CList.rev $1; } } ; global_declarations: @@ -164,8 +164,8 @@ proc: RBRACE { Coq_pair($1, { fn_sig = $6; - fn_params = List.rev $3; - fn_vars = List.rev $9; + fn_params = CList.rev $3; + fn_vars = CList.rev $9; fn_stackspace = $8; fn_body = $10 }) } ; @@ -196,7 +196,7 @@ stack_declaration: var_declarations: /* empty */ { Coq_nil } - | var_declarations var_declaration { List.app $2 $1 } + | var_declarations var_declaration { CList.app $2 $1 } ; var_declaration: diff --git a/caml/Camlcoq.ml b/caml/Camlcoq.ml index c3d9665..80ac5c0 100644 --- a/caml/Camlcoq.ml +++ b/caml/Camlcoq.ml @@ -1,7 +1,7 @@ (* Library of useful Caml <-> Coq conversions *) open Datatypes -open List +open CList open BinPos open BinInt diff --git a/caml/PrintPPC.ml b/caml/PrintPPC.ml index 3edcb2b..b9eb728 100644 --- a/caml/PrintPPC.ml +++ b/caml/PrintPPC.ml @@ -4,7 +4,7 @@ open Printf open Datatypes -open List +open CList open Camlcoq open AST open PPC |