cvsuser 01/09/16 08:49:23
Modified: . basic_opcodes.ops opcode_table
Log:
At Dan's request, my new register-constant comparison ops have been
removed.
Revision Changes Path
1.17 +0 -153 parrot/basic_opcodes.ops
Index: basic_opcodes.ops
===================================================================
RCS file: /home/perlcvs/parrot/basic_opcodes.ops,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- basic_opcodes.ops 2001/09/15 20:46:36 1.16
+++ basic_opcodes.ops 2001/09/16 15:49:22 1.17
@@ -56,15 +56,6 @@
}
}
-/* EQ Ix, CONSTANT, EQ_BRANCH, NE_BRANCH */
-MANUAL_OP eq_ic_ic {
- if (INT_REG(P1) == P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
/* NE Ix, Iy, NE_BRANCH, EQ_BRANCH */
MANUAL_OP ne_i_ic {
if (INT_REG(P1) != INT_REG(P2)) {
@@ -74,15 +65,6 @@
}
}
-/* NE Ix, CONSTANT, NE_BRANCH, EQ_BRANCH */
-MANUAL_OP ne_ic_ic {
- if (INT_REG(P1) != P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
/* LT Ix, Iy, LT_BRANCH, GE_BRANCH */
MANUAL_OP lt_i_ic {
if (INT_REG(P1) < INT_REG(P2)) {
@@ -92,15 +74,6 @@
}
}
-/* LT Ix, CONSTANT, LT_BRANCH, GE_BRANCH */
-MANUAL_OP lt_ic_ic {
- if (INT_REG(P1) < P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
/* LE Ix, Iy, LE_BRANCH, GT_BRANCH */
MANUAL_OP le_i_ic {
if (INT_REG(P1) <= INT_REG(P2)) {
@@ -110,15 +83,6 @@
}
}
-/* LE Ix, CONSTANT, LE_BRANCH, GT_BRANCH */
-MANUAL_OP le_ic_ic {
- if (INT_REG(P1) <= P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
/* GT Ix, Iy, GT_BRANCH, LE_BRANCH */
MANUAL_OP gt_i_ic {
if (INT_REG(P1) > INT_REG(P2)) {
@@ -128,15 +92,6 @@
}
}
-/* GT Ix, CONSTANT, GT_BRANCH, LE_BRANCH */
-MANUAL_OP gt_ic_ic {
- if (INT_REG(P1) > P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
/* GE Ix, Iy, GE_BRANCH, LT_BRANCH */
MANUAL_OP ge_i_ic {
if (INT_REG(P1) >= INT_REG(P2)) {
@@ -146,15 +101,6 @@
}
}
-/* GE Ix, CONSTANT, GE_BRANCH, LT_BRANCH */
-MANUAL_OP ge_ic_ic {
- if (INT_REG(P1) >= P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
/* IF IXx, TRUE_BRANCH, FALSE_BRANCH */
MANUAL_OP if_i_ic {
if (INT_REG(P1)) {
@@ -247,105 +193,6 @@
/* EQ Nx, Ny, EQ_BRANCH, NE_BRANCH */
MANUAL_OP eq_n_ic {
if (NUM_REG(P1) == NUM_REG(P2)) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* EQ Nx, CONSTANT, EQ_BRANCH, NE_BRANCH */
-MANUAL_OP eq_nc_ic {
- if (NUM_REG(P1) == P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* NE Nx, Ny, NE_BRANCH, EQ_BRANCH */
-MANUAL_OP ne_n_ic {
- if (NUM_REG(P1) != NUM_REG(P2)) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* NE Nx, CONSTANT, NE_BRANCH, EQ_BRANCH */
-MANUAL_OP ne_nc_ic {
- if (NUM_REG(P1) != P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* LT Nx, Ny, LT_BRANCH, GE_BRANCH */
-MANUAL_OP lt_n_ic {
- if (NUM_REG(P1) < NUM_REG(P2)) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* LT Nx, CONSTANT, LT_BRANCH, GE_BRANCH */
-MANUAL_OP lt_nc_ic {
- if (NUM_REG(P1) < P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* LE Nx, Ny, LE_BRANCH, GT_BRANCH */
-MANUAL_OP le_n_ic {
- if (NUM_REG(P1) <= NUM_REG(P2)) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* LE Nx, CONSTANT, LE_BRANCH, GT_BRANCH */
-MANUAL_OP le_nc_ic {
- if (NUM_REG(P1) <= P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* GT Nx, Ny, GT_BRANCH, LE_BRANCH */
-MANUAL_OP gt_n_ic {
- if (NUM_REG(P1) > NUM_REG(P2)) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* GT Nx, CONSTANT, GT_BRANCH, LE_BRANCH */
-MANUAL_OP gt_nc_ic {
- if (NUM_REG(P1) > P2) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* GE Nx, Ny, GE_BRANCH, LT_BRANCH */
-MANUAL_OP ge_n_ic {
- if (NUM_REG(P1) >= NUM_REG(P2)) {
- RETURN(P3);
- } else {
- RETURN(P4);
- }
-}
-
-/* GE Nx, CONSTANT, GE_BRANCH, LT_BRANCH */
-MANUAL_OP ge_nc_ic {
- if (NUM_REG(P1) >= P2) {
RETURN(P3);
} else {
RETURN(P4);
1.15 +2 -20 parrot/opcode_table
Index: opcode_table
===================================================================
RCS file: /home/perlcvs/parrot/opcode_table,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- opcode_table 2001/09/15 20:46:36 1.14
+++ opcode_table 2001/09/16 15:49:22 1.15
@@ -59,33 +59,15 @@
chopn_s_ic 2 S i
substr_s_s_i 4 S S I I
-# Comparators (TODO: String comparators)
+# Comparators
eq_i_ic 4 I I D D
-eq_ic_ic 4 I i D D
+eq_n_ic 4 N N D D
ne_i_ic 4 I I D D
-ne_ic_ic 4 I i D D
lt_i_ic 4 I I D D
-lt_ic_ic 4 I i D D
le_i_ic 4 I I D D
-le_ic_ic 4 I i D D
gt_i_ic 4 I I D D
-gt_ic_ic 4 I i D D
ge_i_ic 4 I I D D
-ge_ic_ic 4 I i D D
-
-eq_n_ic 4 N N D D
-eq_nc_ic 4 N n D D
-ne_n_ic 4 N N D D
-ne_nc_ic 4 N n D D
-lt_n_ic 4 N N D D
-lt_nc_ic 4 N n D D
-le_n_ic 4 N N D D
-le_nc_ic 4 N n D D
-gt_n_ic 4 N N D D
-gt_nc_ic 4 N n D D
-ge_n_ic 4 N N D D
-ge_nc_ic 4 N n D D
# Flow control
