Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added a reference to some VM symbols (in case libwidg/libtool is not
authorClaus Gittinger <cg@exept.de>
Mon, 14 Oct 1996 15:29:47 +0200
changeset 1729 48196b43bb18
parent 1728 827231681803
child 1730 e668db8cbae0
added a reference to some VM symbols (in case libwidg/libtool is not linked into the system)
ObjMem.st file | annotate | diff | comparison | revisions
ObjectMemory.st file | annotate | diff | comparison | revisions 
--- a/ObjMem.st	Mon Oct 14 12:12:00 1996 +0200
+++ b/ObjMem.st	Mon Oct 14 15:29:47 1996 +0200
@@ -24,7 +24,7 @@
 		FreeSpaceGCLimit FreeSpaceGCAmount BackgroundCollectProcess
 		BackgroundFinalizationProcess FinalizationSemaphore Dependents
 		ImageName ImageSaveTime ChangeFileName MaxInterruptLatency
-		InterruptLatencyGoal'
+		InterruptLatencyGoal VMSelectors'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -606,7 +606,18 @@
     DisposeInterruptHandler := self.
     IncrementalGCLimit := 500000.
     FreeSpaceGCLimit := FreeSpaceGCAmount := nil.
-    MemoryInterruptHandler := self
+    MemoryInterruptHandler := self.
+
+    VMSelectors := #( #noByteCode #invalidCodeObject #invalidByteCode #invalidInstruction
+		      #tooManyArguments #badLiteralTable #receiverNotBoolean: #typeCheckError
+		      #integerCheckError #wrongNumberOfArguments: #privateMethodCalled
+		      #doesNotUnderstand: #invalidReturn: #invalidReturnOrRestart:
+		      #userInterrupt #internalError: #spyInterrupt #timerInterrupt #stepInterrupt
+		      #errorInterrupt:with: #disposeInterrupt #recursionInterrupt
+		      #memoryInterrupt #fpExceptionInterrupt #signalInterrupt: #childSignalInterrupt
+		      #ioInterrupt #customInterrupt #schedulerInterrupt #contextInterrupt
+	 	      #interruptLatency:receiver:class:selector:vmActivity:id:).
+
 ! !
 
 !ObjectMemory  class methodsFor:'ST-80 compatibility'!
@@ -3535,6 +3546,6 @@
 !ObjectMemory  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.111 1996-10-09 16:37:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.112 1996-10-14 13:29:47 cg Exp $'
 ! !
 ObjectMemory initialize!
--- a/ObjectMemory.st	Mon Oct 14 12:12:00 1996 +0200
+++ b/ObjectMemory.st	Mon Oct 14 15:29:47 1996 +0200
@@ -24,7 +24,7 @@
 		FreeSpaceGCLimit FreeSpaceGCAmount BackgroundCollectProcess
 		BackgroundFinalizationProcess FinalizationSemaphore Dependents
 		ImageName ImageSaveTime ChangeFileName MaxInterruptLatency
-		InterruptLatencyGoal'
+		InterruptLatencyGoal VMSelectors'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -606,7 +606,18 @@
     DisposeInterruptHandler := self.
     IncrementalGCLimit := 500000.
     FreeSpaceGCLimit := FreeSpaceGCAmount := nil.
-    MemoryInterruptHandler := self
+    MemoryInterruptHandler := self.
+
+    VMSelectors := #( #noByteCode #invalidCodeObject #invalidByteCode #invalidInstruction
+		      #tooManyArguments #badLiteralTable #receiverNotBoolean: #typeCheckError
+		      #integerCheckError #wrongNumberOfArguments: #privateMethodCalled
+		      #doesNotUnderstand: #invalidReturn: #invalidReturnOrRestart:
+		      #userInterrupt #internalError: #spyInterrupt #timerInterrupt #stepInterrupt
+		      #errorInterrupt:with: #disposeInterrupt #recursionInterrupt
+		      #memoryInterrupt #fpExceptionInterrupt #signalInterrupt: #childSignalInterrupt
+		      #ioInterrupt #customInterrupt #schedulerInterrupt #contextInterrupt
+	 	      #interruptLatency:receiver:class:selector:vmActivity:id:).
+
 ! !
 
 !ObjectMemory  class methodsFor:'ST-80 compatibility'!
@@ -3535,6 +3546,6 @@
 !ObjectMemory  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.111 1996-10-09 16:37:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.112 1996-10-14 13:29:47 cg Exp $'
 ! !
 ObjectMemory initialize!
hg/stx-libbasic