[svn:parrot] r40225 - in branches/bsr_jsr_ret: docs/dev t/pmc
whiteknight at svn.parrot.org
whiteknight at svn.parrot.org
Thu Jul 23 00:03:48 UTC 2009
Author: whiteknight
Date: Thu Jul 23 00:03:47 2009
New Revision: 40225
URL: https://trac.parrot.org/parrot/changeset/40225
Log:
[bsr_jsr_ret] convert more files
Modified:
branches/bsr_jsr_ret/docs/dev/jit_i386.pod
branches/bsr_jsr_ret/t/pmc/integer.t
Modified: branches/bsr_jsr_ret/docs/dev/jit_i386.pod
==============================================================================
--- branches/bsr_jsr_ret/docs/dev/jit_i386.pod Wed Jul 22 23:57:41 2009 (r40224)
+++ branches/bsr_jsr_ret/docs/dev/jit_i386.pod Thu Jul 23 00:03:47 2009 (r40225)
@@ -34,7 +34,8 @@
set I0, 10 # set_i_ic
print I0 # (call) print_i
print "\n" # print_sc
- bsr inc # (call) bsr_ic cpu_ret
+ new P1, 'ResizableIntegerArray'
+ local_branch P0, inc # (call) local_branch_p_ic cpu_ret
end # (jmp) HALT end (ret)
# end (ret)
inc:
@@ -43,7 +44,7 @@
set P0, I0 # set_p_i
print P0 # (call) print_p
print "\n" # print_sc
- ret # (call) ret cpu_ret
+ local_return P1 # (call) local_return_p cpu_ret
=end PASM
Modified: branches/bsr_jsr_ret/t/pmc/integer.t
==============================================================================
--- branches/bsr_jsr_ret/t/pmc/integer.t Wed Jul 22 23:57:41 2009 (r40224)
+++ branches/bsr_jsr_ret/t/pmc/integer.t Thu Jul 23 00:03:47 2009 (r40225)
@@ -434,47 +434,50 @@
pir_output_is( <<'CODE', <<'OUTPUT', "get_as_base(various)" );
.sub main :main
+ .local pmc jmpstack
+ jmpstack = new 'ResizableIntegerArray'
+
$P0 = new ['Integer']
$P0 = 42
$S0 = $P0.'get_as_base'(2)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(3)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(5)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(7)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(11)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(13)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(17)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(19)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(23)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(29)
- bsr PRINT
+ local_branch jmpstack, PRINT
$S0 = $P0.'get_as_base'(31)
- bsr PRINT
+ local_branch jmpstack, PRINT
goto END
PRINT:
print $S0
print "\n"
- ret
+ local_return jmpstack
END:
.end
CODE
More information about the parrot-commits
mailing list