X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src%2Fmjc2wsl.java;h=c45de80f96e614e9652247d1919598fca3245f79;hp=c8da105e4bff4a081b92d20fd690f4a16f6fbc64;hb=46d034455b8af0cd19a8b4eaaf179d8ba8eb7a11;hpb=16b6eee0dce46948aca7f014514d5cfc76b4774e diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java index c8da105..c45de80 100644 --- a/src/mjc2wsl.java +++ b/src/mjc2wsl.java @@ -109,12 +109,17 @@ public class mjc2wsl{ trap = 57; public String getStandardStart(){ + return getStandardStart(10); + } + + public String getStandardStart(int numWords){ StringBuilder ret = new StringBuilder( "C:\" This file automatically converted from microjava bytecode\";\n" +"C:\" with mjc2wsl v "+versionN+"\";\n"); ret.append("VAR < tempa := 0, tempb := 0, tempres :=0,\n\t"); ret.append("mjvm_locals := ARRAY(1,0), "); + ret.append("\n\tmjvm_statics := ARRAY("+numWords+",0), "); ret.append("\n mjvm_estack := < >, mjvm_mstack := < >, "); ret.append("\n mjvm_fp := 0, mjvm_sp := 0,"); ret.append("\n t_e_m_p := 0 > :"); @@ -206,6 +211,10 @@ public class mjc2wsl{ return "mjvm_locals[" + (i+1)+"]"; } + private String genStatic(int i){ + return "mjvm_statics[" + (i+1)+"]"; + } + /** * Creates a WSL comment with care to quote chars. */ @@ -293,7 +302,7 @@ public class mjc2wsl{ int numberOfWords = get4(); int mainAdr = get4(); - prl(getStandardStart()); + prl(getStandardStart(numberOfWords)); prl("SKIP;\n ACTIONS A_S_start:\n A_S_start == CALL a"+(14+mainAdr)+" END"); int op = get(); while (op >= 0) { @@ -329,8 +338,22 @@ public class mjc2wsl{ break; } - //TODO getstatic, putstatic + case getstatic:{ + prl(cmdToEStack(genStatic(get2()))); + break; + } + case putstatic: { + prl(cmdFromEStack(genStatic(get2()))); + break; + } //TODO getfield, putfield + case getfield: + case putfield:{ + prl(createComment("fields are not processed properly", C_ERR)); + message("fields are not processed properly", M_ERR); + get2(); + break; + } case const_: { prl(cmdToEStack(get4())); @@ -382,6 +405,14 @@ public class mjc2wsl{ //TODO neg, shl, shr, inc //TODO new_ newarray + case new_ : + get();//needs a short, but a byte will be taken bellow as well + case newarray :{ + prl(createComment("memory allocation not processed properly", C_ERR)); + message("memory allocation not processed properly", M_ERR); + get(); + break; + } //TODO aload, asstore, baload, bastore //TODO arraylength //TODO pop, dup, dup2