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

fix reference to libc.so to be libc.so.7 for FreeBSD (machine types i3fb, ti3fb, a6fb, ta6fb)

Browse Source 
foreign.ms

original commit: 1de3815f2c555622dccd390150c1fabeca981486
This commit is contained in:
Andy Keep 2017-06-15 23:33:01 -04:00
parent a3f05bac83
commit f98a42fa1a
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
LOG
View File

@ -515,3 +515,6 @@
BUILDING, configure, workarea, c/vs.bat (new), mats/vs.bat (new),
c/Mf-*nt, mats/Mf-*, s/Mf-base
- fix c/version.h for FreeBDS (machine types i3fb, ti3fb, a6fb, ta6fb)
- fix reference to libc.so to be libc.so.7 for FreeBSD (machine types
i3fb, ti3fb, a6fb, ta6fb)
foreign.ms

14
mats/foreign.ms
View File

@ -176,7 +176,7 @@
(+ v ...)))))))))
(machine-case
[(i3ob ti3ob a6ob ta6ob i3fb ti3fb a6fb ta6fb a6s2 ta6s2 i3s2 ti3s2 i3qnx ti3qnx)
[(i3ob ti3ob a6ob ta6ob a6s2 ta6s2 i3s2 ti3s2 i3qnx ti3qnx)
(mat load-shared-object
(file-exists? "foreign1.so")
(begin (load-shared-object "./foreign1.so") #t)
@ -192,6 +192,14 @@
(error? (load-shared-object 3))
)
]
[(i3fb ti3fb a6fb ta6fb)
(mat load-shared-object
(file-exists? "foreign1.so")
(begin (load-shared-object "./foreign1.so") #t)
(begin (load-shared-object "libc.so.7") #t)
(error? (load-shared-object 3))
)
]
[(i3nb ti3nb a6nb ta6nb)
(mat load-shared-object
(file-exists? "foreign1.so")
@ -2582,10 +2590,12 @@
(begin
(define load-libc
(machine-case
[(i3ob ti3ob a6ob ta6ob i3fb ti3fb a6fb ta6fb a6s2 ta6s2 i3s2 ti3s2 i3qnx ti3qnx i3nb ti3nb a6nb ta6nb)
[(i3ob ti3ob a6ob ta6ob a6s2 ta6s2 i3s2 ti3s2 i3qnx ti3qnx i3nb ti3nb a6nb ta6nb)
'(load-shared-object "libc.so")]
[(i3le ti3le a6le ta6le arm32le tarm32le ppc32le tppc32le)
'(load-shared-object "libc.so.6")]
[(i3fb ti3fb a6fb ta6fb)
'(load-shared-object "libc.so.7")]
[(i3nt ti3nt a6nt ta6nt)
'(load-shared-object "msvcrt.dll")]
[(i3osx ti3osx a6osx ta6osx)