From bc12ab4c68f61e6a2fea55af58666ede1b1563d4 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sun, 13 Nov 2022 12:55:14 +0000 Subject: [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 --- o/regexpr.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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); -- 2.30.2