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~20
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=dd0ab062febd7d96f01f2665a9de12f403f57939;p=gcl27.git

<short summary of the patch>

Bug-Debian: https://bugs.debian.org/995323

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

  * Version_2.6.13pre101
  * Bug fix: "fails to start with glibc 2.33", thanks to Andreas Kloeckner
    (Closes: #995323).

Gbp-Pq: Name Version_2_6_13pre102
---

diff --git a/h/elf64_s390_reloc.h b/h/elf64_s390_reloc.h
index 79a4bfa..cfa28e4 100644
--- a/h/elf64_s390_reloc.h
+++ b/h/elf64_s390_reloc.h
@@ -8,5 +8,6 @@
     add_ivals((int *)where,MASK(32),s+a-p);
     break;
   case     R_390_PC32DBL:
+  case     R_390_PLT32DBL:/*FIXME think about this*/
     add_ivals((int *)where,MASK(32),(s+a-p)>>1);
     break;
diff --git a/o/number.c b/o/number.c
index dcb36f3..50e8693 100755
--- a/o/number.c
+++ b/o/number.c
@@ -63,10 +63,21 @@ object small_fixnum ( int i ) {
 struct {int min,max;} bigger_fixnums;
 
 struct fixnum_struct *bigger_fixnum_table;
+#if !defined(IM_FIX_BASE) || defined(USE_SAFE_CDR)
+#define STATIC_BIGGER_FIXNUM_TABLE_BITS 10
+static struct fixnum_struct bigger_fixnum_table1[1<<(STATIC_BIGGER_FIXNUM_TABLE_BITS+1)];
+#endif
+
 DEFUN_NEW("ALLOCATE-BIGGER-FIXNUM-RANGE",object,fSallocate_bigger_fixnum_range,SI,2,2,NONE,OI,IO,OO,OO,(fixnum min,fixnum max),"")  {
   int j; 
   if (min > max) FEerror("Need Min <= Max",0);
-  bigger_fixnum_table=(void *)malloc(sizeof(struct fixnum_struct)*(max - min));
+
+#if !defined(IM_FIX_BASE) || defined(USE_SAFE_CDR)
+  if (min==-(1<<STATIC_BIGGER_FIXNUM_TABLE_BITS) && max==(1<<STATIC_BIGGER_FIXNUM_TABLE_BITS))
+    bigger_fixnum_table=bigger_fixnum_table1;
+  else
+#endif
+    bigger_fixnum_table=(void *)malloc(sizeof(struct fixnum_struct)*(max - min));
   
   for (j=min ; j < max ; j=j+1) { 		
     object x=(object)(bigger_fixnum_table+j-min);
@@ -295,7 +306,7 @@ gcl_init_number(void)
 {
 
 #if !defined(IM_FIX_BASE) || defined(USE_SAFE_CDR)
-  FFN(fSallocate_bigger_fixnum_range)(-1024,1023);
+  FFN(fSallocate_bigger_fixnum_range)(-1024,1024);
 #endif
 
 	shortfloat_zero = alloc_object(t_shortfloat);