Add Slab_Free to embed.fnc

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

p4raw-id: //depot/perl@14292

3 files changed, 4 insertions, 0 deletions

diff --git a/embed.fnc b/embed.fnc
index 7f71e156db..2388e32257 100644
--- 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 b6ee614843..bbae4f1e70 100644
--- 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 af62a358a1..fc67d8eafa 100644
--- 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