gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
mjc2wsl - call and return do not need to work with MStack
authorDoni Pracner <quinnuendo@gmail.com>
Wed, 8 Jan 2014 22:27:18 +0000 (23:27 +0100)
committerDoni Pracner <quinnuendo@gmail.com>
Wed, 8 Jan 2014 22:27:18 +0000 (23:27 +0100)
src/mjc2wsl.java

index 05a8a32fab2ee297acf28a8f17d53d57c682886d..df846c95e9ebe360daa6364dbd318b1f12ae6b5e 100644 (file)
@@ -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;
                        }
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner