All --
The attached patch removes the opcode qualifiers from t/euclid.pasm
to exercise opcode inference in the new assembler.
Regards,
-- Gregor
_____________________________________________________________________
/ perl -e 'srand(-2091643526); print chr rand 90 for (0..4)' \
Gregor N. Purdy [EMAIL PROTECTED]
Focus Research, Inc. http://www.focusresearch.com/
8080 Beckett Center Drive #203 513-860-3570 vox
West Chester, OH 45069 513-860-3579 fax
\_____________________________________________________________________/
Index: t/euclid.pasm
===================================================================
RCS file: /home/perlcvs/parrot/t/euclid.pasm,v
retrieving revision 1.1
diff -u -r1.1 euclid.pasm
--- t/euclid.pasm 2001/09/12 18:48:09 1.1
+++ t/euclid.pasm 2001/09/13 14:24:50
@@ -19,15 +19,15 @@
# E2: Is it zero?
# E3: Reduce.
#
-MAIN: set_i_ic I1, 96
- set_i_ic I2, 64
- set_i_ic I3, 0
- set_s_sc S1, "Algorithm E (Euclid's algorithm)"
- print_s S1
-E1: mod_i I4, I1, I2
-E2: eq_i_ic I4, I3, DONE, E3
-E3: set_i I1, I2
- set_i I2, I4
- branch_ic E1
-DONE: print_i I2
+main: set I1, 96
+ set I2, 64
+ set I3, 0
+ set S1, "Algorithm E (Euclid's algorithm)"
+ print S1
+e1: mod I4, I1, I2
+e2: eq I4, I3, done, e3
+e3: set I1, I2
+ set I2, I4
+ branch e1
+done: print I2
end
