include the processID in the dynamic modules name;
allows modules from different lifes to be loaded
--- a/BCompiler.st Fri Jul 12 10:43:55 1996 +0200
+++ b/BCompiler.st Fri Jul 12 12:11:07 1996 +0200
@@ -1918,12 +1918,17 @@
^ #CannotLoad
].
+ "/ generate a unique name, consisting of my processID and a sequence number
+ "/ the processId is added to allow filein of modules from different
+ "/ lifes
+
SequenceNumber isNil ifTrue:[
SequenceNumber := 0.
].
SequenceNumber := SequenceNumber + 1.
- initName := 'ttt' , SequenceNumber printString.
+ initName := 'm_' , OperatingSystem getProcessId printString, '_' , SequenceNumber printString.
+
stFileName := initName , '.st'.
stream := stFileName asFilename writeStream.
stream isNil ifTrue:[
@@ -2184,7 +2189,7 @@
"Modified: 14.9.1995 / 22:33:04 / claus"
"Modified: 28.12.1995 / 15:52:48 / stefan"
- "Modified: 12.7.1996 / 10:02:25 / cg"
+ "Modified: 12.7.1996 / 11:16:18 / cg"
!
createLoadableObjectFor:baseFileName
@@ -2258,6 +2263,6 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.84 1996-07-12 08:43:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.85 1996-07-12 10:11:07 cg Exp $'
! !
ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st Fri Jul 12 10:43:55 1996 +0200
+++ b/ByteCodeCompiler.st Fri Jul 12 12:11:07 1996 +0200
@@ -1918,12 +1918,17 @@
^ #CannotLoad
].
+ "/ generate a unique name, consisting of my processID and a sequence number
+ "/ the processId is added to allow filein of modules from different
+ "/ lifes
+
SequenceNumber isNil ifTrue:[
SequenceNumber := 0.
].
SequenceNumber := SequenceNumber + 1.
- initName := 'ttt' , SequenceNumber printString.
+ initName := 'm_' , OperatingSystem getProcessId printString, '_' , SequenceNumber printString.
+
stFileName := initName , '.st'.
stream := stFileName asFilename writeStream.
stream isNil ifTrue:[
@@ -2184,7 +2189,7 @@
"Modified: 14.9.1995 / 22:33:04 / claus"
"Modified: 28.12.1995 / 15:52:48 / stefan"
- "Modified: 12.7.1996 / 10:02:25 / cg"
+ "Modified: 12.7.1996 / 11:16:18 / cg"
!
createLoadableObjectFor:baseFileName
@@ -2258,6 +2263,6 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.84 1996-07-12 08:43:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.85 1996-07-12 10:11:07 cg Exp $'
! !
ByteCodeCompiler initialize!