[Sbcl-devel] [PATCH] Fix build breakage for ports without linkage table

[Thiemo S. <th...@ne...>]

Hello All,

non linkage table ports need the appended patch to build again.


Thiemo


Index: src/code/foreign-load.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/foreign-load.lisp,v
retrieving revision 1.11
diff -u -p -r1.11 foreign-load.lisp
--- src/code/foreign-load.lisp	5 Jul 2005 12:27:37 -0000	1.11
+++ src/code/foreign-load.lisp	6 Jul 2005 19:23:21 -0000
@@ -166,6 +166,7 @@ ports if the symbols isn't found a speci
 accesses to which will result in an UNDEFINED-ALIEN-ERROR. On other ports an
 error is immediately signalled if the symbol isn't found. The returned address
 is never in the linkage-table."
+    (declare (ignorable datap))
     (let ((addr (find-dynamic-foreign-symbol-address symbol)))
       (cond  #!-linkage-table
 	     ((not addr)
Index: src/code/foreign.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/foreign.lisp,v
retrieving revision 1.33
diff -u -p -r1.33 foreign.lisp
--- src/code/foreign.lisp	5 Jul 2005 12:27:37 -0000	1.33
+++ src/code/foreign.lisp	6 Jul 2005 19:23:21 -0000
@@ -53,6 +53,7 @@ address of a static symbol, or the linka
 Dynamic symbols are entered into the linkage-table if they aren't there already.
 
 On non-linkage-table ports signals an error if the symbol isn't found."
+  (declare (ignorable datap))
   (let ((static (find-foreign-symbol-in-table name  *static-foreign-symbols*)))
     (if static
 	(values static nil)