[svn:parrot] r42611 - trunk/examples/benchmarks

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Nov 20 22:02:37 2009
New Revision: 42611
URL: https://trac.parrot.org/parrot/changeset/42611

Log:
[examples] fix primes.pasm to show the same "last is" as the other versions

Modified:
   trunk/examples/benchmarks/primes.pasm

Modified: trunk/examples/benchmarks/primes.pasm
==============================================================================
--- trunk/examples/benchmarks/primes.pasm	Fri Nov 20 20:30:35 2009	(r42610)
+++ trunk/examples/benchmarks/primes.pasm	Fri Nov 20 22:02:37 2009	(r42611)
@@ -26,6 +26,8 @@
 
     new     P6, 'Integer'
     set     P6, 0
+    new     P7, 'Integer'
+
     print   "N primes up to "
     print   P2
     print   " is: "
@@ -48,10 +50,10 @@
     branch  NEXT
 OK:
     inc     P3
-    lt      P3, P4, LOOP
+    le      P3, P4, LOOP
     # We haven't found a factor so it must be a prime
     inc     P6
-    set     P7, P1
+    assign  P7, P1
     # print I1
     # print "\n"    # to get them all