This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Needed for threaded builds.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 16:41:50 +0000 (16:41 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 16:41:50 +0000 (16:41 +0000)
p4raw-id: //depot/perl@15004

embed.fnc
embed.h

index 2853071..d448387 100644 (file)
--- 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 (file)
--- a/embed.h
+++ b/embed.h
 #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
 #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)