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
return res;
}
return res;
}
+ private String cmdPopEStack() {
+ String res = "mjvm_estack := TAIL(mjvm_estack);";
+ if (genPrintEStackOnChange) res +="PRINT(\"eStack\",mjvm_estack);";
+ return res;
+ }
+
+
private String getTopTwo(){
return cmdFromEStack("tempa") + "\n" + cmdFromEStack("tempb");
}
private String getTopTwo(){
return cmdFromEStack("tempa") + "\n" + cmdFromEStack("tempb");
}
}
//TODO aload, asstore, baload, bastore
//TODO arraylength
}
//TODO aload, asstore, baload, bastore
//TODO arraylength
- //TODO pop, dup, dup2
+ //TODO dup, dup2
+
+ case pop : {
+ prl(cmdPopEStack());
+ break;
+ }
case jmp: {
prl("CALL a" + (counter + get2()) + ";");
case jmp: {
prl("CALL a" + (counter + get2()) + ";");