This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
xsubpp: wrong code
authorIlya Zakharevich <ilya@math.berkeley.edu>
Sun, 3 Aug 2003 06:19:02 +0000 (23:19 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 12 Aug 2003 12:32:29 +0000 (12:32 +0000)
Message-ID: <20030803131902.GA5146@math.berkeley.edu>

p4raw-id: //depot/perl@20650

lib/ExtUtils/xsubpp

index 647ffd7..7ae8020 100755 (executable)
@@ -1453,7 +1453,11 @@ EOF
        $xsreturn = 1 if $ret_type ne "void";
        my $num = $xsreturn;
        my $c = @outlist;
-       print "\tXSprePUSH;" if $c and not $prepush_done;
+       # (PP)CODE set different values of SP; reset to PPCODE's with 0 output
+       print "\tXSprePUSH;"    if $c and not $prepush_done;
+       # Take into account stuff already put on stack
+       print "\t++SP;"         if $c and not $prepush_done and $xsreturn;
+       # Now SP corresponds to ST($xsreturn), so one can combine PUSH and ST()
        print "\tEXTEND(SP,$c);\n" if $c;
        $xsreturn += $c;
        generate_output($var_types{$_}, $num++, $_, 0, 1) for @outlist;