2895 warnMsg1 := warnMsg2 := ''. |
2895 warnMsg1 := warnMsg2 := ''. |
2896 |
2896 |
2897 usedCompiler := self usedCompilerHolder value. |
2897 usedCompiler := self usedCompilerHolder value. |
2898 usedCompiler = 'bcc' ifTrue:[ |
2898 usedCompiler = 'bcc' ifTrue:[ |
2899 cmd := 'bcc32'. |
2899 cmd := 'bcc32'. |
2900 ]. |
2900 ] ifFalse:[ |
2901 usedCompiler = 'vc' ifTrue:[ |
2901 usedCompiler = 'vc' ifTrue:[ |
2902 cmd := 'cl'. |
2902 cmd := 'cl'. |
2903 warnMsg1 := 'Due to bugs in this C-compiler, some classes may not be compilable.'. |
2903 warnMsg1 := 'Due to bugs in this C-compiler, some classes may not be compilable.'. |
2904 ]. |
2904 ] ifFalse:[ |
2905 usedCompiler = 'lcc' ifTrue:[ |
2905 usedCompiler = 'lcc' ifTrue:[ |
2906 cmd := 'lcc'. |
2906 cmd := 'lcc'. |
2907 warnMsg1 := 'The LCC C-compiler suite is not officially supported.'. |
2907 warnMsg1 := 'The LCC C-compiler suite is not officially supported.'. |
2908 ]. |
2908 ] ifFalse:[ |
2909 usedCompiler = 'tcc' ifTrue:[ |
2909 usedCompiler = 'tcc' ifTrue:[ |
2910 cmd := 'tcc'. |
2910 cmd := 'tcc'. |
2911 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2911 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2912 warnMsg1 := 'The Tiny C-compiler suite is not yet supported (linkage).'. |
2912 warnMsg1 := 'The Tiny C-compiler suite is not yet supported (linkage).'. |
2913 ]. |
2913 ]. |
2914 ]. |
2914 ] ifFalse:[ |
2915 usedCompiler = 'gcc' ifTrue:[ |
2915 usedCompiler = 'gcc' ifTrue:[ |
2916 cmd := 'gcc'. |
2916 cmd := 'gcc'. |
2917 ]. |
2917 ] ifFalse:[ |
2918 usedCompiler = 'mingw' ifTrue:[ |
2918 cmd := usedCompiler. |
2919 cmd := 'gcc'. |
2919 ]. |
2920 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2920 ] |
2921 warnMsg1 := 'The MINGW C-compiler suite is not officially supported.'. |
2921 ] |
2922 ]. |
2922 ] |
2923 ]. |
2923 ]. |
2924 |
2924 |
2925 suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value). |
2925 suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value). |
2926 self nameOfUsedCompilerSuiteHolder value:suite. |
2926 self nameOfUsedCompilerSuiteHolder value:suite. |
2927 |
2927 |