dan 01/09/10 08:48:36
Modified: . basic_opcodes.ops opcode_table
Log:
Added register window ops
Revision Changes Path
1.4 +64 -0 parrot/basic_opcodes.ops
Index: basic_opcodes.ops
===================================================================
RCS file: /home/perlcvs/parrot/basic_opcodes.ops,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- basic_opcodes.ops 2001/09/10 10:01:10 1.3
+++ basic_opcodes.ops 2001/09/10 15:48:36 1.4
@@ -189,6 +189,66 @@
INT_REG(P1) = number;
}
+// PUSH_I
+AUTO_OP push_i {
+ Parrot_push_i(interpreter);
+}
+
+// PUSH_N
+AUTO_OP push_n {
+ Parrot_push_n(interpreter);
+}
+
+// PUSH_S
+AUTO_OP push_s {
+ Parrot_push_s(interpreter);
+}
+
+// PUSH_P
+AUTO_OP push_p {
+ Parrot_push_p(interpreter);
+}
+
+// POP_I
+AUTO_OP pop_i {
+ Parrot_pop_i(interpreter);
+}
+
+// POP_N
+AUTO_OP pop_n {
+ Parrot_pop_n(interpreter);
+}
+
+// POP_S
+AUTO_OP pop_s {
+ Parrot_pop_s(interpreter);
+}
+
+// POP_P
+AUTO_OP pop_p {
+ Parrot_pop_p(interpreter);
+}
+
+// CLEAR_I
+AUTO_OP clear_i
+ Parrot_clear_i(interpreter);
+}
+
+// CLEAR_N
+AUTO_OP clear_n {
+ Parrot_clear_n(interpreter);
+}
+
+// CLEAR_S
+AUTO_OP clear_s {
+ Parrot_clear_s(interpreter);
+}
+
+// CLEAR_P
+AUTO_OP clear_p {
+ Parrot_clear_p(interpreter);
+}
+
// SET Sx, CONSTANT
AUTO_OP set_s_sc {
STR_REG(P1) = Parrot_string_constants[P2];
@@ -209,3 +269,7 @@
AUTO_OP chopn_s_ic {
string_chopn(STR_REG(P1), P2);
}
+
+// NOOP
+AUTO_OP noop {
+}
\ No newline at end of file
1.5 +18 -2 parrot/opcode_table
Index: opcode_table
===================================================================
RCS file: /home/perlcvs/parrot/opcode_table,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- opcode_table 2001/09/10 10:01:10 1.4
+++ opcode_table 2001/09/10 15:48:36 1.5
@@ -36,6 +36,7 @@
# String ops
31 set_s_sc 2 i i
+32 print_s 1 i
33 length_s_i 2 i i
34 chopn_s_ic 2 i i
@@ -57,10 +58,25 @@
29 iton_n_i 2 i i
30 ntoi_i_n 2 i i
-# Miscellaneous ops
+# Miscellaneous and debugging ops
3 time_i 1 i
4 print_i 1 i
22 time_n 1 i
23 print_n 1 i
-32 print_s 1 i
+47 noop 0
+
+# Register ops
+35 push_i 0
+36 push_s 0
+37 push_n 0
+38 push_p 0
+39 pop_i 0
+40 pop_s 0
+41 pop_n 0
+42 pop_p 0
+43 clear_i 0
+44 clear_s 0
+45 clear_n 0
+46 clear_p 0
+
