# New Ticket Created by Jarkko Hietaniemi
# Please include the string: [perl #31059]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31059 >
I don't think it's fair or correct to claim pointer alignment is
four on every platform just because 32-bit HP-UX hangs in the test.
--
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
Index: parrot/config/auto/alignptrs.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/alignptrs.pl,v
retrieving revision 1.11
diff -u -r1.11 alignptrs.pl
--- parrot/config/auto/alignptrs.pl 8 Mar 2004 08:49:05 -0000 1.11
+++ parrot/config/auto/alignptrs.pl 11 Aug 2004 11:20:25 -0000
@@ -16,6 +16,7 @@
use strict;
use vars qw($description @args);
use Parrot::Configure::Step ':auto';
+use Config;
$description="Determining your minimum pointer alignment...";
@@ -26,11 +27,10 @@
return if $miniparrot;
# HP-UX 10.20/32 hangs in this test.
- # We currently don't need this configure setting,
- # so we just do not test and set some value here
- print(" not tested (4) ") if $_[1];
- Configure::Data->set(ptr_alignment => 4);
- return;
+ if ($^O eq 'hpux' && $Config{ccflags} !~ /DD64/) {
+ Configure::Data->set(ptr_alignment => 4);
+ return;
+ }
return if (defined(Configure::Data->get('ptr_alignment')));
cc_gen('config/auto/alignptrs/test_c.in');
