diff options
author | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-13 16:45:22 +0000 |
---|---|---|
committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-13 16:45:22 +0000 |
commit | 600e73d2522599fd600ab717410254565d57236b (patch) | |
tree | 9d50909446214146f7b56adf12956ed165c92bc4 /kernel/vm.ml | |
parent | fe931c3c6b5f680af228549545e9ebe9ad920227 (diff) |
Move Obj.magic call to the Vm module
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12523 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/vm.ml')
-rw-r--r-- | kernel/vm.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/vm.ml b/kernel/vm.ml index 59681e8f1..338936250 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -343,6 +343,8 @@ let val_of_constant_def n c v = Obj.set_field res 1 (Obj.repr (Aiddef(ConstKey c, v))); val_of_obj res +external val_of_annot_switch : annot_switch -> values = "%identity" + let mkrel_vstack k arity = let max = k + arity - 1 in Array.init arity (fun i -> val_of_rel (max - i)) |