Author: paultcochrane
Date: Sun Jan 20 08:36:31 2008
New Revision: 25039
Modified:
trunk/examples/benchmarks/overload.pir
trunk/examples/pir/thr-primes.pir
Log:
[examples] Converted new Integer to new 'Integer' as per RT#48024
Modified: trunk/examples/benchmarks/overload.pir
==============================================================================
--- trunk/examples/benchmarks/overload.pir (original)
+++ trunk/examples/benchmarks/overload.pir Sun Jan 20 08:36:31 2008
@@ -10,9 +10,9 @@
.local pmc r
.local pmc a
.local pmc b
- a = new Integer
- b = new Integer
- r = new Integer
+ a = new 'Integer'
+ b = new 'Integer'
+ r = new 'Integer'
a = 7
b = 6
i = 1
Modified: trunk/examples/pir/thr-primes.pir
==============================================================================
--- trunk/examples/pir/thr-primes.pir (original)
+++ trunk/examples/pir/thr-primes.pir Sun Jan 20 08:36:31 2008
@@ -80,7 +80,7 @@
# 10 my $kid = new threads(\&check_num, $stream, 2);
Check_num = global "_check_num"
kid = new ParrotThread
- $P2 = new Integer
+ $P2 = new 'Integer'
$P2 = 2
kid.'run_clone'(Check_num, Check_num, stream, $P2)
@@ -89,7 +89,7 @@
i = 3
lp:
# 13 $stream->enqueue($i);
- $P3 = new Integer
+ $P3 = new 'Integer'
$P3 = i
push stream, $P3
inc i
@@ -125,7 +125,7 @@
$I0 = defined Num
unless $I0 goto ewhile
# 24 next unless $num % $cur_prime;
- $P0 = new Integer
+ $P0 = new 'Integer'
$P0 = Num % cur_prime
unless $P0 goto lp
# 25 if ($kid) {
