From: Camm Maguire Date: Sun, 13 Nov 2022 12:55:14 +0000 (+0000) Subject: X-Git-Tag: archive/raspbian/2.7.1-4+rpi1~2^2^2~8 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8e2809814a230d655b4f03b8da20623ea3332e43;p=gcl27.git 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 c585f22..337f35b 100755 --- 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 acb7541..639e819 100644 --- 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*))