Ticket #364: tt364-sparc-memalign.patch

config/init/hints/solaris.pm

@@ -101 +101 @@
         $conf->data->deltrigger( "gccversion", "solaris_ieee" );
     };
     $conf->data->settrigger( "gccversion", "solaris_ieee", $solaris_ieee_cb );
+
+    # Sparc64 Sun Pro cc has a strict default ptr_alignment of 8
+    # See TT #364
+    my $solaris_memalign_cb = sub {
+        my ( $key, $gccversion ) = @_;
+
+        if ($gccversion) {
+            # Don't know how to do this for gcc.
+        }
+        elsif ($conf->data->get('byteorder') eq '87654321') { # sun pro cc Sparc64 only
+            my $linkflags = $conf->data->get('linkflags');
+            $conf->data->add( ' ', linkflags => '-xmemalign=4s' )
+                unless $linkflags =~ /-xmemalign/;
+        }
+        $conf->data->deltrigger( "gccversion", "solaris_memalign" );
+    };
+    $conf->data->settrigger( "gccversion", "solaris_memalign", $solaris_memalign_cb );
 }
 
 1;

config/auto/alignptrs.pm

@@ -37 +37 @@
         $align = $conf->data->get('ptr_alignment');
         $result_str .= "configured: ";
     }
-    elsif ( $conf->data->get_p5('OSNAME') eq 'hpux' && $conf->data->get_p5('ccflags') !~ /DD64/ ) {
+    elsif ( $conf->data->get_p5('OSNAME') eq 'hpux'
+            && $conf->data->get_p5('ccflags') !~ /DD64/ ) {
 
         # HP-UX 10.20/32 hangs in this test.
         $align = 4;
@@ -94 +95 @@
 sub _finalize_result_str {
     my $self = shift;
     my ($align, $result_str) = @_;
-    $result_str .= " $align byte";
-    $result_str .= "s" unless $align == 1;
+    # On 8-byte ptr_alignment we cannot read 4-byte pbc's. Warn the user about it.
+    # TODO: inform the user to use --64compat for parrot. Milestone v2.6
+    if ($align > 4) {
+        $result_str .= " $align byte";
+        $result_str .= "s (Warning: 4-byte pbc's cannot be read!)";
+    }
+    else {
+        $result_str .= " $align byte";
+        $result_str .= "s" unless $align == 1;
+    }
     $self->set_result($result_str);
 }