<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 e4835d424ef7bca7dc6c01c000a886e78df81be0..4dca29581907722fbedfb6c1a0c4337b38828c9f 100755 (executable)
--- 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 9da15b428434bcc16c5785f03fe4b0cd4da5d1d6..7d9c8166862ef9b0d2125ff32e9f61976d90fb42 100644 (file)
--- 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 ac9543a9b2eba17eeeb235e6f9a6298603bd8113..c3d8807bf93eaac974309be739912cec3f64e942 100755 (executable)
--- 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 bcd4cae69c67a860b0bf959485b85e4140ec2156..96b0fbd2cfba7ca47932bc2ee2de7c458ead20e3 100755 (executable)
--- 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;