diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-08 13:23:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-08 13:23:16 +0000 |
| commit | f25172013443eb112285f24a09b83900edb8a738 (patch) | |
| tree | 678f9789da4edbccaa4836270985332e36f7f449 /vms/gen_shrfls.pl | |
| parent | 651b9576cc8d7812bbcba060854ec8a56f698aae (diff) | |
| download | perl-f25172013443eb112285f24a09b83900edb8a738.tar.gz | |
make safesysmalloc() etc., always available; safemalloc() et al are
now macros that point to the right malloc; fix various places in
sources that need to always use safesysmalloc() et al
p4raw-id: //depot/perl@2834
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index f6906c51c9..8e89348ae4 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -73,7 +73,6 @@ if ($docc) { open CONFIG, "< $config"; while(<CONFIG>) { $debugging_enabled++ if /define\s+DEBUGGING/; - $hide_mymalloc++ if /define\s+EMBEDMYMALLOC/; $use_mymalloc++ if /define\s+MYMALLOC/; } @@ -203,7 +202,7 @@ if ($use_mymalloc) { $fcns{'Perl_malloc'}++; $fcns{'Perl_calloc'}++; $fcns{'Perl_realloc'}++; - $fcns{'Perl_myfree'}++; + $fcns{'Perl_mfree'}++; } $used_expectation_enum = $used_opcode_enum = 0; # avoid warnings |