Mercurial Mercurial > hg > stx-libcomp / 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.
oops - invalidate old handle - avoid it to unload when collected
authorClaus Gittinger <cg@exept.de>
Wed, 06 Dec 1995 18:38:57 +0100
changeset 159 8fc1b65b4c88
parent 158 05f71dfacb31
child 160 5e01f0113d6e
oops - invalidate old handle - avoid it to unload when collected
ObjFLoader.st file | annotate | diff | comparison | revisions
ObjectFileLoader.st file | annotate | diff | comparison | revisions 
--- a/ObjFLoader.st	Wed Dec 06 18:32:29 1995 +0100
+++ b/ObjFLoader.st	Wed Dec 06 18:38:57 1995 +0100
@@ -897,6 +897,7 @@
 
 	    fileName := entry key.
 	    handle := entry value.
+	    handle moduleID:nil.
 
 	    handle isClassLibHandle ifTrue:[
 		('OBJFLOADER: reloading classes in ' , fileName , ' ...') infoPrintNL.
@@ -919,8 +920,6 @@
 				m == ((where at:1) compiledMethodAt:(where at:2)) ifFalse:[
 				    'OBJFLOADER: oops - loaded method installed wrong' errorPrintNL.
 				].
-			    ] ifFalse:[
-				'OBJFLOADER: oops - lost source info for method' errorPrintNL.
 			    ].
 			]
 		    ]
@@ -932,7 +931,7 @@
 	PreviouslyLoadedObjects := nil
     ]
 
-    "Modified: 6.12.1995 / 18:08:45 / cg"
+    "Modified: 6.12.1995 / 18:37:32 / cg"
 !
 
 revalidateAllObjectFiles
@@ -2862,6 +2861,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.64 1995-12-06 17:32:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.65 1995-12-06 17:38:57 cg Exp $'
 ! !
 ObjectFileLoader initialize!
--- a/ObjectFileLoader.st	Wed Dec 06 18:32:29 1995 +0100
+++ b/ObjectFileLoader.st	Wed Dec 06 18:38:57 1995 +0100
@@ -897,6 +897,7 @@
 
 	    fileName := entry key.
 	    handle := entry value.
+	    handle moduleID:nil.
 
 	    handle isClassLibHandle ifTrue:[
 		('OBJFLOADER: reloading classes in ' , fileName , ' ...') infoPrintNL.
@@ -919,8 +920,6 @@
 				m == ((where at:1) compiledMethodAt:(where at:2)) ifFalse:[
 				    'OBJFLOADER: oops - loaded method installed wrong' errorPrintNL.
 				].
-			    ] ifFalse:[
-				'OBJFLOADER: oops - lost source info for method' errorPrintNL.
 			    ].
 			]
 		    ]
@@ -932,7 +931,7 @@
 	PreviouslyLoadedObjects := nil
     ]
 
-    "Modified: 6.12.1995 / 18:08:45 / cg"
+    "Modified: 6.12.1995 / 18:37:32 / cg"
 !
 
 revalidateAllObjectFiles
@@ -2862,6 +2861,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.64 1995-12-06 17:32:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.65 1995-12-06 17:38:57 cg Exp $'
 ! !
 ObjectFileLoader initialize!
hg/stx-libcomp