From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Tue, 15 Jan 2002 21:59:19 +0000 (+0100)
Subject: Add Slab_Free to embed.fnc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76555ca36e45bbec899cfa02b3b906b3689f2d74;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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