diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-14 18:51:53 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-14 18:51:53 +0000 |
commit | 852c2e52c116ddde31d81b646561262ed796257a (patch) | |
tree | b3b78e07e0f3600507f1a4fb651161793be13dcf /win32/makedef.pl | |
parent | 703664f229b1c364f06ceda5f2503d00e2daa04c (diff) | |
download | perl-852c2e52c116ddde31d81b646561262ed796257a.tar.gz |
various win32 fixes
- fixes that silence VC noises about dup exports, non-default libs, and
unsupported *.def file directives
- s/inplace/inplace_label/ malloc.c
- update Config{usemymalloc} based on d_mymalloc
- export Perl_*Vars
- fix makefiles to not build miniperl.exe twice, and to make it properly
when defaults are changed
p4raw-id: //depot/perl@1129
Diffstat (limited to 'win32/makedef.pl')
-rw-r--r-- | win32/makedef.pl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/win32/makedef.pl b/win32/makedef.pl index 4e317b5d15..65e8023962 100644 --- a/win32/makedef.pl +++ b/win32/makedef.pl @@ -45,8 +45,6 @@ if ($CCTYPE ne 'GCC') { print "LIBRARY Perl\n"; print "DESCRIPTION 'Perl interpreter, export autogenerated'\n"; - print "CODE LOADONCALL\n"; - print "DATA LOADONCALL NONSHARED MULTIPLE\n"; } else { @@ -320,6 +318,8 @@ if ($define{'PERL_GLOBAL_STRUCT'}) { my $global = readvar("../perlvars.h"); skip_symbols $global; + emit_symbols [qw(Perl_GetVars)]; + emit_symbols [qw(Perl_Vars Perl_VarsPtr)] unless $CCTYPE eq 'GCC'; } unless ($define{'DEBUGGING'}) @@ -360,11 +360,7 @@ close(GLOBAL); # doesn't hurt to include them anyway. # these don't have Perl prefix -if ($define{'PERL_GLOBAL_STRUCT'}) - { - emit_symbol( ($CCTYPE eq 'GCC') ? 'Perl_GetVars' : 'Perl_VarsPtr') - } -else +unless ($define{'PERL_GLOBAL_STRUCT'}) { my $glob = readvar("../perlvars.h"); emit_symbols $glob; |