cvsuser 02/03/17 23:45:24
Modified: . Configure.pl
Log:
Warn if you're using 64-bit ints on a 32-bit system.
Revision Changes Path
1.98 +16 -5 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -w -r1.97 -r1.98
--- Configure.pl 16 Mar 2002 16:11:45 -0000 1.97
+++ Configure.pl 18 Mar 2002 07:45:24 -0000 1.98
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.97 2002/03/16 16:11:45 josh Exp $
+# $Id: Configure.pl,v 1.98 2002/03/18 07:45:24 brentdax Exp $
#
# Author: Brent Dax
#
@@ -77,7 +77,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.97 2002/03/16 16:11:45 josh Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.98 2002/03/18 07:45:24 brentdax Exp $' . "\n";
exit;
}
@@ -495,6 +495,8 @@
END
+RETRY:
+
{
my %newc;
@@ -508,12 +510,23 @@
unlink('test.c');
}
+if($c{ptrsize} != $c{intvalsize}) {
+ print <<"END";
+
+Hmm, I see your chosen INTVAL isn't the same size as your pointers. Parrot should
+still compile and run, but you may see a ton of warnings. I'll give you a chance
+to change your INTVAL size.
+
+END
+
+ goto RETRY unless $c{iv} eq prompt("What should your integer type be?", 'iv');
+
print <<"END";
Figuring out the formats to pass to pack() for the various Parrot internal
types...
END
-
+}
#
# Alas perl5.7.2 doesn't have an INTVAL flag for pack().
@@ -778,8 +791,6 @@
}
$c{$field}=$input||$c{$field};
-
- print "$field=$c{$field}\n";
}
