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

  * Version_2.6.13pre94

Gbp-Pq: Name Version_2_6_13pre95

diff --git a/h/compprotos.h b/h/compprotos.h
index 2e57c8b8719e0d22848be9b44f23f5087f01ba41..80c7f56b91f533470cd43985d04b49767bf6faf4 100644 (file)
--- a/h/compprotos.h
+++ b/h/compprotos.h
@@ -179,5 +179,5 @@ void gcl_init_or_load1(void (*)(void),const char *);
 char *gcl_gets(char *,int);
 int gcl_puts(const char *);
 int endp_error(object);
-object Icall_gen_error_handler(object,object,object,object,ufixnum,...);
+object Icall_gen_error_handler(object,object,object,object,ufixnum,...) __attribute__((noreturn));
 object file_stream(object);

diff --git a/h/elf32_armhf_reloc.h b/h/elf32_armhf_reloc.h
index 1f0f756b00c78bb8232a41aae2b73bc870271f97..1458fa6d19c665ef832463ab54772f2869be0f7c 100644 (file)
--- a/h/elf32_armhf_reloc.h
+++ b/h/elf32_armhf_reloc.h
@@ -4,7 +4,7 @@
      case R_ARM_THM_JUMP24:
       {
        long x=(long)(s+a-p);
-       if (abs(x)&(~MASK(23))) {
+       if (abs(x)&(~MASK(22))) {
 
           got+=(sym->st_size-1)*tz;
          memcpy(got,tramp,sizeof(tramp));

diff --git a/h/object.h b/h/object.h
index 82c3167876a4eeb3942b6b3d1afcf3f3a35d66de..72314679009174145762056713c81c6ae6f11c56 100755 (executable)
--- a/h/object.h
+++ b/h/object.h
@@ -391,9 +391,6 @@ emsg(const char *s,...) {
   va_list args;
   ufixnum n=0;
   void *v=NULL;
-#ifndef vsnprintf
-  extern int vsnprintf();
-#endif
   va_start(args,s);
   n=vsnprintf(v,n,s,args)+1;
   va_end(args);

diff --git a/o/read.d b/o/read.d
index 25e47d176710911dd4c844896220ba948395e8e0..6f4bab3275d3810beb30883991c29be6a3b67a16 100755 (executable)
--- a/o/read.d
+++ b/o/read.d
@@ -1590,6 +1590,7 @@ object from, to;
        if (to == Cnil) {
                to = alloc_object(t_readtable);
                to->rt.rt_self = NULL;
+               to->rt.rt_case = sKupcase;
                        /*  For GBC not to go mad.  */
                vs_push(to);
                        /*  Saving for GBC.  */