From 8e2809814a230d655b4f03b8da20623ea3332e43 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sun, 13 Nov 2022 12:55:14 +0000 Subject: [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 --- h/alpha-linux.h | 2 ++ xgcl-2/sysdef.lisp | 12 ++++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) 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*)) -- 2.30.2