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, 4 insertions, 4 deletions

diff --git a/common/Determinism.v b/common/Determinism.v
index a813dd92..7fa01c2d 100644
--- a/common/Determinism.v
+++ b/common/Determinism.v
@@ -42,18 +42,18 @@ Require Import Behaviors.
 
 CoInductive world: Type :=
   World (io: string -> list eventval -> option (eventval * world))
-        (vload: memory_chunk -> ident -> int -> option (eventval * world))
-        (vstore: memory_chunk -> ident -> int -> eventval -> option world).
+        (vload: memory_chunk -> ident -> ptrofs -> option (eventval * world))
+        (vstore: memory_chunk -> ident -> ptrofs -> eventval -> option world).
 
 Definition nextworld_io (w: world) (evname: string) (evargs: list eventval) :
                      option (eventval * world) :=
   match w with World io vl vs => io evname evargs end.
 
-Definition nextworld_vload (w: world) (chunk: memory_chunk) (id: ident) (ofs: int) :
+Definition nextworld_vload (w: world) (chunk: memory_chunk) (id: ident) (ofs: ptrofs) :
                      option (eventval * world) :=
   match w with World io vl vs => vl chunk id ofs end.
 
-Definition nextworld_vstore (w: world) (chunk: memory_chunk) (id: ident) (ofs: int) (v: eventval):
+Definition nextworld_vstore (w: world) (chunk: memory_chunk) (id: ident) (ofs: ptrofs) (v: eventval):
                      option world :=
   match w with World io vl vs => vs chunk id ofs v end.