gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
mjc2wsl - proper processing of the cond jumps
authorDoni Pracner <quinnuendo@gmail.com>
Tue, 26 Nov 2013 19:47:20 +0000 (20:47 +0100)
committerDoni Pracner <quinnuendo@gmail.com>
Tue, 26 Nov 2013 19:47:20 +0000 (20:47 +0100)
src/mjc2wsl.java

index 4a30186..521be05 100644 (file)
@@ -185,8 +185,20 @@ public class mjc2wsl{
        private String getTop() {
                return cmdFromEStack("tempa");
        }
        private String getTop() {
                return cmdFromEStack("tempa");
        }
+       
+       private String getRelationFor(int opcode) throws Exception {
+                       switch (opcode) {
+                                       case jeq: return "=";
+                                       case jne: return "#";
+                                       case jlt: return "<";
+                                       case jle: return "<=";
+                                       case jgt: return ">";
+                                       case jge: return ">=";
+                       }
+                       throw new Exception("Wrong opcode for a relation");
+       }
 
 
-       public void convertStream(InputStream ins){
+       public void convertStream(InputStream ins) throws Exception{
                mainIn = ins;
                //skip start TODO make better
                for (int i = 0; i < 14; i++)
                mainIn = ins;
                //skip start TODO make better
                for (int i = 0; i < 14; i++)
@@ -249,7 +261,8 @@ public class mjc2wsl{
                        case jgt:
                        case jge: {
                                prl(getTopTwo());
                        case jgt:
                        case jge: {
                                prl(getTopTwo());
-                               prl("IF tempb >= tempa THEN CALL a" + (counter + get2())
+                               prl("IF tempb "+ getRelationFor(op)
+                                               +" tempa THEN CALL a" + (counter + get2())
                                                + " FI;");
                                break;
                        }
                                                + " FI;");
                                break;
                        }
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner