From: Doni Pracner Date: Wed, 8 Jan 2014 22:27:18 +0000 (+0100) Subject: mjc2wsl - call and return do not need to work with MStack X-Git-Tag: v0.1.4~30 X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=commitdiff_plain;h=07e4f84fba5ff6c4714b9ddacabff2d9bea57326 mjc2wsl - call and return do not need to work with MStack --- diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java index 05a8a32..df846c9 100644 --- a/src/mjc2wsl.java +++ b/src/mjc2wsl.java @@ -406,16 +406,13 @@ public class mjc2wsl{ } case call: { - prl(cmdToMStack(counter+2)); prl("CALL a" + (counter + get2()) + ";"); break; } case return_: { - prl("IF EMPTY?(mjvm_mstack) THEN CALL Z ELSE"); + prl("IF EMPTY?(mjvm_mstack) THEN CALL Z FI"); //else we let things return - prl(cmdFromMStack("tempa")); - prl("SKIP FI"); prl("END b"+counter+" =="); break; }