diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-01 13:11:47 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-01 13:11:47 +0000 |
commit | 6e22698aa7b463bb0a45c8eed84a0e8cb2476fcf (patch) | |
tree | 9353a4d28597a3477ae7ddff1129bdabbc5a5295 /kernel/mod_subst.ml | |
parent | 172ed0c8c5c66f22b17e07de792da41c3d925b77 (diff) |
fixed bug 2580. Quick fix: copy emitcodes before patching it
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14376 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_subst.ml')
-rw-r--r-- | kernel/mod_subst.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index 6a7ecc442..bf08841c8 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -553,3 +553,8 @@ let subst_substituted s r = | LSlazy(s',a) -> ref (LSlazy(s::s',a)) +(* debug *) +let repr_substituted r = + match !r with + | LSval a -> None, a + | LSlazy(s,a) -> Some s, a |