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
index 67586be2ba144cea3a2b41bc4458aabde355e613..a552b08b0a96cbea0dd148be49876ecb1dcf13a0 100644 (file)
--- a/src/mjc2wsl.java
+++ b/src/mjc2wsl.java
}
case arraylength: {
prl(createTopEStack());
- // TODO make an array length function of some sort!
- prl(createComment(
- "array length not known - LENGTH not aplicable to arrays",
- C_ERR));
- messages.message("array length not known - LENGTH not aplicable to arrays", TransMessages.M_ERR);
- prl(createComment("put 1 on the stack for consistency", C_SPEC));
- prl(createToEStack(1));
+ prl("tempb := LENGTH("+ createArray("tempa") + ");");
+ prl(createToEStack("tempb"));
break;
}
else
prl("CALL a" + counter + " END");
}
- prl("CALL Z;\nSKIP END\nENDACTIONS;\n");
+ prl("\nSKIP END\nENDACTIONS;\n");
prl(createStandardEnd());
}