# library has everything old one did
# (i.e. /Define=DEBUGGING,EMBED,MULTIPLICITY)?
#
-# Author: Charles Bailey bailey@genetics.upenn.edu
+# Author: Charles Bailey bailey@newman.upenn.edu
require 5.000;
open CONFIG, "< $config";
while(<CONFIG>) {
$debugging_enabled++ if /define\s+DEBUGGING/;
- $hide_mymalloc++ if /define\s+EMBEDMYMALLOC/;
$use_mymalloc++ if /define\s+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
}
close CPP;
-
+# This was:
# Kluge to determine whether we need to add EMBED prefix to
# symbols read from local list. vmsreaddirversions() is a VMS-
# specific function whose Perl_ prefix is added in vmsish.h
# if EMBED is #defined.
-$embed = exists($fcns{'Perl_vmsreaddirversions'}) ? 'Perl_' : '';
+#
+# but now we always define EMBED, so it's not a big deal any more
while (<DATA>) {
next if /^#/;
s/\s+#.*\n//;
next if /^\s*$/;
($key,$array) = split('=',$_);
- $key = "$embed$key";
+ if ($array eq 'vars') {
+ $key = "PL_$key";
+ } else {
+ $key = "Perl_$key";
+ }
print "Adding $key to \%$array list\n" if $debug > 1;
${$array}{$key}++;
}
__END__
# Oddball cases, so we can keep the perl.h scan above simple
-rcsid=vars # declared in perl.c
regkind=vars # declared in regcomp.h
simple=vars # declared in regcomp.h
varies=vars # declared in regcomp.h
-watchaddr=vars # declared in run.c
-watchok=vars # declared in run.c
-yychar=vars # generated by byacc in perly.c
-yycheck=vars # generated by byacc in perly.c
-yydebug=vars # generated by byacc in perly.c
-yydefred=vars # generated by byacc in perly.c
-yydgoto=vars # generated by byacc in perly.c
-yyerrflag=vars # generated by byacc in perly.c
-yygindex=vars # generated by byacc in perly.c
-yylen=vars # generated by byacc in perly.c
-yylhs=vars # generated by byacc in perly.c
-yylval=vars # generated by byacc in perly.c
-yyname=vars # generated by byacc in perly.c
-yynerrs=vars # generated by byacc in perly.c
-yyrindex=vars # generated by byacc in perly.c
-yyrule=vars # generated by byacc in perly.c
-yysindex=vars # generated by byacc in perly.c
-yytable=vars # generated by byacc in perly.c
-yyval=vars # generated by byacc in perly.c