remember just-in-time state in image
authorClaus Gittinger <cg@exept.de>
Fri, 08 Nov 1996 19:28:31 +0100
changeset 1939 214f42e29868
parent 1938 e1a56370a833
child 1940 6dabd5d2b75c
remember just-in-time state in image
ObjMem.st
ObjectMemory.st
--- a/ObjMem.st	Fri Nov 08 16:27:05 1996 +0100
+++ b/ObjMem.st	Fri Nov 08 19:28:31 1996 +0100
@@ -25,7 +25,7 @@
 		BackgroundFinalizationProcess FinalizationSemaphore Dependents
 		ImageName ImageSaveTime ChangeFileName MaxInterruptLatency
 		InterruptLatencyGoal VMSelectors DynamicCodeGCTrigger
-		DynamicCodeLimit'
+		DynamicCodeLimit JustInTimeCompilationEnabled'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -2667,6 +2667,10 @@
 justInTimeCompilation:aBoolean
     "enable/disable just-in-time-compilation. Returns the previous setting."
 
+    aBoolean notNil ifTrue:[
+        JustInTimeCompilationEnabled := aBoolean.
+    ].
+
 %{  /* NOCONTEXT */
     extern int __justInTimeCompilation();
     int prev;
@@ -3838,6 +3842,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.120 1996-11-07 18:54:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.121 1996-11-08 18:28:31 cg Exp $'
 ! !
 ObjectMemory initialize!
--- a/ObjectMemory.st	Fri Nov 08 16:27:05 1996 +0100
+++ b/ObjectMemory.st	Fri Nov 08 19:28:31 1996 +0100
@@ -25,7 +25,7 @@
 		BackgroundFinalizationProcess FinalizationSemaphore Dependents
 		ImageName ImageSaveTime ChangeFileName MaxInterruptLatency
 		InterruptLatencyGoal VMSelectors DynamicCodeGCTrigger
-		DynamicCodeLimit'
+		DynamicCodeLimit JustInTimeCompilationEnabled'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -2667,6 +2667,10 @@
 justInTimeCompilation:aBoolean
     "enable/disable just-in-time-compilation. Returns the previous setting."
 
+    aBoolean notNil ifTrue:[
+        JustInTimeCompilationEnabled := aBoolean.
+    ].
+
 %{  /* NOCONTEXT */
     extern int __justInTimeCompilation();
     int prev;
@@ -3838,6 +3842,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.120 1996-11-07 18:54:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.121 1996-11-08 18:28:31 cg Exp $'
 ! !
 ObjectMemory initialize!