[perl #40814] [PATCH] Assorted Solaris fixes

[via RT]

# New Ticket Created by  Steve Peters 
# Please include the string:  [perl #40814]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40814 >


The attached patches get Parrot to compile on Solaris, and fixes one
test failure.

Steve Peters
[EMAIL PROTECTED]

--- ./t/pmc/complex.t.old       Sat Nov 11 11:54:01 2006
+++ ./t/pmc/complex.t   Sat Nov 11 11:54:29 2006
@@ -1026,6 +1026,7 @@
     c = .val
     c2 = c.ln()
     str = sprintf "%f%+fi", c2
+    str = downcase str
     unless str != .res goto .$ok
     print "\nln("
     print .val
--- ./src/pmc/capture.pmc.old   Sat Nov 11 07:36:35 2006
+++ ./src/pmc/capture.pmc       Sat Nov 11 07:37:29 2006
@@ -167,42 +167,42 @@
 
     void push_float(FLOATVAL value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_push_float(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_push_float(INTERP, CAPTURE_array(SELF), value);
     }
 
     void push_integer(INTVAL value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_push_integer(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_push_integer(INTERP, CAPTURE_array(SELF), value);
     }
 
     void push_pmc(PMC *value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_push_pmc(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_push_pmc(INTERP, CAPTURE_array(SELF), value);
     }
 
     void push_string(STRING *value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_push_string(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_push_string(INTERP, CAPTURE_array(SELF), value);
     }
 
     void unshift_float(FLOATVAL value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_unshift_float(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_unshift_float(INTERP, CAPTURE_array(SELF), value);
     }
 
     void unshift_integer(INTVAL value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_unshift_integer(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_unshift_integer(INTERP, CAPTURE_array(SELF), value);
     }
 
     void unshift_pmc(PMC *value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_unshift_pmc(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_unshift_pmc(INTERP, CAPTURE_array(SELF), value);
     }
 
     void unshift_string(STRING *value) {
         CAPTURE_array_CREATE(INTERP, SELF);
-        return VTABLE_unshift_string(INTERP, CAPTURE_array(SELF), value);
+        VTABLE_unshift_string(INTERP, CAPTURE_array(SELF), value);
     }
 
 /*