Fix bug: object managment: tag of GETPUBMET instruction.

Re-generate distribution.
bvaugon · Dec 31, 2012 · 72b880e · 72b880e
1 parent 1f7f7c4
commit 72b880e
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/dist/ocamlcc-1.0.tar.bz2 b/dist/ocamlcc-1.0.tar.bz2
diff --git a/src/codegen/mcprinter.ml b/src/codegen/mcprinter.ml
@@ -241,7 +241,7 @@ and print_macro oc macro =
       fprintf oc "GETMETHOD(%a, %a, %a)" print_expr tag print_expr obj
         print_lvalue meth
     | GETPUBMET (tag, obj, meth) ->
-      fprintf oc "GETPUBMET(%d, %a, %a)" tag print_expr obj
+      fprintf oc "GETPUBMET(Val_int(%d), %a, %a)" tag print_expr obj
         print_lvalue meth
     | GETDYNMET (tag, obj, meth) ->
       fprintf oc "GETDYNMET(%a, %a, %a)" print_expr tag print_expr obj