X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_mips_frame.ml;fp=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_mips_frame.ml;h=4131702eb9ddeb7617168b7f08c6bd6bc087c49c;hp=99918d5203c45428fb7873ddac43618baa0d14bf;hb=68e4b4a947a95a965381457c2dc80bef05f8f58a;hpb=cc540a7e2dfcee4411953075210a64de874b91e5

diff --git a/compiler/src/lib/tiger/tiger_mips_frame.ml b/compiler/src/lib/tiger/tiger_mips_frame.ml
index 99918d5..4131702 100644
--- a/compiler/src/lib/tiger/tiger_mips_frame.ml
+++ b/compiler/src/lib/tiger/tiger_mips_frame.ml
@@ -19,6 +19,10 @@ type t =
   ; instructions : unit  (* TODO: instructions for view shift *)
   }
 
+let word_size_bits  = 32
+let word_size_bytes = word_size_bits / 8
+let word_size       = word_size_bytes
+
 let name {name; _} =
   name