From 09b7f37c58c6da6f4965b846b64eab7d9a205663 Mon Sep 17 00:00:00 2001 From: Charles Bailey Date: Thu, 12 Mar 1998 11:02:29 -0500 Subject: VMS updates (direct) [Needed manual tweaks on vms/config.vms since it clashed with other patches. I may have got it wrong.] p4raw-id: //depot/perl@817 --- pp.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index ac297eefa6..9a3b9010ce 100644 --- a/pp.c +++ b/pp.c @@ -2834,11 +2834,11 @@ mul128(SV *sv, U8 m) U32 i = 0; if (!strnEQ(s, "0000", 4)) { /* need to grow sv */ - SV *New = newSVpv("0000000000", 10); + SV *tmpNew = newSVpv("0000000000", 10); - sv_catsv(New, sv); + sv_catsv(tmpNew, sv); SvREFCNT_dec(sv); /* free old sv */ - sv = New; + sv = tmpNew; s = SvPV(sv, len); } t = s + len - 1; -- cgit v1.2.1 From dc45a647708b6c5442e1362e6b6e7a2583c30346 Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Thu, 2 Apr 1998 15:25:18 +0000 Subject: Andy Dougherty's configuration patches (Config_63-01 up to 04). p4raw-id: //depot/perl@845 --- pp.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index b266cb2579..249b909833 100644 --- a/pp.c +++ b/pp.c @@ -69,7 +69,11 @@ typedef unsigned UBW; * If they're not right on your machine, then pack() and unpack() * wouldn't work right anyway; you'll need to apply the Cray hack. * (I'd like to check them with #if, but you can't use sizeof() in - * the preprocessor.) + * the preprocessor.) --??? + */ +/* + The appropriate SHORTSIZE, INTSIZE, LONGSIZE, and LONGLONGSIZE + defines are now in config.h. --Andy Dougherty April 1998 */ #define SIZE16 2 #define SIZE32 4 -- cgit v1.2.1 From 849ca7eee6afa65773d8d77f064fee661fdef5f4 Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Thu, 19 Mar 1998 15:28:02 -0600 Subject: Stale SP in pp_substr p4raw-id: //depot/perl@848 --- pp.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'pp.c') diff --git a/pp.c b/pp.c index 249b909833..f2a6141eb4 100644 --- a/pp.c +++ b/pp.c @@ -1780,6 +1780,7 @@ PP(pp_substr) len = POPi; pos = POPi; sv = POPs; + PUTBACK; tmps = SvPV(sv, curlen); if (pos >= arybase) { pos -= arybase; @@ -1846,6 +1847,7 @@ PP(pp_substr) LvTARGLEN(TARG) = rem; } } + SPAGAIN; PUSHs(TARG); /* avoid SvSETMAGIC here */ RETURN; } -- cgit v1.2.1 From 1930e9396af9d9fc0058435c827d67f591aa4e03 Mon Sep 17 00:00:00 2001 From: Tom Phoenix Date: Sat, 28 Mar 1998 07:26:46 -0800 Subject: Re: Odd number of elements in hash list. p4raw-id: //depot/perl@858 --- pp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index f2a6141eb4..3dc5a72b51 100644 --- a/pp.c +++ b/pp.c @@ -2489,7 +2489,7 @@ PP(pp_anonhash) if (MARK < SP) sv_setsv(val, *++MARK); else if (dowarn) - warn("Odd number of elements in hash list"); + warn("Odd number of elements in hash assignment"); (void)hv_store_ent(hv,key,val,0); } SP = ORIGMARK; -- cgit v1.2.1