X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makedef.pl;h=db9994578052056abd608c98b74c60688c8cb15d;hb=f91101c94610d6a9ffa5537a656223948d7d5d1f;hp=eaeb269a8d7100f6ca841fb1a00c18beb1cfdbac;hpb=18c4b137c9980e718512bda9b795c3430bccd5f4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makedef.pl b/makedef.pl
index eaeb269..db99945 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -344,6 +344,7 @@ else {
 if ($define{'MYMALLOC'}) {
     emit_symbols [qw(
 		    Perl_dump_mstats
+		    Perl_get_mstats
 		    Perl_malloc
 		    Perl_mfree
 		    Perl_realloc
@@ -499,14 +500,13 @@ for my $syms (@syms) {
 # variables
 
 if ($define{'PERL_OBJECT'} || $define{'MULTIPLICITY'}) {
-    for my $f ($perlvars_h) {
+    for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
 	my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
 	emit_symbols $glob;
-	$glob = readvar($f);
-	emit_symbols $glob;
     }
-    for my $f ($intrpvar_h, $thrdvar_h) {
-	my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
+    # XXX AIX seems to want the perlvars.h symbols, for some reason
+    if ($PLATFORM eq 'aix') {
+	my $glob = readvar($perlvars_h);
 	emit_symbols $glob;
     }
 }