gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
array assignment simplified
authorDoni Pracner <quinnuendo@gmail.com>
Wed, 11 Jun 2014 15:02:25 +0000 (17:02 +0200)
committerDoni Pracner <quinnuendo@gmail.com>
Wed, 11 Jun 2014 15:02:25 +0000 (17:02 +0200)
src/mjc2wsl.java

index 5472d5564234d3b689bcc9ad26f908e0361c2ef7..18551d13e89223770ff6ec177ef117d30645b74f 100644 (file)
@@ -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: {
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner