revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source

[p5sagit/p5-mst-13.2.git] / perly_c.diff

diff --git a/perly_c.diff b/perly_c.diff
index 7ade2f3..f42a10c 100644 (file)
--- 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);
   }