From: Camm Maguire <camm@debian.org>
Date: Thu, 11 Aug 2022 17:16:42 +0000 (+0100)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.7.1-4+rpi1~1^2~1^2~17
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=70721cf0559cb336ae863e2eaabcf7328b564fa2;p=gcl27.git

<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-104) unstable; urgency=medium

  * Version_2.6.13pre100
  * standardize cstack start address on 32bit arm

Gbp-Pq: Name Version_2_6_13pre101
---

diff --git a/h/notcomp.h b/h/notcomp.h
index e4835d4..4dca295 100755
--- a/h/notcomp.h
+++ b/h/notcomp.h
@@ -299,7 +299,7 @@ char FN1[PATH_MAX],FN2[PATH_MAX],FN3[PATH_MAX],FN4[PATH_MAX],FN5[PATH_MAX];
 #define coerce_to_filename(a_,b_) coerce_to_filename1(a_,b_,sizeof(b_))
 
 #include <errno.h>
-#define massert(a_) ({errno=0;if (!(a_)||errno) assert_error(#a_,__LINE__,__FILE__,__FUNCTION__);})
+#define massert(a_) ({errno=0;if (!(a_)) assert_error(#a_,__LINE__,__FILE__,__FUNCTION__);})
 
 extern bool writable_malloc;
 #define writable_malloc_wrap(f_,rt_,a_...) ({rt_ v;bool w=writable_malloc;writable_malloc=1;v=f_(a_);writable_malloc=w;v;})
diff --git a/lsp/gcl_directory.lsp b/lsp/gcl_directory.lsp
index 9da15b4..7d9c816 100644
--- a/lsp/gcl_directory.lsp
+++ b/lsp/gcl_directory.lsp
@@ -71,7 +71,7 @@
     (setq *current-directory* (current-directory-pathname))))
 
 (defun which (s)
-  (let ((r (with-open-file (s (apply 'string-concatenate "|" #-winnt "which "
+  (let ((r (with-open-file (s (apply 'string-concatenate "|" #-winnt "command -v "
 				     #+winnt "for %i in (" s #+winnt ".exe) do @echo.%~$PATH:i" nil))
 			   (read-line s nil 'eof))))
     (unless (eq r 'eof)
diff --git a/o/cmpaux.c b/o/cmpaux.c
index ac9543a..c3d8807 100755
--- a/o/cmpaux.c
+++ b/o/cmpaux.c
@@ -560,3 +560,8 @@ DEFUN_NEW("FIND-INIT-NAME", object, fSfind_init_name, SI, 1, 1,
 
 }
 
+DEFUN_NEW("SEEK-TO-END-OFILE",object,fSseek_to_end_ofile,SI,1,1,NONE,OO,OO,OO,OO,(object sm),"") {
+  check_type_stream(&sm);
+  SEEK_TO_END_OFILE(sm->sm.sm_fp);
+  RETURN1(sm);
+}
diff --git a/o/main.c b/o/main.c
index bcd4cae..96b0fbd 100755
--- a/o/main.c
+++ b/o/main.c
@@ -449,12 +449,21 @@ gcl_cleanup(int gc) {
 /*gcc boolean expression tail position bug*/
 static char *stack_to_be_allocated;
 
-void
-get_stack_to_be_allocated(unsigned long size) {
-  stack_to_be_allocated=alloca(size);
-  memset(stack_to_be_allocated,0,size);
+int
+stack_ret(char *s,unsigned long size) {
+  int r,i;
+  for (i=r=0;i<size;i++)
+    r^=((unsigned char)s[i])|((ufixnum)(s+i));
+  return r;
 }
 
+int
+get_stack_to_be_allocated(unsigned long size) {
+   stack_to_be_allocated=alloca(size);
+   memset(stack_to_be_allocated,0,size);
+   return stack_ret(stack_to_be_allocated,size);
+ }
+
 DEFUN_NEW("EQUAL-TAIL-RECURSION-CHECK",object,fSequal_tail_recursion_check,SI,1,1,NONE,II,OO,OO,OO,(fixnum s),"") {
   object x0=make_list(s/sizeof(object)),x1=make_list(s/sizeof(object));
   char *w;