cvsuser 02/10/31 19:30:56
Modified: config/auto alignptrs.pl
Log:
Be conservative in the miniparrot case, where we can't probe at build time.
Revision Changes Path
1.7 +10 -1 parrot/config/auto/alignptrs.pl
Index: alignptrs.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/alignptrs.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- alignptrs.pl 18 Jul 2002 23:57:30 -0000 1.6
+++ alignptrs.pl 1 Nov 2002 03:30:56 -0000 1.7
@@ -6,9 +6,18 @@
$description="Determining your minimum pointer alignment...";
-@args=qw();
+@args=qw(miniparrot);
sub runstep {
+ my ($miniparrot) = @_;
+
+ if ($miniparrot) {
+ # we can't guarantee anything about pointer alignment under ANSI C89.
+ # so we will have to check every byte.
+ Configure::Data->set(ptr_alignment => 1);
+ return;
+ }
+
return if (defined(Configure::Data->get('ptr_alignment')));
cc_gen('config/auto/alignptrs/test_c.in');
cc_build();
