From 056068abd228fefab4951a61700aa6d54fb88287 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Tue, 29 Jan 2013 09:10:29 +0000
Subject: Ported to Coq 8.4pl1.  Merge of branches/coq-8.4.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2101 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 backend/CMparser.mly | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

(limited to 'backend/CMparser.mly')

diff --git a/backend/CMparser.mly b/backend/CMparser.mly
index ff77c03b..eb3b9ab9 100644
--- a/backend/CMparser.mly
+++ b/backend/CMparser.mly
@@ -19,8 +19,7 @@
 %{
 open Datatypes
 open Camlcoq
-open BinPos
-open BinInt
+open BinNums
 open Integers
 open AST
 open Cminor
@@ -45,16 +44,16 @@ let mkef sg toks =
       EF_vstore c
   | [EFT_tok "volatile"; EFT_tok "load"; EFT_chunk c; 
      EFT_tok "global"; EFT_string s; EFT_int n] ->
-      EF_vload_global(c, intern_string s, z_of_camlint n)
+      EF_vload_global(c, intern_string s, coqint_of_camlint n)
   | [EFT_tok "volatile"; EFT_tok "store"; EFT_chunk c; 
      EFT_tok "global"; EFT_string s; EFT_int n] ->
-      EF_vstore_global(c, intern_string s, z_of_camlint n)
+      EF_vstore_global(c, intern_string s, coqint_of_camlint n)
   | [EFT_tok "malloc"] ->
       EF_malloc
   | [EFT_tok "free"] ->
       EF_free
   | [EFT_tok "memcpy"; EFT_tok "size"; EFT_int sz; EFT_tok "align"; EFT_int al] ->
-      EF_memcpy(z_of_camlint sz, z_of_camlint al)
+      EF_memcpy(Z.of_sint32 sz, Z.of_sint32 al)
   | [EFT_tok "annot"; EFT_string txt] ->
       EF_annot(intern_string txt, sg.sig_args)
   | [EFT_tok "annot_val"; EFT_string txt] ->
@@ -183,7 +182,7 @@ let mkwhile expr body =
 let intconst n =
   Rconst(Ointconst(coqint_of_camlint n))
 
-let exitnum n = nat_of_camlint n
+let exitnum n = Nat.of_int32 n
 
 let mkswitch expr (cases, dfl) =
   convert_accu := [];
@@ -211,25 +210,25 @@ let mkswitch expr (cases, dfl) =
 ***)
 
 let mkmatch_aux expr cases =
-  let ncases = Int32.of_int (List.length cases) in
+  let ncases = List.length cases in
   let rec mktable n = function
     | [] -> assert false
     | [key, action] -> []
     | (key, action) :: rem ->
-        (coqint_of_camlint key, nat_of_camlint n)
-        :: mktable (Int32.succ n) rem in
+        (coqint_of_camlint key, Nat.of_int n)
+        :: mktable (n + 1) rem in
   let sw =
-    Sswitch(expr, mktable 0l cases, nat_of_camlint (Int32.pred ncases)) in
+    Sswitch(expr, mktable 0 cases, Nat.of_int (ncases - 1)) in
   let rec mkblocks body n = function
     | [] -> assert false
     | [key, action] ->
         Sblock(Sseq(body, action))
     | (key, action) :: rem ->
         mkblocks
-          (Sblock(Sseq(body, Sseq(action, Sexit (nat_of_camlint n)))))
-          (Int32.pred n)
+          (Sblock(Sseq(body, Sseq(action, Sexit (Nat.of_int n)))))
+          (n - 1)
           rem in
-  mkblocks (Sblock sw) (Int32.pred ncases) cases
+  mkblocks (Sblock sw) (ncases - 1) cases
 
 let mkmatch expr cases =
   convert_accu := [];
@@ -377,7 +376,7 @@ global_declaration:
       { $1 }
   | VAR STRINGLIT LBRACKET INTLIT RBRACKET  /* old style */
       { (intern_string $2,
-         Gvar{gvar_info = (); gvar_init = [Init_space(z_of_camlint $4)];
+         Gvar{gvar_info = (); gvar_init = [Init_space(Z.of_sint32 $4)];
               gvar_readonly = false; gvar_volatile = false}) }
   | VAR STRINGLIT is_readonly is_volatile LBRACE init_data_list RBRACE
        { (intern_string $2,
@@ -413,7 +412,7 @@ init_data:
    | FLOAT64 FLOATLIT                            { Init_float64 (coqfloat_of_camlfloat $2) }
    | FLOAT FLOATLIT                              { Init_float64 (coqfloat_of_camlfloat $2) }
    | FLOATLIT                                    { Init_float64 (coqfloat_of_camlfloat $1) }
-   | LBRACKET INTLIT RBRACKET                    { Init_space (z_of_camlint $2) }
+   | LBRACKET INTLIT RBRACKET                    { Init_space (Z.of_sint32 $2) }
    | INTLIT LPAREN STRINGLIT RPAREN              { Init_addrof (intern_string $3, coqint_of_camlint $1) }
  ;
  
@@ -462,7 +461,7 @@ parameter_list:
 
 stack_declaration:
     /* empty */                                 { Z0 }
-  | STACK INTLIT SEMICOLON                      { z_of_camlint $2 }
+  | STACK INTLIT SEMICOLON                      { Z.of_sint32 $2 }
 ;
 
 var_declarations:
-- 
cgit