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.
check if createLoadableObject really did it
authorClaus Gittinger <cg@exept.de>
Tue, 30 Jul 1996 20:06:33 +0200
changeset 323 0d6e05191a9b
parent 322 a844e84b16fd
child 324 747e77ce9e57
check if createLoadableObject really did it
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Tue Jul 30 20:05:43 1996 +0200
+++ b/BCompiler.st	Tue Jul 30 20:06:33 1996 +0200
@@ -2093,6 +2093,19 @@
     "
     self activityNotification:'linking'.
     oFileName := ObjectFileLoader createLoadableObjectFor:initName.
+    oFileName isNil ifTrue:[
+        "/ something went wrong
+        OperatingSystem removeFile:stFileName.
+        self parseError:(ObjectFileLoader lastError) position:1.
+        ^ #CannotLoad
+    ].
+
+    oFileName asFilename exists ifFalse:[
+        OperatingSystem removeFile:stFileName.
+        OperatingSystem removeFile:oFileName.
+        self parseError:'link failed - cannot create machine code' position:1.
+        ^ #CannotLoad
+    ].
 
     "
      move it into the modules directory
@@ -2226,7 +2239,7 @@
 
     "Modified: 14.9.1995 / 22:33:04 / claus"
     "Modified: 28.12.1995 / 15:52:48 / stefan"
-    "Modified: 12.7.1996 / 12:37:45 / cg"
+    "Modified: 29.7.1996 / 13:18:00 / cg"
 !
 
 createLoadableObjectFor:baseFileName
@@ -2300,6 +2313,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.86 1996-07-12 14:53:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.87 1996-07-30 18:06:33 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st	Tue Jul 30 20:05:43 1996 +0200
+++ b/ByteCodeCompiler.st	Tue Jul 30 20:06:33 1996 +0200
@@ -2093,6 +2093,19 @@
     "
     self activityNotification:'linking'.
     oFileName := ObjectFileLoader createLoadableObjectFor:initName.
+    oFileName isNil ifTrue:[
+        "/ something went wrong
+        OperatingSystem removeFile:stFileName.
+        self parseError:(ObjectFileLoader lastError) position:1.
+        ^ #CannotLoad
+    ].
+
+    oFileName asFilename exists ifFalse:[
+        OperatingSystem removeFile:stFileName.
+        OperatingSystem removeFile:oFileName.
+        self parseError:'link failed - cannot create machine code' position:1.
+        ^ #CannotLoad
+    ].
 
     "
      move it into the modules directory
@@ -2226,7 +2239,7 @@
 
     "Modified: 14.9.1995 / 22:33:04 / claus"
     "Modified: 28.12.1995 / 15:52:48 / stefan"
-    "Modified: 12.7.1996 / 12:37:45 / cg"
+    "Modified: 29.7.1996 / 13:18:00 / cg"
 !
 
 createLoadableObjectFor:baseFileName
@@ -2300,6 +2313,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.86 1996-07-12 14:53:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.87 1996-07-30 18:06:33 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp