--- a/host.rc Tue Jan 05 10:12:26 2016 +0000
+++ b/host.rc Tue Jan 05 10:16:00 2016 +0000
@@ -33,81 +33,6 @@
].
].
-"------------------------------------------------------------------------"
-"/ default compiler setup;
-"/ can be rechanged in a h_xxx file.
-"/
-
-(Smalltalk wasStartedFromImage not and:[ Smalltalk isPlugin not ])
-ifTrue:[
- Compiler stcCompilation:#default.
- Compiler stcCompilationOptions:'+optinline +inlineNew'.
-
- "/
- "/ setup for gcc (which is OK for most systems);
- "/ Notice that this setup may be changed by an OS-specific h_xxx file
- "/
- conf := Smalltalk configuration.
- (conf includesString:'gcc') ifTrue:[
- Compiler ccPath:'gcc'
- ] ifFalse:[
- Compiler ccPath:'cc'
- ].
- Compiler ccCompilationOptions:'-O'.
-
- (conf includesString:'amd64_mode32') ifTrue:[
- ((ObjectFileLoader linkArgs ? '') includesString:'-m32') ifFalse:[
- ObjectFileLoader linkArgs:((ObjectFileLoader linkArgs ? '') , ' -m32 -m elf_i386').
- ].
- (Compiler ccCompilationOptions includesString:'-m32') ifFalse:[
- Compiler ccCompilationOptions:(Compiler ccCompilationOptions , ' -m32').
- ].
- ((Compiler stcCompilationDefines ? '') includesString:'-D__amd64_mode32__') ifFalse:[
- Compiler stcCompilationDefines:((Compiler stcCompilationDefines ? ''), ' -D__amd64_mode32__').
- ].
- ].
-
-
- includes := ''.
- incDir := Smalltalk getSystemFileName:'include/stc.h'.
- incDir notNil ifTrue:[ incDir := incDir asFilename directoryName ].
-
- incDir notNil ifTrue:[
- includes := includes , '-I' , incDir asFilename pathName , ' '
- ] ifFalse:[
- ('../../../stx/include' asFilename exists) ifTrue:[
- "/ running in a development environment...
- includes := includes , '-I../../../stx/include '.
- ] ifFalse:[
- ('../../include' asFilename exists) ifTrue:[
- "/ running in a development environment...
- includes := includes , '-I../../include '.
- ] ifFalse:[
- "/ if this is a production program, dont care for a warning
- (Smalltalk isStandAloneApp or:[Smalltalk isHeadless])
- ifFalse:[
- 'host.rc [warning]: no >>include<< directory found along your path.' infoPrintCR.
- 'host.rc [warning]: this might affect stc-compilation from within the browser.' infoPrintCR.
- ]
- ]
- ]
- ].
-
- Compiler stcCompilationIncludes:includes.
-
- "/
- "/ for myself: preset flags, so that we can accept GLXWorkstation code
- "/ You probably will never do this.
- "/
- (Display notNil and:[Display supportsGLDrawing]) ifTrue:[
- sysType = 'irix' ifTrue:[
- Compiler stcCompilationDefines:'-DGLX'.
- ] ifFalse:[
- Compiler stcCompilationIncludes:'-I../../include -I../../support/VGL/vogl/src'.
- Compiler stcCompilationDefines:'-DVGL'.
- ]
- ].
-].
"/
"/ try systemType-specific setup