diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-12-02 03:28:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-12-02 03:28:23 +0000 |
| commit | 910dfcc863de04bd9adf089d5f905cb1c045b99f (patch) | |
| tree | 55a26907d0b583d68d12c365aa6889ddfb9e3b8f /win32/makedef.pl | |
| parent | e5b7f3f7ee14e78d59c96182925cfc4f24c01fe8 (diff) | |
| download | perl-910dfcc863de04bd9adf089d5f905cb1c045b99f.tar.gz | |
[win32] various hacks to get mingw32 to build. Sync Makefile with makefile.mk.
makegcc.mk to be merged into makefile.mk soon.
p4raw-id: //depot/win32/perl@346
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 |