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/csymtable.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/csymtable.ml')
| -rw-r--r-- | kernel/csymtable.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index 58a5bf327..145ca27d2 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -102,7 +102,7 @@ let slot_for_str_cst key = let slot_for_annot key = try Hashtbl.find annot_tbl key with Not_found -> - let n = set_global (Obj.magic key) in + let n = set_global (val_of_annot_switch key) in Hashtbl.add annot_tbl key n; n |