215 |
215 |
216 " |
216 " |
217 if required, make a shared or otherwise loadable object file for it |
217 if required, make a shared or otherwise loadable object file for it |
218 " |
218 " |
219 originator activityNotification:'linking'. |
219 originator activityNotification:'linking'. |
220 |
220 self halt. |
221 dllFileName := ObjectFileLoader createLoadableObjectFor:(oFileName asFilename withoutSuffix name). |
221 dllFileName := ObjectFileLoader createLoadableObjectFor:(oFileName asFilename withoutSuffix name). |
|
222 self halt. |
222 dllFileName isNil ifTrue:[ |
223 dllFileName isNil ifTrue:[ |
223 "/ something went wrong |
224 "/ something went wrong |
224 originator parseError:('link error: ' , ObjectFileLoader lastError) position:1. |
225 originator parseError:('link error: ' , ObjectFileLoader lastError) position:1. |
225 ^ #CannotLoad |
226 ^ #CannotLoad |
226 ]. |
227 ]. |
464 |
465 |
465 |errorStream ok command| |
466 |errorStream ok command| |
466 |
467 |
467 errorStream := 'errorOutput' asFilename newReadWriteStream. |
468 errorStream := 'errorOutput' asFilename newReadWriteStream. |
468 |
469 |
469 "Note: Windows/bcc32 does not understand a space between -o and filename" |
470 ParserFlags useBorlandC ifTrue:[ |
470 "/ cg: I guess, this does not work for visual-c |
471 "Note: Windows/bcc32 does not understand a space between -o and filename" |
471 command := (self possiblyQuotedPath:ccPath) , ' ' , cFlags , ' -D__INCREMENTAL_COMPILE__ -o', (self possiblyQuotedPath:oFileName), ' -c ' , (self possiblyQuotedPath:cFileName). |
472 "/ cg: I guess, this does not work for visual-c |
|
473 command := (self possiblyQuotedPath:ccPath) , ' ' , cFlags , ' -D',ParserFlags usedCompilerDefine,' -D__INCREMENTAL_COMPILE__ -o', (self possiblyQuotedPath:oFileName), ' -c ' , (self possiblyQuotedPath:cFileName). |
|
474 ] ifFalse:[ |
|
475 command := (self possiblyQuotedPath:ccPath) , ' ' , cFlags , ' -D',ParserFlags usedCompilerDefine,' -D__INCREMENTAL_COMPILE__ -o ', (self possiblyQuotedPath:oFileName), ' -c ' , (self possiblyQuotedPath:cFileName). |
|
476 ]. |
472 |
477 |
473 Verbose == true ifTrue:[ |
478 Verbose == true ifTrue:[ |
474 'executing: ' infoPrint. command infoPrintCR. |
479 'executing: ' infoPrint. command infoPrintCR. |
475 ]. |
480 ]. |
476 originator activityNotification:'compiling (' , ccPath , ')'. |
481 originator activityNotification:'compiling (' , ccPath , ')'. |
855 ! ! |
860 ! ! |
856 |
861 |
857 !STCCompilerInterface class methodsFor:'documentation'! |
862 !STCCompilerInterface class methodsFor:'documentation'! |
858 |
863 |
859 version |
864 version |
860 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.28 2013-02-20 11:48:19 cg Exp $' |
865 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.29 2013-02-21 14:03:46 cg Exp $' |
861 ! |
866 ! |
862 |
867 |
863 version_CVS |
868 version_CVS |
864 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.28 2013-02-20 11:48:19 cg Exp $' |
869 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.29 2013-02-21 14:03:46 cg Exp $' |
865 ! ! |
870 ! ! |
866 |
871 |
867 |
872 |
868 STCCompilerInterface initialize! |
873 STCCompilerInterface initialize! |