diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-10 20:42:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-10 20:42:40 +0000 |
| commit | 11b9c9ab23dee98050c094a6a3713808e3e180cf (patch) | |
| tree | 26af37f6b40806cfedd24504ae354c5b90d4c471 /perly_c.diff | |
| parent | dda061f299f6b87abed2423b4de87ce8ef198c71 (diff) | |
| download | perl-11b9c9ab23dee98050c094a6a3713808e3e180cf.tar.gz | |
revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source
compatibility; introduce SAVEDESTRUCTOR_X() that accepts
void(*)(pTHX_ void*)
p4raw-id: //depot/perl@4339
Diffstat (limited to 'perly_c.diff')
| -rw-r--r-- | perly_c.diff | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/perly_c.diff b/perly_c.diff index 7ade2f3b01..f42a10c9ef 100644 --- a/perly_c.diff +++ b/perly_c.diff @@ -134,7 +134,7 @@ yyaccept: ! return (0); } ---- 2524,2570 ---- +--- 2524,2550 ---- #endif if (yyssp >= yyss + yystacksize - 1) { @@ -161,24 +161,4 @@ ! retval = 1; yyaccept: ! return retval; -! } -! -! #ifdef PERL_OBJECT -! #define NO_XSLOCKS -! #include "XSUB.h" -! #endif -! -! static void -! yydestruct(pTHXo_ void *ptr) -! { -! struct ysv* ysave = (struct ysv*)ptr; -! if (ysave->yyss) Safefree(ysave->yyss); -! if (ysave->yyvs) Safefree(ysave->yyvs); -! yydebug = ysave->oldyydebug; -! yynerrs = ysave->oldyynerrs; -! yyerrflag = ysave->oldyyerrflag; -! yychar = ysave->oldyychar; -! yyval = ysave->oldyyval; -! yylval = ysave->oldyylval; -! Safefree(ysave); } |