Change 16415 by jhi@alpha on 2002/05/05 15:51:01
The #16401 was far from enough, and mostly in a wrong direction.
The right thing to do would be to convert Storable into using
the new MY_CXT scheme (no static data, and memory management
using SVs).
Affected files ...
.... //depot/perl/ext/Storable/Storable.xs#46 edit
Differences ...
==== //depot/perl/ext/Storable/Storable.xs#46 (text) ====
Index: perl/ext/Storable/Storable.xs
--- perl/ext/Storable/Storable.xs#45~16401~ Sat May 4 00:00:00 2002
+++ perl/ext/Storable/Storable.xs Sun May 5 00:00:00 2002
@@ -389,8 +389,6 @@
#endif /* MULTIPLICITY || PERL_OBJECT || PERL_CAPI */
-XS(XS_Storable_END); /* free perinterp_sv and kbuf */
-
/*
* KNOWN BUG:
* Croaking implies a memory leak, since we don't use setjmp/longjmp
@@ -5428,16 +5426,3 @@
int
is_retrieving()
-void
-END()
-PPCODE:
-{
- dSTCXT;
-#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || defined(PERL_CAPI)
- Safefree(INT2PTR(stcxt_t*, perinterp_sv));
- perinterp_sv = 0;
-#endif
- Safefree(kbuf);
- kbuf = 0;
- ksiz = 0;
-}
End of Patch.
