From 61b2116b4a324a590192eed179e698231a0e5cd6 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 27 Jan 2001 04:44:04 +0000 Subject: Threadedness patch for #8562 from Doug MacEachern. p4raw-id: //depot/perl@8564 --- toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index d2dd026e6c..1b41dccb4b 100644 --- a/toke.c +++ b/toke.c @@ -176,12 +176,12 @@ int yyactlevel = -1; #define OLDLOP(f) return(yylval.ival=f,PL_expect = XTERM,PL_bufptr = s,(int)LSTOP) void -S_tokereport(char *thing, char* s, I32 rv) +S_tokereport(pTHX_ char *thing, char* s, I32 rv) { SV *report; DEBUG_T({ report = newSVpv(thing, 0); - sv_catpvf(report, ":line %i:%i:", CopLINE(PL_curcop), rv); + Perl_sv_catpvf(aTHX_ report, ":line %i:%i:", CopLINE(PL_curcop), rv); if (s - PL_bufptr > 0) sv_catpvn(report, PL_bufptr, s - PL_bufptr); -- cgit v1.2.1