simon 01/09/13 07:34:29
Modified: . TODO
t euclid.pasm
Log:
From: "Gregor N. Purdy" <[EMAIL PROTECTED]>
Subject: [patch (really)] Removed opcode qualifers t/euclid.pasm to exercise opcode
inference
Revision Changes Path
1.6 +0 -5 parrot/TODO
Index: TODO
===================================================================
RCS file: /home/perlcvs/parrot/TODO,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- TODO 2001/09/13 08:39:49 1.5
+++ TODO 2001/09/13 14:34:28 1.6
@@ -8,10 +8,5 @@
Implement PMCs (!) [ This isn't actually that bad, just needs thought. ]
-Fix assembler to allow you to use something like:
- add I4, I4, 3
-rather than:
- add_i_ic I4, I4, 3
-
Abstract out bytecode-reading/writing stuff to a separate Perl module so
we can change the format without breaking the (dis)assembler.
1.2 +11 -11 parrot/t/euclid.pasm
Index: euclid.pasm
===================================================================
RCS file: /home/perlcvs/parrot/t/euclid.pasm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- euclid.pasm 2001/09/12 18:48:09 1.1
+++ euclid.pasm 2001/09/13 14:34:28 1.2
@@ -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
