Add Slab_Free to embed.fnc

Message-ID: <3C44A637.16602.25EB208@localhost>

p4raw-id: //depot/perl@14292

diff --git a/embed.fnc b/embed.fnc
index 7f71e15..2388e32 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1009,6 +1009,7 @@ s |void   |apply_attrs    |HV *stash|SV *target|OP *attrs|bool for_my
 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
 

diff --git a/embed.h b/embed.h
index b6ee614..bbae4f1 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -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)

diff --git a/proto.h b/proto.h
index af62a35..fc67d8e 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1045,6 +1045,7 @@ STATIC void       S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my);
 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