--- a/ObjectFileHandle.st Wed Apr 24 13:34:02 1996 +0200
+++ b/ObjectFileHandle.st Thu Apr 25 09:53:22 1996 +0200
@@ -11,11 +11,11 @@
"
Object subclass:#ObjectFileHandle
- instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef
+ instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef
weakClassRefs'
- classVariableNames:''
- poolDictionaries:''
- category:'System-Compiler'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Compiler'
!
!ObjectFileHandle class methodsFor:'documentation'!
@@ -49,27 +49,6 @@
"Modified: 14.9.1995 / 21:10:55 / claus"
! !
-!ObjectFileHandle methodsFor:'copying'!
-
-postCopy
- sysHandle1 := sysHandle2 := moduleID := nil
-
- "Created: 5.12.1995 / 21:10:49 / cg"
-! !
-
-!ObjectFileHandle methodsFor:'change & update'!
-
-update:something with:aParameter from:changedObject
- "my method/class object was collected - unload the underlying objectfile"
-
- self isObsolete ifTrue:[
- ('OBJFLOADER: unloading ' , pathName , ' (method/classes were garbageCollected)') infoPrintNL.
- ObjectFileLoader unloadObjectFile:pathName
- ].
-
- "Created: 5.12.1995 / 18:05:08 / cg"
-! !
-
!ObjectFileHandle methodsFor:'accessing'!
classes
@@ -174,9 +153,35 @@
"Created: 14.9.1995 / 21:13:12 / claus"
! !
+!ObjectFileHandle methodsFor:'change & update'!
+
+update:something with:aParameter from:changedObject
+ "my method/class object was collected - unload the underlying objectfile"
+
+ self isObsolete ifTrue:[
+ ('OBJFLOADER: unloading ' , pathName , ' (method/classes were garbageCollected)') infoPrintNL.
+ ObjectFileLoader unloadObjectFile:pathName
+ ].
+
+ "Created: 5.12.1995 / 18:05:08 / cg"
+! !
+
+!ObjectFileHandle methodsFor:'copying'!
+
+postCopy
+ "flush module handles of the copy"
+
+ sysHandle1 := sysHandle2 := moduleID := nil
+
+ "Created: 5.12.1995 / 21:10:49 / cg"
+ "Modified: 25.4.1996 / 09:43:53 / cg"
+! !
+
!ObjectFileHandle methodsFor:'printing'!
printOn:aStream
+ "append a printed representation of the receiver to aStream"
+
aStream nextPutAll:self class name; nextPutAll:'(handle=<'.
sysHandle1 printOn:aStream.
aStream nextPutAll:' '.
@@ -195,7 +200,7 @@
aStream nextPutAll:')'.
- "Modified: 6.12.1995 / 18:11:53 / cg"
+ "Modified: 25.4.1996 / 09:44:08 / cg"
! !
!ObjectFileHandle methodsFor:'queries'!
@@ -206,12 +211,6 @@
^ handleType == #classLibraryObject
!
-isMethodHandle
- "return true, if I am a handle for a single compiled method"
-
- ^ handleType == #methodObject
-!
-
isForCollectedObject
"return true, if my clases/method has already been garbage collected"
@@ -226,6 +225,12 @@
"Created: 6.12.1995 / 17:46:58 / cg"
!
+isMethodHandle
+ "return true, if I am a handle for a single compiled method"
+
+ ^ handleType == #methodObject
+!
+
isObsolete
"return true, if my clases/method has already been removed from
the image. I.e. if the object file can be unloaded without danger."
@@ -244,5 +249,5 @@
!ObjectFileHandle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.12 1995-12-06 17:23:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.13 1996-04-25 07:52:57 cg Exp $'
! !