cvsuser 02/01/03 16:43:23
Modified: . Configure.pl
Log:
64-bit Fix.
Courtesy of "Bryan C. Warnock" <[EMAIL PROTECTED]>
Revision Changes Path
1.66 +8 -8 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -w -r1.65 -r1.66
--- Configure.pl 2 Jan 2002 16:27:42 -0000 1.65
+++ Configure.pl 4 Jan 2002 00:43:23 -0000 1.66
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.65 2002/01/02 16:27:42 dan Exp $
+# $Id: Configure.pl,v 1.66 2002/01/04 00:43:23 dan Exp $
#
# Author: Brent Dax
#
@@ -42,7 +42,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.65 2002/01/02 16:27:42 dan Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.66 2002/01/04 00:43:23 dan Exp $' . "\n";
exit;
}
@@ -141,11 +141,11 @@
debugging => $opt_debugging,
rm_f => 'rm -f',
rm_rf => 'rm -rf',
- stacklow => '(~0xfff)U',
- intlow => '(~0xfff)U',
- numlow => '(~0xfff)U',
- strlow => '(~0xfff)U',
- pmclow => '(~0xfff)U',
+ stacklow => '(~0xfff)UL',
+ intlow => '(~0xfff)UL',
+ numlow => '(~0xfff)UL',
+ strlow => '(~0xfff)UL',
+ pmclow => '(~0xfff)UL',
make => $Config{make},
make_set_make => $Config{make_set_make},
@@ -701,7 +701,7 @@
my $vector = unpack("b*", pack("V", $_));
my $offset = rindex($vector, "1")+1;
my $mask = 2**$offset - 1;
- push @returns, "(~0x".sprintf("%x", $mask)."U)";
+ push @returns, "(~0x".sprintf("%x", $mask)."UL)";
}
return @returns;
