diff options
Diffstat (limited to 'win32/makedef.pl')
| -rw-r--r-- | win32/makedef.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/win32/makedef.pl b/win32/makedef.pl index 1bda71e722..eb33f6677e 100644 --- a/win32/makedef.pl +++ b/win32/makedef.pl @@ -14,10 +14,13 @@ # that does not present in the WIN32 port but there is no easy # way to find them so I just put a exception list here -while (@ARGV && $ARGV[0] =~ /^-/) +my $CCTYPE = "MSVC"; # default + +while (@ARGV) { my $flag = shift; $define{$1} = 1 if ($flag =~ /^-D(\w+)$/); + $CCTYPE = $1 if ($flag =~ /^CCTYPE=(\w+)$/); } open(CFG,'config.h') || die "Cannot open config.h:$!"; @@ -29,8 +32,6 @@ close(CFG); warn join(' ',keys %define)."\n"; -my $CCTYPE = shift || "MSVC"; - if ($CCTYPE ne 'GCC') { print "LIBRARY Perl\n"; @@ -235,7 +236,11 @@ Perl_sv_true Perl_sv_uv Perl_sv_pvn Perl_newRV_noinc)]; + } +unless ($define{'FAKE_THREADS'}) + { + skip_symbols [qw(Perl_curthr)]; } sub readvar |