changed: #compileToMachineCode:forClass:selector:inCategory:notifying:install:skipIfSame:silent:
authorClaus Gittinger <cg@exept.de>
Fri, 16 Sep 2011 19:59:34 +0200
changeset 2703 2e966ec31082
parent 2702 8cf0d5642c70
child 2704 19bedf5ff15e
changed: #compileToMachineCode:forClass:selector:inCategory:notifying:install:skipIfSame:silent:
STCCompilerInterface.st
--- a/STCCompilerInterface.st	Fri Sep 16 19:57:33 2011 +0200
+++ b/STCCompilerInterface.st	Fri Sep 16 19:59:34 2011 +0200
@@ -314,15 +314,21 @@
         originator parseError:'dynamic load failed' position:1.
         ^ #CannotLoad
     ] ensure:[
-        parserFlags stcKeepSTIntermediate ifFalse:[
+        parserFlags stcKeepSTIntermediate ifTrue:[
+            Transcript showCR:'keeping st file: ', stFileName asFilename pathName
+        ] ifFalse:[
             OperatingSystem removeFile:stFileName.
             OperatingSystem removeFile:'errorOutput'.
         ].
-        parserFlags stcKeepOIntermediate ~~ true ifTrue:[
-            (oFileName notNil and:[oFileName asFilename exists]) ifTrue:[oFileName asFilename delete].
+        parserFlags stcKeepCIntermediate == true ifTrue:[
+            Transcript showCR:'keeping c file: ', cFileName asFilename pathName
+        ] ifFalse:[
+            (cFileName notNil and:[cFileName asFilename exists]) ifTrue:[cFileName asFilename delete].
         ].
-        parserFlags stcKeepCIntermediate ~~ true ifTrue:[
-            (cFileName notNil and:[cFileName asFilename exists]) ifTrue:[cFileName asFilename delete].
+        parserFlags stcKeepOIntermediate == true ifTrue:[
+            Transcript showCR:'keeping o file: ', oFileName asFilename pathName
+        ] ifFalse:[
+            (oFileName notNil and:[oFileName asFilename exists]) ifTrue:[oFileName asFilename delete].
         ].
         OperatingSystem isMSDOSlike ifTrue:[
 "/            (mapFileName notNil and:[mapFileName asFilename exists]) ifTrue:[mapFileName asFilename delete].
@@ -368,7 +374,7 @@
 
     "Modified: / 14-09-1995 / 22:33:04 / claus"
     "Modified: / 19-03-1999 / 08:31:42 / stefan"
-    "Modified: / 07-11-2006 / 14:21:46 / cg"
+    "Modified: / 16-09-2011 / 19:59:21 / cg"
 ! !
 
 !STCCompilerInterface methodsFor:'machine code generation-helpers'!
@@ -847,11 +853,11 @@
 !STCCompilerInterface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.25 2011-08-09 21:42:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.26 2011-09-16 17:59:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.25 2011-08-09 21:42:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.26 2011-09-16 17:59:34 cg Exp $'
 ! !
 
 STCCompilerInterface initialize!