<short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

gcl (2.6.12-119) unstable; urgency=medium

  * Version_2.6.13pre119

Gbp-Pq: Name Version_2_6_13pre119

diff --git a/h/alpha-linux.h b/h/alpha-linux.h
index c585f2257155a959621bf7ee407f41a0ccbe91d5..337f35b73f10528ef01298cdda5aff6f7332f75d 100755 (executable)
--- a/h/alpha-linux.h
+++ b/h/alpha-linux.h
@@ -20,3 +20,5 @@
 #define imb() __asm__ __volatile__ ("call_pal %0 #imb" : : "i" (PAL_imb) : "memory")
 #define CLEAR_CACHE imb()
 
+/*FIXME probe broken in recent kernels, no access*/
+#define DEFINED_REAL_MAXPAGE (1UL<<18) /*FIXME brk probe broken*/

diff --git a/xgcl-2/sysdef.lisp b/xgcl-2/sysdef.lisp
index acb75411f71cd293840763ebfdbf4c0b73054fff..639e819c3007cc2bc33f113a83069b6f4f052f35 100644 (file)
--- a/xgcl-2/sysdef.lisp
+++ b/xgcl-2/sysdef.lisp
@@ -41,14 +41,18 @@
 
 
 (defun compile-xgcl()
-  #+m68k(progn (trace si::readdir si::opendir si::closedir si::pathname-match-p)
-              (print (directory "*.c"))
-              (untrace si::readdir si::opendir si::closedir si::pathname-match-p))
+  #+(or m68k sh4)
+  (progn (trace si::readdir si::opendir si::closedir si::pathname-match-p)
+        (print (directory "*.c"))
+        (untrace si::readdir si::opendir si::closedir si::pathname-match-p))
   (mapc (lambda (x) 
          (let ((x (concatenate 'string compiler::*cc* " -I../h " (namestring x))))
            (unless (zerop (system x))
              (error "compile failure: ~s~%" x))))
-       (directory "*.c"))
+       (or (directory "*.c")
+           #+(or m68k sh4)
+           (progn (print "qemu/readdir issue still present")
+                  (mapcar (lambda (x) (truename (merge-pathnames ".c" x))) '("XStruct-4" "general-c" "Xutil-2" "Events" "XStruct-2")))))
   (mapc (lambda (x)
          (compile-file (format nil "~a.lsp" x) :system-p t)) *files*))