[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