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.
care for nil pathName in moduleEntry
authorClaus Gittinger <cg@exept.de>
Tue, 22 Apr 1997 23:48:40 +0200
changeset 2580 d649a490f236
parent 2579 7e0783458c2f
child 2581 d06e3bbfc294
care for nil pathName in moduleEntry
ObjMem.st file | annotate | diff | comparison | revisions
ObjectMemory.st file | annotate | diff | comparison | revisions 
--- a/ObjMem.st	Tue Apr 22 20:59:18 1997 +0200
+++ b/ObjMem.st	Tue Apr 22 23:48:40 1997 +0200
@@ -3696,7 +3696,11 @@
             pathName := ObjectFileLoader pathNameFromID:id.
             dynamic := true.
             typeName := 'dynamic '.
-            name := pathName asFilename baseName
+            pathName isNil ifTrue:[
+                name := '?'
+            ] ifFalse:[
+                name := pathName asFilename baseName
+            ]
         ] ifFalse:[
             dynamic := false.
             typeName := 'builtIn '.
@@ -3745,7 +3749,7 @@
     "
 
     "Modified: 17.9.1995 / 16:33:02 / claus"
-    "Modified: 31.10.1996 / 13:59:02 / cg"
+    "Modified: 22.4.1997 / 23:42:59 / cg"
 !
 
 fullBinaryModuleInfo
@@ -4102,6 +4106,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.142 1997-04-03 18:04:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.143 1997-04-22 21:48:40 cg Exp $'
 ! !
 ObjectMemory initialize!
--- a/ObjectMemory.st	Tue Apr 22 20:59:18 1997 +0200
+++ b/ObjectMemory.st	Tue Apr 22 23:48:40 1997 +0200
@@ -3696,7 +3696,11 @@
             pathName := ObjectFileLoader pathNameFromID:id.
             dynamic := true.
             typeName := 'dynamic '.
-            name := pathName asFilename baseName
+            pathName isNil ifTrue:[
+                name := '?'
+            ] ifFalse:[
+                name := pathName asFilename baseName
+            ]
         ] ifFalse:[
             dynamic := false.
             typeName := 'builtIn '.
@@ -3745,7 +3749,7 @@
     "
 
     "Modified: 17.9.1995 / 16:33:02 / claus"
-    "Modified: 31.10.1996 / 13:59:02 / cg"
+    "Modified: 22.4.1997 / 23:42:59 / cg"
 !
 
 fullBinaryModuleInfo
@@ -4102,6 +4106,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.142 1997-04-03 18:04:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.143 1997-04-22 21:48:40 cg Exp $'
 ! !
 ObjectMemory initialize!
hg/stx-libbasic