Change 14292 by jhi@alpha on 2002/01/15 20:06:49
Subject: [PATCH] Add Slab_Free to embed.fnc
From: "Mattia Barbon" <[EMAIL PROTECTED]>
Date: Tue, 15 Jan 2002 21:59:19 +0100
Message-ID: <3C44A637.16602.25EB208@localhost>
Affected files ...
.... //depot/perl/embed.fnc#10 edit
.... //depot/perl/embed.h#331 edit
.... //depot/perl/proto.h#373 edit
Differences ...
==== //depot/perl/embed.fnc#10 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc.~1~ Tue Jan 15 13:15:05 2002
+++ perl/embed.fnc Tue Jan 15 13:15:05 2002
@@ -1009,6 +1009,7 @@
s |void |apply_attrs_my |HV *stash|OP *target|OP *attrs|OP **imopsp
# if defined(PL_OP_SLAB_ALLOC)
s |void* |Slab_Alloc |int m|size_t sz
+s |void |Slab_Free |void *op
# endif
#endif
==== //depot/perl/embed.h#331 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Tue Jan 15 13:15:05 2002
+++ perl/embed.h Tue Jan 15 13:15:05 2002
@@ -938,6 +938,7 @@
#define apply_attrs_my S_apply_attrs_my
# if defined(PL_OP_SLAB_ALLOC)
#define Slab_Alloc S_Slab_Alloc
+#define Slab_Free S_Slab_Free
# endif
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
@@ -2481,6 +2482,7 @@
#define apply_attrs_my(a,b,c,d) S_apply_attrs_my(aTHX_ a,b,c,d)
# if defined(PL_OP_SLAB_ALLOC)
#define Slab_Alloc(a,b) S_Slab_Alloc(aTHX_ a,b)
+#define Slab_Free(a) S_Slab_Free(aTHX_ a)
# endif
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
==== //depot/perl/proto.h#373 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Tue Jan 15 13:15:05 2002
+++ perl/proto.h Tue Jan 15 13:15:05 2002
@@ -1045,6 +1045,7 @@
STATIC void S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp);
# if defined(PL_OP_SLAB_ALLOC)
STATIC void* S_Slab_Alloc(pTHX_ int m, size_t sz);
+STATIC void S_Slab_Free(pTHX_ void *op);
# endif
#endif
End of Patch.
