From f987a343850df4602b3d8020395834d22eb1aea3 Mon Sep 17 00:00:00 2001
From: gregoire
Date: Fri, 12 Nov 2004 16:40:39 +0000
Subject: Changement dans les boxed values .

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6295 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/cemitcodes.ml | 21 +--------------------
 1 file changed, 1 insertion(+), 20 deletions(-)

(limited to 'kernel/cemitcodes.ml')

diff --git a/kernel/cemitcodes.ml b/kernel/cemitcodes.ml
index ab1f00d110..4219491631 100644
--- a/kernel/cemitcodes.ml
+++ b/kernel/cemitcodes.ml
@@ -17,26 +17,7 @@ let patch_int buff pos n =
   String.unsafe_set buff (pos + 2) (Char.unsafe_chr (n asr 16));
   String.unsafe_set buff (pos + 3) (Char.unsafe_chr (n asr 24))
 
-let cGETGLOBALBOXED = Char.unsafe_chr opGETGLOBALBOXED
-let cGETGLOBAL = Char.unsafe_chr opGETGLOBAL
-
-let cPUSHGETGLOBALBOXED = Char.unsafe_chr opPUSHGETGLOBALBOXED
-let cPUSHGETGLOBAL = Char.unsafe_chr opPUSHGETGLOBAL
-
-let is_PUSHGET c =
- c = cPUSHGETGLOBAL || c = cPUSHGETGLOBALBOXED
-
-let patch_getglobal buff pos (boxed,n) =
- let posinstr = pos - 4 in
- let c = String.unsafe_get buff posinstr in
- begin match is_PUSHGET c, boxed with
- | true, true -> String.unsafe_set buff posinstr cPUSHGETGLOBALBOXED
- | true, false -> String.unsafe_set buff posinstr cPUSHGETGLOBAL
- | false, true -> String.unsafe_set buff posinstr cGETGLOBALBOXED
- | false,false -> String.unsafe_set buff posinstr cGETGLOBAL
- end;
- patch_int buff pos n
- 
+
 (* Buffering of bytecode *)
 
 let out_buffer = ref(String.create 1024)
-- 
cgit v1.2.3