From 443b793ece1fc4f23a05dc3da219b05bee2c415b Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sun, 8 Dec 2019 19:27:24 +0000 Subject: [PATCH] list_order.12 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 74f8a7ed..669776b8 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