Author: julianalbo
Date: Mon Jan 26 11:47:22 2009
New Revision: 36038
Modified:
trunk/examples/pir/pirric.pir
Log:
[pirric] fix and simplify the comparaison operators
Modified: trunk/examples/pir/pirric.pir
==============================================================================
--- trunk/examples/pir/pirric.pir (original)
+++ trunk/examples/pir/pirric.pir Mon Jan 26 11:47:22 2009
@@ -1301,24 +1301,19 @@
.return($P0)
doequal:
$P2 = self.'eval_add'(tokenizer)
- clone $P3, $P0
+ set $P3, $P0
$I0 = iseq $P3, $P2
- null $P0
- $P0 = new 'Integer'
- set $P0, $I0
- goto more
+ goto next
doless:
$P2 = self.'eval_add'(tokenizer)
- clone $P3, $P0
+ set $P3, $P0
$I0 = islt $P3, $P2
- null $P0
- $P0 = new 'Integer'
- set $P0, $I0
- goto more
+ goto next
dogreat:
$P2 = self.'eval_add'(tokenizer)
- clone $P3, $P0
+ set $P3, $P0
$I0 = isgt $P3, $P2
+next:
null $P0
$P0 = new 'Integer'
set $P0, $I0
