#QUALITY by stefan
class: STCCompilerInterface
changed:
#compileToC_onError:
#compileToMachineCode:forClass:selector:inCategory:notifying:install:skipIfSame:silent:
Show stc error output in error box
--- a/STCCompilerInterface.st Fri May 11 14:21:21 2018 +0200
+++ b/STCCompilerInterface.st Wed May 16 13:54:05 2018 +0200
@@ -320,7 +320,7 @@
self setupCompilationCommandArguments.
ok := self
compileToC_onError:[:errorFile |
- self reportCompilationErrorFor:stcPath, stcFlags fromFile:errorFile
+ self reportCompilationErrorFor:stcPath fromFile:errorFile
].
parserFlags stcKeepSIntermediate ifTrue:[
@@ -513,7 +513,7 @@
"Modified: / 14-09-1995 / 22:33:04 / claus"
"Modified: / 17-09-2011 / 10:39:25 / cg"
- "Modified: / 11-05-2018 / 09:39:33 / stefan"
+ "Modified: / 16-05-2018 / 13:48:25 / stefan"
! !
!STCCompilerInterface methodsFor:'machine code generation-helpers'!
@@ -525,7 +525,6 @@
|command ok errorOutputFile|
command := (self possiblyQuotedPath:stcPath) , ' ' , stcFlags
- , ' -E:',(self possiblyQuotedPath:(Filename tempDirectory / 'lastIncrStcErrorOutput') pathName)
, ' -defdir=', (self possiblyQuotedPath:cFileName asFilename directory pathName).
cFileName asFilename suffix ~= 'c' ifTrue:[
command := command , ' -cSuffix=',cFileName asFilename suffix.
@@ -540,6 +539,7 @@
errorOutputFile := Filename tempDirectory / 'stcErrorOutput'.
errorOutputFile writingFileDo:[:errorStream |
+ errorStream nextPutAll:'Command: '; nextPutLine:command; cr; flush.
ok := OperatingSystem
executeCommand:command
inputFrom:nil
@@ -576,6 +576,7 @@
"Created: / 07-11-2006 / 12:11:24 / cg"
"Modified: / 08-08-2011 / 22:12:01 / cg"
+ "Modified: / 16-05-2018 / 13:49:01 / stefan"
!
compileToExe_onError:aBlock