X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src%2Fmjc2wsl.java;h=18551d13e89223770ff6ec177ef117d30645b74f;hp=5472d5564234d3b689bcc9ad26f908e0361c2ef7;hb=9ad77207956d30c4ad2e3020d389989777e5b7b4;hpb=e8be41bd1cfa257e30acb6b86b3228aecc64776d

diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java
index 5472d55..18551d1 100644
--- a/src/mjc2wsl.java
+++ b/src/mjc2wsl.java
@@ -570,12 +570,11 @@ public class mjc2wsl{
 			}
 			case astore:
 			case bastore: {
+				prl(createStartVar("tempa", "tempb", "tempres"));
 				prl(createFromEStack("tempres"));
 				prl(createTopTwoEStack());
-				// we need to use a temparray as a pointer, WSL
-				// otherwise tries to access it as a list of lists and fails
-				prl("VAR < tempArray := " + createArray("tempb") + " > :");
-				prl("tempArray[tempa+1]:=tempres ENDVAR;");
+				prl("mjvm_arrays[tempb][tempa+1]:=tempres;");
+				prl(createEndVar());
 				break;
 			}
 			case arraylength: {