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

<short summary of the patch>

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

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

  * disable gprof on aarch64
  * Bug fix: "gcl FTBFS on arm64: Unrecoverable error: Segmentation
    violation..", thanks to Adrian Bunk (Closes: #873052).

Gbp-Pq: Name list_order.12
---

diff --git a/o/regexpr.c b/o/regexpr.c
index 74f8a7e..669776b 100755
--- a/o/regexpr.c
+++ b/o/regexpr.c
@@ -66,6 +66,7 @@ DEFUN_NEW("COMPILE-REGEXP",object,fScompile_regexp,SI,1,1,NONE,OO,OO,OO,OO,(obje
 
   char *tmp;
   object res;
+  ufixnum i=0;
 
   if (type_of(p)!= t_string && type_of(p)!=t_symbol)
     not_a_string_or_symbol(p);
@@ -82,9 +83,9 @@ DEFUN_NEW("COMPILE-REGEXP",object,fScompile_regexp,SI,1,1,NONE,OO,OO,OO,OO,(obje
   res->v.v_adjustable=0;
   res->v.v_offset=0;
   res->v.v_self=NULL;
-  if (!(res->v.v_self=(void *)regcomp(tmp,&res->v.v_dim)))
+  if (!(res->v.v_self=(void *)regcomp(tmp,&i)))
     FEerror("regcomp failure",0);
-  res->v.v_fillp=res->v.v_dim;
+  res->v.v_fillp=res->v.v_dim=i;
 
   RETURN1(res);