Fixed bug in recursive proc calls

neilsf · Oct 28, 2020 · 3ab2e7c · 3ab2e7c
1 parent 3779441
commit 3ab2e7c
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 8 deletions.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-v2.3.05
+v2.3.06
diff --git a/source/app.d b/source/app.d
@@ -27,7 +27,7 @@ string listfile="";
  * Version
  */
 
-string compiler_version = "v2.3.05";
+string compiler_version = "v2.3.06";
 
 /**
  * Application entry point

diff --git a/source/statement/call_stmt.d b/source/statement/call_stmt.d
@@ -25,6 +25,13 @@ class Call_stmt:Stmt
             }
             this.program.error(error);
         }
+
+        bool recursive = false;
+        if(lbl == this.program.current_proc_name) {
+            recursive = true;
+            this.program.appendProgramSegment(this.program.push_locals());
+        }
+
         Procedure proc = this.program.findProcedure(lbl);
         if(this.node.children[0].children.length > 1) {
             ParseTree exprlist = this.node.children[0].children[1];
@@ -45,12 +52,6 @@ class Call_stmt:Stmt
             }
         }
 
-        bool recursive = false;
-        if(lbl == this.program.current_proc_name) {
-            recursive = true;
-            this.program.appendProgramSegment(this.program.push_locals());
-        }
-
         this.program.appendProgramSegment("\tjsr " ~ proc.getLabel() ~ "\n");
 
         if(recursive) {