'RTI'/'RTS' FORWARD Procedure/Function

Author: tebe6502

origin/CHANGELOG

@@ -1,3 +1,6 @@
+19.09.2025
+- 'RTI'/'RTS' FORWARD Procedure/Function
+
 16.09.2025
 - bugfixes and optimizations (opt_ADR.pas) -> array 2D
 - RecordSize (ENUM size)

origin/mp.pas

@@ -17214,7 +17214,7 @@ function CompileBlock(i: Integer; BlockIdentIndex: Integer; NumParams: Integer;
 
 	i := j + 1;
 
-	GenerateReturn(IsNestedFunction, isInt, Ident[ForwardIdentIndex].isInline, Ident[ForwardIdentIndex].isOverload);
+	GenerateReturn(IsNestedFunction, Ident[ForwardIdentIndex].isInterrupt, Ident[ForwardIdentIndex].isInline, Ident[ForwardIdentIndex].isOverload);
 
 	if OutputDisabled then OutputDisabled := FALSE;
 

src/CHANGELOG

@@ -1,3 +1,6 @@
+19.09.2025
+- 'RTI'/'RTS' FORWARD Procedure/Function
+
 16.09.2025
 - bugfixes and optimizations (opt_ADR.pas) -> array 2D
 - RecordSize (ENUM size)

src/Compiler.pas

@@ -18718,8 +18718,11 @@ function CompileBlock(i: Integer; BlockIdentIndex: Integer; NumParams: Integer;
 
             i := j + 1;
 
-            GenerateReturn(IsNestedFunction, isInt, IdentifierAt(ForwardIdentIndex).isInline,
-              IdentifierAt(ForwardIdentIndex).isOverload);
+            GenerateReturn(IsNestedFunction,
+	                   IdentifierAt(ForwardIdentIndex).isInterrupt,
+			   IdentifierAt(ForwardIdentIndex).isInline,
+                           IdentifierAt(ForwardIdentIndex).isOverload
+			   );
 
             if OutputDisabled then OutputDisabled := False;