summaryrefslogtreecommitdiff
path: root/win32/config_sh.PL
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2014-09-17 13:36:30 +0100
committerSteve Hay <steve.m.hay@googlemail.com>2014-09-17 13:36:30 +0100
commit683f916dc8c779d9dc0d2d7c8f17d87057b96067 (patch)
tree28a32e71afc33ba80e56dafd686643d69135e18d /win32/config_sh.PL
parent14cc26575f1bb449ef9962cb021f889389423dbd (diff)
downloadperl-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.PL26
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';