suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

i386-{macosx,darwin} is like ppc

Browse Source 
svn: r2282
This commit is contained in:
Matthew Flatt 2006-02-18 15:46:50 +00:00
parent a67a8af981
commit bf4563390d
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/dynext/compile-unit.ss
View File

@ -59,13 +59,13 @@
(define gcc-cpp-flags
(add-variant-flags (case (string->symbol (path->string (system-library-subpath #f)))
[(parisc-hpux) '("-D_HPUX_SOURCE")]
[(ppc-macosx) '("-DOS_X")]
[(ppc-macosx i386-macosx) '("-DOS_X")]
[(ppc-darwin) '("-DOS_X" "-DXONX")]
[else null])))
(define gcc-compile-flags (append '("-c" "-O2" "-fPIC")
(case (string->symbol (path->string (system-library-subpath #f)))
[(ppc-macosx) '("-fno-common")]
[(ppc-macosx i386-macosx) '("-fno-common")]
[(ppc-darwin) '("-fno-common")]
[else null])
gcc-cpp-flags))

5
collects/dynext/link-unit.ss
View File

@ -28,7 +28,7 @@
(define (get-unix-linker)
(or (getenv "MZSCHEME_DYNEXT_LINKER")
(let ([s (case (string->symbol (path->string (system-library-subpath #f)))
[(rs6k-aix ppc-macosx ppc-darwin) "cc"]
[(rs6k-aix ppc-macosx i386-macosx ppc-darwin i386-darwin) "cc"]
[else "ld"])])
(find-executable-path s s))))
@ -117,7 +117,8 @@
(format "-bE:~a/ext.exp" include-dir)
"-bnoentry")]
[(parisc-hpux) (list "-b")]
[(ppc-macosx ppc-darwin) (list "-bundle" "-flat_namespace" "-undefined" "suppress")]
[(ppc-macosx ppc-darwin i386-macosx i386-darwin)
(list "-bundle" "-flat_namespace" "-undefined" "suppress")]
[(i386-cygwin) win-gcc-linker-flags]
[else (list "-shared")]))