From 6236435d136f73502beb0a9a17c14fa4864fc29c Mon Sep 17 00:00:00 2001 From: bgregoir Date: Fri, 25 Aug 2006 08:03:58 +0000 Subject: correction bug vm_compute git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9083 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/vm.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'kernel/vm.ml') diff --git a/kernel/vm.ml b/kernel/vm.ml index 8fd8af74e..de9bd753a 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -368,7 +368,7 @@ let decompose_vfun2 k vf1 vf2 = let first o = (offset_closure o (offset o)) let last o = (Obj.field o (Obj.size o - 1)) -let current_fix vf = offset (Obj.repr vf) / 2 +let current_fix vf = - (offset (Obj.repr vf) / 2) let unsafe_fb_code fb i = tcode_of_obj (Obj.field (Obj.repr fb) (2 * i)) -- cgit v1.2.3