From: Camm Maguire <camm@debian.org>
Date: Sun, 13 Nov 2022 12:55:14 +0000 (+0000)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.7.1-4+rpi1~2^2^2~26
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8e6427b1523e5e6f9435ccf3cc2728e26ff707da;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-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 2e57c8b..80c7f56 100644
--- 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 1f0f756..1458fa6 100644
--- 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 82c3167..7231467 100755
--- 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 25e47d1..6f4bab3 100755
--- 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.  */