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

change dynext linker search to gcc;cc instead of just cc

Browse Source 
svn: r7059
This commit is contained in:
Matthew Flatt 2007-08-08 17:38:53 +00:00
parent f7a942b0b7
commit b3821d8d82
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,15 +27,17 @@
(find-executable-path "ilink32.exe" #f))) (find-executable-path "ilink32.exe" #f)))
(define (get-unix-linker) (define (get-unix-linker)
(let ([s (case (string->symbol (path->string (system-library-subpath #f))) (let ([l (case (string->symbol (path->string (system-library-subpath #f)))
[(sparc-solaris i386-solaris [(sparc-solaris i386-solaris
sparc-sunos4 sparc-sunos4
i386-freebsd-2.x i386-freebsd-2.x
parisc-hpux parisc-hpux
i386-cygwin) i386-cygwin)
"ld"] '("ld")]
[else "cc"])]) [else '("gcc" "cc")])])
(find-executable-path s s))) (ormap (lambda (s)
(find-executable-path s #f))
l)))
(define (check-valid-linker-path v) (define (check-valid-linker-path v)
(unless (and (file-exists? v) (unless (and (file-exists? v)