summaryrefslogtreecommitdiff
path: root/iperlsys.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-02-08 10:34:55 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-02-08 10:34:55 +0000
commit86058a2d0cb92466b4e8a316b21562a79c7559b9 (patch)
tree79fc2d8b5d8b0a111e3a74037359777afd1df976 /iperlsys.h
parenta43a7b9b40bf89fadd8851b90ce97e573bb2509a (diff)
downloadperl-86058a2d0cb92466b4e8a316b21562a79c7559b9.tar.gz
make EMBEDMYMALLOC the default and provide PERL_POLLUTE_MALLOC to let
them ask for insanity (untested) p4raw-id: //depot/perl@2832
Diffstat (limited to 'iperlsys.h')
-rw-r--r--iperlsys.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h
index cfdc39f9de..97f30e33b4 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -610,9 +610,15 @@ public:
#else /* PERL_OBJECT */
+#ifdef MYMALLOC
+#define PerlMem_malloc(size) Perl_malloc((size))
+#define PerlMem_realloc(buf, size) Perl_realloc((buf), (size))
+#define PerlMem_free(buf) Perl_mfree((buf))
+#else
#define PerlMem_malloc(size) malloc((size))
#define PerlMem_realloc(buf, size) realloc((buf), (size))
#define PerlMem_free(buf) free((buf))
+#endif
#endif /* PERL_OBJECT */