From: Jarkko Hietaniemi Date: Mon, 4 Mar 2002 16:41:50 +0000 (+0000) Subject: Needed for threaded builds. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8722fe504effb91d8ed38997eee22ccbc87796ef;p=p5sagit%2Fp5-mst-13.2.git Needed for threaded builds. p4raw-id: //depot/perl@15004 --- diff --git a/embed.fnc b/embed.fnc index 2853071..d448387 100644 --- a/embed.fnc +++ b/embed.fnc @@ -160,6 +160,7 @@ Ap |I32 |debstackptrs Ap |char* |delimcpy |char* to|char* toend|char* from \ |char* fromend|int delim|I32* retlen p |void |deprecate |char* s +p |void |deprecate_old |char* s Afp |OP* |die |const char* pat|... p |OP* |vdie |const char* pat|va_list* args p |OP* |die_where |char* message|STRLEN msglen diff --git a/embed.h b/embed.h index 2500263..2c0256f 100644 --- a/embed.h +++ b/embed.h @@ -157,6 +157,7 @@ #define debstackptrs Perl_debstackptrs #define delimcpy Perl_delimcpy #define deprecate Perl_deprecate +#define deprecate_old Perl_deprecate_old #define die Perl_die #define vdie Perl_vdie #define die_where Perl_die_where @@ -1718,6 +1719,7 @@ #define debstackptrs() Perl_debstackptrs(aTHX) #define delimcpy(a,b,c,d,e,f) Perl_delimcpy(aTHX_ a,b,c,d,e,f) #define deprecate(a) Perl_deprecate(aTHX_ a) +#define deprecate_old(a) Perl_deprecate_old(aTHX_ a) #define vdie(a,b) Perl_vdie(aTHX_ a,b) #define die_where(a,b) Perl_die_where(aTHX_ a,b) #define dounwind(a) Perl_dounwind(aTHX_ a)