# 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); } /*