From 77004dee2553ce034a8a58b2b2849e3656df46c3 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 2 May 2006 15:55:25 +0000 Subject: Fix bug in DynaLoader, which has been passing a filename in dynamic storage to newXS() seemingly forever. This involves creating newXS_flags(), with the first flag being "arrange to copy the filename and free it at the right time". p4raw-id: //depot/perl@28063 --- embed.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 7000eb0d12..5f0c6b25ab 100644 --- a/embed.h +++ b/embed.h @@ -542,6 +542,7 @@ #define newSLICEOP Perl_newSLICEOP #define newSTATEOP Perl_newSTATEOP #define newSUB Perl_newSUB +#define newXS_flags Perl_newXS_flags #define newXS Perl_newXS #define newAV Perl_newAV #define newAVREF Perl_newAVREF @@ -2709,6 +2710,7 @@ #define newSLICEOP(a,b,c) Perl_newSLICEOP(aTHX_ a,b,c) #define newSTATEOP(a,b,c) Perl_newSTATEOP(aTHX_ a,b,c) #define newSUB(a,b,c,d) Perl_newSUB(aTHX_ a,b,c,d) +#define newXS_flags(a,b,c,d,e) Perl_newXS_flags(aTHX_ a,b,c,d,e) #define newXS(a,b,c) Perl_newXS(aTHX_ a,b,c) #define newAV() Perl_newAV(aTHX) #define newAVREF(a) Perl_newAVREF(aTHX_ a) -- cgit v1.2.1