[perl #31059] [PATCH] pointer alignment

[via RT]

# 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');