From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Tue, 2 Jan 1996 23:21:55 +0000 (+0000)
Subject: perl 5.002beta1h patch: perl.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84ea024ac9cdf20f21223e686dddea82d5eceb4f;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002beta1h patch: perl.h

5.002beta1 attempted some memory optimizations, but unfortunately
they can result in a memory leak problem.  This can be
avoided by #define STRANGE_MALLOC.  I do that here until
consensus is reached on a better strategy for handling the
memory optimizations.

Include maxo for the maximum number of operations (needed
for the Safe extension).
---

diff --git a/perl.h b/perl.h
index f5bf952..9766e3e 100644
--- a/perl.h
+++ b/perl.h
@@ -9,6 +9,7 @@
 #ifndef H_PERL
 #define H_PERL 1
 #define OVERLOAD
+#define STRANGE_MALLOC
 
 #include "embed.h"
 
@@ -854,6 +855,7 @@ EXT U32		sub_generation;	/* inc to force methods to be looked up again */
 EXT char **	origenviron;
 EXT U32		origalen;
 EXT U32 *	profiledata;
+EXT int		maxo INIT(MAXO);/* Number of ops */
 
 EXT XPV*	xiv_arenaroot;	/* list of allocated xiv areas */
 EXT IV **	xiv_root;	/* free xiv list--shared by interpreters */