diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2014-09-17 13:36:30 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-09-17 13:36:30 +0100 |
commit | 683f916dc8c779d9dc0d2d7c8f17d87057b96067 (patch) | |
tree | 28a32e71afc33ba80e56dafd686643d69135e18d /win32/config_sh.PL | |
parent | 14cc26575f1bb449ef9962cb021f889389423dbd (diff) | |
download | perl-683f916dc8c779d9dc0d2d7c8f17d87057b96067.tar.gz |
Remove pointless variable in win32/config_sh.PL
$int64f is always 'I64' since 6e75769d30 so there is no longer any point
in it.
Diffstat (limited to 'win32/config_sh.PL')
-rw-r--r-- | win32/config_sh.PL | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 985c99a75b..f20be972fe 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -114,14 +114,12 @@ $opt{usemymalloc} = 'y' if $opt{d_mymalloc} eq 'define'; $opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth}; $opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath}; -my($int64, $int64f); +my $int64; if ($opt{cc} =~ /\b(?:cl|icl)/) { $int64 = '__int64'; - $int64f = 'I64'; } elsif ($opt{cc} =~ /\bgcc\b/) { $int64 = 'long long'; - $int64f = 'I64'; } # set large files options @@ -155,22 +153,22 @@ else { } if ($opt{use64bitint} eq 'define') { $opt{d_nv_preserves_uv} = 'undef'; - $opt{ivdformat} = qq{"${int64f}d"}; + $opt{ivdformat} = qq{"I64d"}; $opt{ivsize} = 8; $opt{ivtype} = $int64; $opt{nv_preserves_uv_bits} = 53; - $opt{sPRIXU64} = qq{"${int64f}X"}; - $opt{sPRId64} = qq{"${int64f}d"}; - $opt{sPRIi64} = qq{"${int64f}i"}; - $opt{sPRIo64} = qq{"${int64f}o"}; - $opt{sPRIu64} = qq{"${int64f}u"}; - $opt{sPRIx64} = qq{"${int64f}x"}; - $opt{uvXUformat} = qq{"${int64f}X"}; - $opt{uvoformat} = qq{"${int64f}o"}; + $opt{sPRIXU64} = qq{"I64X"}; + $opt{sPRId64} = qq{"I64d"}; + $opt{sPRIi64} = qq{"I64i"}; + $opt{sPRIo64} = qq{"I64o"}; + $opt{sPRIu64} = qq{"I64u"}; + $opt{sPRIx64} = qq{"I64x"}; + $opt{uvXUformat} = qq{"I64X"}; + $opt{uvoformat} = qq{"I64o"}; $opt{uvsize} = 8; $opt{uvtype} = qq{unsigned $int64}; - $opt{uvuformat} = qq{"${int64f}u"}; - $opt{uvxformat} = qq{"${int64f}x"}; + $opt{uvuformat} = qq{"I64u"}; + $opt{uvxformat} = qq{"I64x"}; } else { $opt{d_nv_preserves_uv} = 'define'; |