Change 15004 by jhi@alpha on 2002/03/04 16:41:50
Needed for threaded builds.
Affected files ...
.... //depot/perl/embed.fnc#20 edit
.... //depot/perl/embed.h#342 edit
Differences ...
==== //depot/perl/embed.fnc#20 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc.~1~ Mon Mar 4 09:45:06 2002
+++ perl/embed.fnc Mon Mar 4 09:45:06 2002
@@ -160,6 +160,7 @@
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
==== //depot/perl/embed.h#342 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Mon Mar 4 09:45:06 2002
+++ perl/embed.h Mon Mar 4 09:45:06 2002
@@ -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)
End of Patch.
