cvsuser 02/05/06 22:46:46
Modified: . Configure.pl
Log:
Try feeding this to tcc.
Revision Changes Path
1.110 +10 -3 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /cvs/public/parrot/Configure.pl,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -w -r1.109 -r1.110
--- Configure.pl 7 May 2002 02:14:00 -0000 1.109
+++ Configure.pl 7 May 2002 05:46:46 -0000 1.110
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.109 2002/05/07 02:14:00 mrjoltcola Exp $
+# $Id: Configure.pl,v 1.110 2002/05/07 05:46:46 mrjoltcola Exp $
#
# Author: Brent Dax
#
@@ -77,7 +77,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.109 2002/05/07 02:14:00 mrjoltcola Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.110 2002/05/07 05:46:46 mrjoltcola Exp $' . "\n";
exit;
}
@@ -629,7 +629,14 @@
w.w = 0x04030201;
}
else {
- w.w = 0x0807060504030201;
+#if 1
+ /* See if tcc eats this */
+ w.w = 0x08070605;
+ w.w <<= 32;
+ w.w |= 0x04030201;
+#else
+ w.w = (0x0807060 << 32) | 0x504030201;
+#endif
}
for(i = 0; i < sizeof(w.b); i++) {
