hg/stx-libcomp: ObjectFileHandle.st@d7f68808a258 (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
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 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'
120 13f0112a469a . claus parents: 114 diff changeset	16	classVariableNames:''
13f0112a469a . claus parents: 114 diff changeset	17	poolDictionaries:''
13f0112a469a . claus parents: 114 diff changeset	18	category:'System-Compiler'
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
154 04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	52	!ObjectFileHandle methodsFor:'copying'!
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	53
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	54	postCopy
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	55	sysHandle1 := sysHandle2 := moduleID := nil
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	56
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	57	"Created: 5.12.1995 / 21:10:49 / cg"
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	58	! !
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	59
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	60	!ObjectFileHandle methodsFor:'change & update'!
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	61
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	62	update:something with:aParameter from:changedObject
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	63	"my method/class object was collected - unload the underlying objectfile"
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	64
152 d7c2314f393e selective unloading - thats better Claus Gittinger <cg@exept.de> parents: 151 diff changeset	65	self isObsolete ifTrue:[
d7c2314f393e selective unloading - thats better Claus Gittinger <cg@exept.de> parents: 151 diff changeset	66	('OBJFLOADER: unloading ' , pathName , ' (method/classes were garbageCollected)') infoPrintNL.
d7c2314f393e selective unloading - thats better Claus Gittinger <cg@exept.de> parents: 151 diff changeset	67	ObjectFileLoader unloadObjectFile:pathName
d7c2314f393e selective unloading - thats better Claus Gittinger <cg@exept.de> parents: 151 diff changeset	68	].
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	69
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	70	"Created: 5.12.1995 / 18:05:08 / cg"
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	71	! !
7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	72
114 ead0d3d79384 . claus parents: diff changeset	73	!ObjectFileHandle methodsFor:'accessing'!
ead0d3d79384 . claus parents: diff changeset	74
122 d174a54ad291 . claus parents: 120 diff changeset	75	classes
d174a54ad291 . claus parents: 120 diff changeset	76	"return the classes"
d174a54ad291 . claus parents: 120 diff changeset	77
125 5c5f62d4d89d . Claus Gittinger <cg@exept.de> parents: 123 diff changeset	78	weakClassRefs isNil ifTrue:[^nil].
122 d174a54ad291 . claus parents: 120 diff changeset	79	^ weakClassRefs asArray
d174a54ad291 . claus parents: 120 diff changeset	80
d174a54ad291 . claus parents: 120 diff changeset	81	"Created: 14.9.1995 / 21:13:13 / claus"
d174a54ad291 . claus parents: 120 diff changeset	82	!
d174a54ad291 . claus parents: 120 diff changeset	83
d174a54ad291 . claus parents: 120 diff changeset	84	classes:aCollectionOfClasses
d174a54ad291 . claus parents: 120 diff changeset	85	"set the classes collection"
d174a54ad291 . claus parents: 120 diff changeset	86
d174a54ad291 . claus parents: 120 diff changeset	87	weakClassRefs := WeakArray withAll:aCollectionOfClasses.
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	88	weakClassRefs addDependent:self.
122 d174a54ad291 . claus parents: 120 diff changeset	89	handleType := #classLibraryObject
d174a54ad291 . claus parents: 120 diff changeset	90
d174a54ad291 . claus parents: 120 diff changeset	91	"Created: 14.9.1995 / 21:13:13 / claus"
d174a54ad291 . claus parents: 120 diff changeset	92	!
d174a54ad291 . claus parents: 120 diff changeset	93
120 13f0112a469a . claus parents: 114 diff changeset	94	method
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	95	"return the method"
120 13f0112a469a . claus parents: 114 diff changeset	96
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	97	weakMethodRef isNil ifTrue:[^ nil].
120 13f0112a469a . claus parents: 114 diff changeset	98	^ weakMethodRef at:1
13f0112a469a . claus parents: 114 diff changeset	99
13f0112a469a . claus parents: 114 diff changeset	100	"Created: 14.9.1995 / 21:13:13 / claus"
13f0112a469a . claus parents: 114 diff changeset	101	!
13f0112a469a . claus parents: 114 diff changeset	102
13f0112a469a . claus parents: 114 diff changeset	103	method:something
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	104	"set the method"
120 13f0112a469a . claus parents: 114 diff changeset	105
13f0112a469a . claus parents: 114 diff changeset	106	weakMethodRef := WeakArray with:something.
151 7f46f760ba45 automatically unload modules for garbage collected methods/classes Claus Gittinger <cg@exept.de> parents: 148 diff changeset	107	weakMethodRef addDependent:self.
122 d174a54ad291 . claus parents: 120 diff changeset	108	handleType := #methodObject.
120 13f0112a469a . claus parents: 114 diff changeset	109
13f0112a469a . claus parents: 114 diff changeset	110	"Created: 14.9.1995 / 21:13:13 / claus"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	111	!
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	moduleID
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	114	"return moduleID"
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	^ moduleID
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	117
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	118	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	119	!
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	moduleID:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	122	"set moduleID"
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	moduleID := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	125
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	126	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	127	!
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	pathName
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	130	"return pathName"
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	^ pathName
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	133
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	134	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	135	!
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	pathName:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	138	"set pathName"
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	pathName := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	141
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	142	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	143	!
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	sysHandle1
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	146	"return sysHandle1"
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	^ sysHandle1
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	149
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	150	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	151	!
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	sysHandle1:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	154	"set sysHandle1"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	155
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	156	sysHandle1 := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	157
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	158	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	159	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	160
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	161	sysHandle2
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	162	"return sysHandle2"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	163
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	164	^ sysHandle2
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	165
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	166	"Created: 14.9.1995 / 21:13:12 / claus"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	167	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	168
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	169	sysHandle2:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	170	"set sysHandle2"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	171
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	172	sysHandle2 := something.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	173
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	174	"Created: 14.9.1995 / 21:13:12 / claus"
114 ead0d3d79384 . claus parents: diff changeset	175	! !
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	176
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	177	!ObjectFileHandle methodsFor:'printing'!
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	178
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	179	printOn:aStream
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	180	aStream nextPutAll:self class name; nextPutAll:'(handle=<'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	181	sysHandle1 printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	182	aStream nextPutAll:' '.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	183	sysHandle2 printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	184	aStream nextPutAll:'> path='''.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	185	pathName printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	186	aStream nextPutAll:''' id='.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	187	moduleID printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	188	aStream nextPutAll:' type='.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	189	handleType printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	190	aStream nextPutAll:' method=<'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	191	self method printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	192	aStream nextPutAll:'> classes=<'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	193	self classes printOn:aStream.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	194	aStream nextPutAll:'>'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	195
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	196	aStream nextPutAll:')'.
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	197
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	198	"Modified: 6.12.1995 / 18:11:53 / cg"
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	199	! !
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	200
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	201	!ObjectFileHandle methodsFor:'queries'!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	202
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	203	isClassLibHandle
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	204	"return true, if I am a handle for a class library"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	205
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	206	^ handleType == #classLibraryObject
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
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	209	isMethodHandle
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	210	"return true, if I am a handle for a single compiled method"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	211
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	212	^ handleType == #methodObject
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	213	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	214
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	215	isForCollectedObject
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	216	"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	217
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	218	handleType == #classLibraryObject ifTrue:[
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	219	^ (weakClassRefs findFirst:[:x \| x notNil]) == 0
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	220	].
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	221	handleType == #methodObject ifTrue:[
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	222	^ (weakMethodRef at:1) isNil
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	223	].
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	224	^ false
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	225
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	226	"Created: 6.12.1995 / 17:46:58 / cg"
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	227	!
d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	228
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	229	isObsolete
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	230	"return true, if my clases/method has already been removed from
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	231	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	232
154 04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	233	moduleID notNil ifTrue:[
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	234	handleType == #classLibraryObject ifTrue:[
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	235	^ (weakClassRefs findFirst:[:x \| x notNil]) == 0
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	236	].
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	237	handleType == #methodObject ifTrue:[
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	238	^ (weakMethodRef at:1) isNil
04716b86ad29 reloading compiled methods Claus Gittinger <cg@exept.de> parents: 152 diff changeset	239	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	240	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	241	^ false
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	242	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	243
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	244	!ObjectFileHandle class methodsFor:'documentation'!
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	245
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	246	version
157 d7f68808a258 reload objects in the previous order Claus Gittinger <cg@exept.de> parents: 154 diff changeset	247	^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.12 1995-12-06 17:23:29 cg Exp $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 141 diff changeset	248	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 06 Dec 1995 18:23:42 +0100
changeset 157	d7f68808a258
parent 154	04716b86ad29
child 259	a469695d8d19
permissions	-rw-r--r--