Oops - fixed a bug in the new tokens!

Author: Steve Ives

CodeGenEngine/ExpressionEvaluators/ExpressionEvaluatorParameterLoop.dbl

@@ -49,8 +49,6 @@ import CodeGen.RepositoryAPI
 import System.IO
 import CodeGen.MethodCatalogAPI
 
-.array 0
-
 namespace CodeGen.Engine
 
     public partial class ExpressionEvaluator
@@ -290,10 +288,10 @@ namespace CodeGen.Engine
                 using tkn.Value select
                 ("MORE_IN_OR_INOUT"),
                 begin
-                    if (index < meth.Parameters.Count)
+                    if (index + 1 < meth.Parameters.Count)
                     begin
                         data ix, int
-                        for ix from index + 1 thru meth.Parameters.Count
+                        for ix from index + 1 thru meth.Parameters.Count -1
                         begin
                             if (meth.Parameters[ix].Direction == ParameterDirection.In || meth.Parameters[ix].Direction == ParameterDirection.InOut)
                             begin
@@ -305,10 +303,10 @@ namespace CodeGen.Engine
                 end
                 ("MORE_OUT_OR_INOUT"),
                 begin
-                    if (index < meth.Parameters.Count)
+                    if (index + 1 < meth.Parameters.Count)
                     begin
                         data ix, int
-                        for ix from index + 1 thru meth.Parameters.Count
+                        for ix from index + 1 thru meth.Parameters.Count -1
                         begin
                             if (meth.Parameters[ix].Direction == ParameterDirection.Out || meth.Parameters[ix].Direction == ParameterDirection.InOut)
                             begin