summaryrefslogtreecommitdiff
path: root/backend/Mach.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Mach.v')
-rw-r--r--backend/Mach.v3
1 files changed, 0 insertions, 3 deletions
diff --git a/backend/Mach.v b/backend/Mach.v
index 5030de1..ec48195 100644
--- a/backend/Mach.v
+++ b/backend/Mach.v
@@ -123,9 +123,6 @@ value of the return address that the Asm code generated later will
store in the reserved location.
*)
-Definition chunk_of_type (ty: typ) :=
- match ty with Tint => Mint32 | Tfloat => Mfloat64al32 | Tlong => Mint64 end.
-
Definition load_stack (m: mem) (sp: val) (ty: typ) (ofs: int) :=
Mem.loadv (chunk_of_type ty) m (Val.add sp (Vint ofs)).