hg/stx-libcomp: ObjFHandle.st@a469695d8d19 (annotated)

141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	1	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	3	All Rights Reserved
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	4
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	5	This software is furnished under a license and may be used
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	6	only in accordance with the terms of that license and with the
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	7	inclusion of the above copyright notice. This software may not
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	8	be provided or otherwise made available to, or used by, any
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	9	other person. No title to or ownership of the software is
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	10	hereby transferred.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	11	"
114 ead0d3d79384 . claus parents: diff changeset	12
ead0d3d79384 . claus parents: diff changeset	13	Object subclass:#ObjectFileHandle
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	14	instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	15	weakClassRefs'
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	16	classVariableNames:''
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	17	poolDictionaries:''
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	18	category:'System-Compiler'
120 13f0112a469a . claus parents: 114 diff changeset	19	!
13f0112a469a . claus parents: 114 diff changeset	20
13f0112a469a . claus parents: 114 diff changeset	21	!ObjectFileHandle class methodsFor:'documentation'!
13f0112a469a . claus parents: 114 diff changeset	22
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	23	copyright
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	24	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	25	COPYRIGHT (c) 1995 by Claus Gittinger
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	26	All Rights Reserved
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	27
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	28	This software is furnished under a license and may be used
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	29	only in accordance with the terms of that license and with the
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	30	inclusion of the above copyright notice. This software may not
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	31	be provided or otherwise made available to, or used by, any
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	32	other person. No title to or ownership of the software is
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	33	hereby transferred.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	34	"
114 ead0d3d79384 . claus parents: diff changeset	35	!
ead0d3d79384 . claus parents: diff changeset	36
120 13f0112a469a . claus parents: 114 diff changeset	37	documentation
13f0112a469a . claus parents: 114 diff changeset	38	"
123 62dec1f5860e . claus parents: 122 diff changeset	39	not for public use - used by ObjectFileLoader to keep track of loaded modules,
62dec1f5860e . claus parents: 122 diff changeset	40	associating objectFile names and moduleIDs to classes/methods.
120 13f0112a469a . claus parents: 114 diff changeset	41	"
114 ead0d3d79384 . claus parents: diff changeset	42
120 13f0112a469a . claus parents: 114 diff changeset	43	"Created: 14.9.1995 / 21:10:55 / claus"
13f0112a469a . claus parents: 114 diff changeset	44	!
114 ead0d3d79384 . claus parents: diff changeset	45
120 13f0112a469a . claus parents: 114 diff changeset	46	history
13f0112a469a . claus parents: 114 diff changeset	47
13f0112a469a . claus parents: 114 diff changeset	48	"Created: 14.9.1995 / 21:10:55 / claus"
13f0112a469a . claus parents: 114 diff changeset	49	"Modified: 14.9.1995 / 21:10:55 / claus"
114 ead0d3d79384 . claus parents: diff changeset	50	! !
ead0d3d79384 . claus parents: diff changeset	51
ead0d3d79384 . claus parents: diff changeset	52	!ObjectFileHandle methodsFor:'accessing'!
ead0d3d79384 . claus parents: diff changeset	53
122 d174a54ad291 . claus parents: 120 diff changeset	54	classes
d174a54ad291 . claus parents: 120 diff changeset	55	"return the classes"
d174a54ad291 . claus parents: 120 diff changeset	56
125 5c5f62d4d89d . Claus Gittinger <cg@exept.de> parents: 123 diff changeset	57	weakClassRefs isNil ifTrue:[^nil].
122 d174a54ad291 . claus parents: 120 diff changeset	58	^ weakClassRefs asArray
d174a54ad291 . claus parents: 120 diff changeset	59
d174a54ad291 . claus parents: 120 diff changeset	60	"Created: 14.9.1995 / 21:13:13 / claus"
d174a54ad291 . claus parents: 120 diff changeset	61	!
d174a54ad291 . claus parents: 120 diff changeset	62
d174a54ad291 . claus parents: 120 diff changeset	63	classes:aCollectionOfClasses
d174a54ad291 . claus parents: 120 diff changeset	64	"set the classes collection"
d174a54ad291 . claus parents: 120 diff changeset	65
d174a54ad291 . claus parents: 120 diff changeset	66	weakClassRefs := WeakArray withAll:aCollectionOfClasses.
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	67	weakClassRefs addDependent:self.
122 d174a54ad291 . claus parents: 120 diff changeset	68	handleType := #classLibraryObject
d174a54ad291 . claus parents: 120 diff changeset	69
d174a54ad291 . claus parents: 120 diff changeset	70	"Created: 14.9.1995 / 21:13:13 / claus"
d174a54ad291 . claus parents: 120 diff changeset	71	!
d174a54ad291 . claus parents: 120 diff changeset	72
120 13f0112a469a . claus parents: 114 diff changeset	73	method
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	74	"return the method"
120 13f0112a469a . claus parents: 114 diff changeset	75
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	76	weakMethodRef isNil ifTrue:[^ nil].
120 13f0112a469a . claus parents: 114 diff changeset	77	^ weakMethodRef at:1
13f0112a469a . claus parents: 114 diff changeset	78
13f0112a469a . claus parents: 114 diff changeset	79	"Created: 14.9.1995 / 21:13:13 / claus"
13f0112a469a . claus parents: 114 diff changeset	80	!
13f0112a469a . claus parents: 114 diff changeset	81
13f0112a469a . claus parents: 114 diff changeset	82	method:something
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	83	"set the method"
120 13f0112a469a . claus parents: 114 diff changeset	84
13f0112a469a . claus parents: 114 diff changeset	85	weakMethodRef := WeakArray with:something.
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	86	weakMethodRef addDependent:self.
122 d174a54ad291 . claus parents: 120 diff changeset	87	handleType := #methodObject.
120 13f0112a469a . claus parents: 114 diff changeset	88
13f0112a469a . claus parents: 114 diff changeset	89	"Created: 14.9.1995 / 21:13:13 / claus"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	90	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	91
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	92	moduleID
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	93	"return moduleID"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	94
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	95	^ moduleID
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	96
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	97	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	98	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	99
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	100	moduleID:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	101	"set moduleID"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	102
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	103	moduleID := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	104
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	105	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	106	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	107
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	108	pathName
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	109	"return pathName"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	110
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	111	^ pathName
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	112
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	113	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	114	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	115
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	116	pathName:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	117	"set pathName"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	118
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	119	pathName := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	120
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	121	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	122	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	123
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	124	sysHandle1
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	125	"return sysHandle1"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	126
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	127	^ sysHandle1
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	128
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	129	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	130	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	131
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	132	sysHandle1:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	133	"set sysHandle1"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	134
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	135	sysHandle1 := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	136
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	137	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	138	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	139
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	140	sysHandle2
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	141	"return sysHandle2"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	142
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	143	^ sysHandle2
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	144
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	145	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	146	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	147
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	148	sysHandle2:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	149	"set sysHandle2"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	150
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	151	sysHandle2 := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	152
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	153	"Created: 14.9.1995 / 21:13:12 / claus"
114 ead0d3d79384 . claus parents: diff changeset	154	! !
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	155
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	156	!ObjectFileHandle methodsFor:'change & update'!
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	157
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	158	update:something with:aParameter from:changedObject
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	159	"my method/class object was collected - unload the underlying objectfile"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	160
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	161	self isObsolete ifTrue:[
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	162	('OBJFLOADER: unloading ' , pathName , ' (method/classes were garbageCollected)') infoPrintNL.
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	163	ObjectFileLoader unloadObjectFile:pathName
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	164	].
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	165
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	166	"Created: 5.12.1995 / 18:05:08 / cg"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	167	! !
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	168
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	169	!ObjectFileHandle methodsFor:'copying'!
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	170
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	171	postCopy
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	172	"flush module handles of the copy"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	173
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	174	sysHandle1 := sysHandle2 := moduleID := nil
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	175
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	176	"Created: 5.12.1995 / 21:10:49 / cg"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	177	"Modified: 25.4.1996 / 09:43:53 / cg"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	178	! !
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	179
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	180	!ObjectFileHandle methodsFor:'printing'!
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	181
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	182	printOn:aStream
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	183	"append a printed representation of the receiver to aStream"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	184
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	185	aStream nextPutAll:self class name; nextPutAll:'(handle=<'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	186	sysHandle1 printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	187	aStream nextPutAll:' '.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	188	sysHandle2 printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	189	aStream nextPutAll:'> path='''.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	190	pathName printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	191	aStream nextPutAll:''' id='.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	192	moduleID printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	193	aStream nextPutAll:' type='.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	194	handleType printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	195	aStream nextPutAll:' method=<'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	196	self method printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	197	aStream nextPutAll:'> classes=<'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	198	self classes printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	199	aStream nextPutAll:'>'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	200
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	201	aStream nextPutAll:')'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	202
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	203	"Modified: 25.4.1996 / 09:44:08 / cg"
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	204	! !
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	205
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	206	!ObjectFileHandle methodsFor:'queries'!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	207
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	208	isClassLibHandle
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	209	"return true, if I am a handle for a class library"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	210
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	211	^ handleType == #classLibraryObject
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	212	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	213
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	214	isForCollectedObject
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	215	"return true, if my clases/method has already been garbage collected"
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	216
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	217	handleType == #classLibraryObject ifTrue:[
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	218	^ (weakClassRefs findFirst:[:x \| x notNil]) == 0
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	219	].
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	220	handleType == #methodObject ifTrue:[
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	221	^ (weakMethodRef at:1) isNil
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	222	].
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	223	^ false
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	224
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	225	"Created: 6.12.1995 / 17:46:58 / cg"
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	226	!
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	227
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	228	isMethodHandle
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	229	"return true, if I am a handle for a single compiled method"
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	230
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	231	^ handleType == #methodObject
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	232	!
a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	233
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	234	isObsolete
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	235	"return true, if my clases/method has already been removed from
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	236	the image. I.e. if the object file can be unloaded without danger."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	237
154 04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	238	moduleID notNil ifTrue:[
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	239	handleType == #classLibraryObject ifTrue:[
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	240	^ (weakClassRefs findFirst:[:x \| x notNil]) == 0
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	241	].
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	242	handleType == #methodObject ifTrue:[
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	243	^ (weakMethodRef at:1) isNil
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	244	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	245	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	246	^ false
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	247	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	248
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	249	!ObjectFileHandle class methodsFor:'documentation'!
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	250
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	251	version
259 a469695d8d19 commentary Claus Gittinger <cg@exept.de> parents: 157 diff changeset	252	^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.13 1996-04-25 07:52:57 cg Exp $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	253	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 25 Apr 1996 09:53:22 +0200
changeset 259	a469695d8d19
parent 157	d7f68808a258
child 263	3b21d0991eff
permissions	-rw-r--r--