equal
deleted
inserted
replaced
597 ifTrue:[OperatingSystem getEnvironment copy] |
597 ifTrue:[OperatingSystem getEnvironment copy] |
598 ifFalse:[env := Dictionary new]. |
598 ifFalse:[env := Dictionary new]. |
599 env at:'LANG' put:'C'. |
599 env at:'LANG' put:'C'. |
600 env at:'LC_MESSAGES' put:'C'. |
600 env at:'LC_MESSAGES' put:'C'. |
601 |
601 |
|
602 "/ When compiling using MINGW32/64, the bin directory |
|
603 "/ must be in path since compiler uses some .dlls found there |
|
604 "/ (an otherwise, they won't be found) |
|
605 (ParserFlags useMingw32 or:[ ParserFlags useMingw64 ]) ifTrue:[ |
|
606 "/ JV @ 2016-01-04: I dunno why, but adding new, fixed path to env variable passed |
|
607 "/ to executeCommand:...environment:... below does not work. |
|
608 "/ Modifying this very process own environment works, though, |
|
609 | path | |
|
610 |
|
611 path := OperatingSystem getEnvironment: 'PATH'. |
|
612 (path includesSubstring: ccPath) ifFalse:[ |
|
613 OperatingSystem setEnvironment: 'PATH' to: path , ';', ccPath asFilename directory pathName |
|
614 ]. |
|
615 ]. |
|
616 |
602 ok := OperatingSystem |
617 ok := OperatingSystem |
603 executeCommand:command |
618 executeCommand:command |
604 inputFrom:nil |
619 inputFrom:nil |
605 outputTo:errorStream |
620 outputTo:errorStream |
606 errorTo:errorStream |
621 errorTo:errorStream |
629 ok := false |
644 ok := false |
630 ]. |
645 ]. |
631 ^ ok |
646 ^ ok |
632 |
647 |
633 "Created: / 07-11-2006 / 12:14:51 / cg" |
648 "Created: / 07-11-2006 / 12:14:51 / cg" |
|
649 "Modified: / 04-01-2016 / 21:12:56 / jv" |
634 ! |
650 ! |
635 |
651 |
636 compileToS |
652 compileToS |
637 "compile C to assembler, using cc" |
653 "compile C to assembler, using cc" |
638 |
654 |