gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/src/mjc2wsl.java b/src/mjc2wsl.java
--- a/src/mjc2wsl.java
+++ b/src/mjc2wsl.java
ret.append("VAR < tempa := 0, tempb := 0, tempres :=0,\n");
for (int i = 0; i <= 3; i++)
ret.append("loc" + i + " := 0, ");
- ret.append("\n estack := < >, t_e_m_p := 0 > :");
+ ret.append("\n estack := < >, mstack := < >, t_e_m_p := 0 > :");
return ret.toString();
}
return "C:\"" + type + str.replace("\"", "''") + "\";";
}
+ //Expression stack
+
private String cmdToEStack(int i) {
return "estack := <" + i + " > ++ estack;";
}
return cmdFromEStack("tempa");
}
+ //Method stack
+
+ private String cmdToMStack(int i) {
+ return "mstack := <" + i + " > ++ mstack;";
+ }
+
+ private String cmdToMStack(String i) {
+ return "mstack := <" + i + " > ++ mstack;";
+ }
+
+ private String cmdFromMStack(String st) {
+ return st + " := HEAD(mstack); mstack := TAIL(mstack);";
+ }
+
private String getRelationFor(int opcode) throws Exception {
switch (opcode) {
case jeq: return "=";
break;
}
- //TODO call
+ case call: {
+ prl(cmdToMStack(counter+2));
+ prl("CALL a" + (counter + get2()) + ";");
+ break;
+ }
case return_: {
prl(createComment("return not fully procesed yet"));