#QUALITY by stefan
authorStefan Vogel <sv@exept.de>
Wed, 16 May 2018 13:54:05 +0200
changeset 4260 b87d65887496
parent 4256 5152078ff118
child 4261 1b91b0f56a54
#QUALITY by stefan class: STCCompilerInterface changed: #compileToC_onError: #compileToMachineCode:forClass:selector:inCategory:notifying:install:skipIfSame:silent: Show stc error output in error box
STCCompilerInterface.st
--- 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