This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make safesysmalloc() etc., always available; safemalloc() et al are
[perl5.git] / iperlsys.h
index 97f30e3..cfdc39f 100644 (file)
@@ -610,15 +610,9 @@ public:
 
 #else  /* PERL_OBJECT */
 
 
 #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))
 #define PerlMem_malloc(size)           malloc((size))
 #define PerlMem_realloc(buf, size)     realloc((buf), (size))
 #define PerlMem_free(buf)              free((buf))
-#endif
 
 #endif /* PERL_OBJECT */
 
 
 #endif /* PERL_OBJECT */