Changeset 144 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Jun 2, 2023, 11:18:38 PM (18 months ago)

Author:

chronos

Message:

• Modified: Removed explicit mode directive.

File:

• trunk/Target/UTargetInterpretter.pas (modified) (3 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -1 +1 @@
 unit UTargetInterpretter;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -173 +171 @@
 
 procedure TTargetInterpretter.PrepareJumpTable;
-var
-  Loop: array of Integer;
+type
+  TArrayOfInteger = array of Integer;
+var
+  Loop: TArrayOfInteger;
   I: Integer;
 begin
@@ -184 +184 @@
   end;
 
-  SetLength(Loop, 0);
+  Loop := Default(TArrayOfInteger);
   for I := 0 to FProgram.Count - 1 do begin
     case FProgram[I].Command of