summaryrefslogtreecommitdiff
path: root/win32/makedef.pl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-06-14 18:51:53 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-06-14 18:51:53 +0000
commit852c2e52c116ddde31d81b646561262ed796257a (patch)
treeb3b78e07e0f3600507f1a4fb651161793be13dcf /win32/makedef.pl
parent703664f229b1c364f06ceda5f2503d00e2daa04c (diff)
downloadperl-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.pl10
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;