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
prl(cmdToEStack("-tempa"));
break;
}
- //TODO shl, shr
-
+
+ case shl : {
+ prl(getTopTwo());
+ prl("VAR <tempres :=tempb, i:=1 >:");
+ prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres * 2 OD;");
+ prl(cmdToEStack("tempres"));
+ prl("ENDVAR;");
+ break;
+ }
+ case shr : {
+ prl(getTopTwo());
+ prl("VAR <tempres :=tempb, i:=1 >:");
+ prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres DIV 2 OD;");
+ prl(cmdToEStack("tempres"));
+ prl("ENDVAR;");
+ break;
+ }
+
case inc : {
int b1 = get(), b2 = get();
prl(loc(b1)+" := " +loc(b1)+" + "+b2+";");