Support for 64-bit architectures: generic support

- Introduce Archi.ptr64 parameter.
- Define module Ptrofs of integers as wide as a pointer (64 if Archi.ptr64, 32 otherwise).
- Use Ptrofs.int as the offset type for Vptr values and anywhere pointer offsets are manipulated.
- Modify Val operations that handle pointers (e.g. Val.add, Val.sub, Val.cmpu) so that in 64-bit pointer mode it is the "long" operation (e.g. Val.addl, Val.subl, Val.cmplu) that handles pointers.
- Update the memory model accordingly.
- Modify C operations that handle pointers (e.g. addition, subtraction, comparisons) accordingly.
- Make it possible to turn off the splitting of 64-bit integers into pairs of 32-bit integers.
- Update the compiler front-end and back-end accordingly.

1 files changed, 1 insertions, 11 deletions

diff --git a/backend/Constprop.v b/backend/Constprop.v
index 4de80b7a..151f8418 100644
--- a/backend/Constprop.v
+++ b/backend/Constprop.v
@@ -56,22 +56,12 @@ Definition transf_ros (ae: AE.t) (ros: reg + ident) : reg + ident :=
   match ros with
   | inl r =>
       match areg ae r with
-      | Ptr(Gl symb ofs) => if Int.eq ofs Int.zero then inr _ symb else ros
+      | Ptr(Gl symb ofs) => if Ptrofs.eq ofs Ptrofs.zero then inr _ symb else ros
       | _ => ros
       end
   | inr s => ros
   end.
 
-Definition const_for_result (a: aval) : option operation :=
-  match a with
-  | I n => Some(Ointconst n)
-  | F n => if Compopts.generate_float_constants tt then Some(Ofloatconst n) else None
-  | FS n => if Compopts.generate_float_constants tt then Some(Osingleconst n) else None
-  | Ptr(Gl symb ofs) => Some(Oaddrsymbol symb ofs)
-  | Ptr(Stk ofs) => Some(Oaddrstack ofs)
-  | _ => None
-  end.
-
 Fixpoint successor_rec (n: nat) (f: function) (ae: AE.t) (pc: node) : node :=
   match n with
   | O => pc