changed: #compileToMachineCode:forClass:selector:inCategory:notifying:install:skipIfSame:silent:
--- 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!