Changeset 107 for branches/interpreter/interpreter4/Execute.pas

Timestamp:

Jul 18, 2017, 12:53:15 AM (7 years ago)

Author:

chronos

Message:

• Added: Calculate source X,Y position. Show that position in error message.

File:

• branches/interpreter/interpreter4/Execute.pas (modified) (1 diff)

branches/interpreter/interpreter4/Execute.pas

@@ -301 +301 @@
   end else
   if Execution^.Func^.Name = 'Read' then begin
-    ExecutionContextCurrent^.VariableValues.GetByName('Output')^.ValueChar := InnerText[InnerTextPos];
-    InnerTextPos := InnerTextPos + 1;
+    ExecutionContextCurrent^.VariableValues.GetByName('Output')^.ValueChar := InnerText[InnerTextPos.Index];
+    InnerTextPos.Index := InnerTextPos.Index + 1;
   end else
   if Execution^.Func^.Name = 'Eof' then begin
     ExecuteBuildInSetResult(Execution, 'Boolean');
-    ExecutionContextCurrent^.VariableValues.GetByName('Result')^.ValueBoolean := InnerTextPos > Length(InnerText);
+    ExecutionContextCurrent^.VariableValues.GetByName('Result')^.ValueBoolean := InnerTextPos.Index > Length(InnerText);
   end else ShowError('Unsupported build-in function.');
 end;