diff options
author | bgregoir <bgregoir@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-08-25 08:03:58 +0000 |
---|---|---|
committer | bgregoir <bgregoir@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-08-25 08:03:58 +0000 |
commit | 6236435d136f73502beb0a9a17c14fa4864fc29c (patch) | |
tree | 336990e49cdf89203849097a1ccc15603d6c98eb /kernel/vm.ml | |
parent | 479c522938fea2fdc4281123c3e0581551f955a8 (diff) |
correction bug vm_compute
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9083 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/vm.ml')
-rw-r--r-- | kernel/vm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |