host.rc
branchjv
changeset 1403 4f390a9d33f9
parent 1366 657c97513b23
--- 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