Changeset 144 for trunk/Target

Timestamp:

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

Author:

chronos

Message:

• Modified: Removed explicit mode directive.

Location:

trunk/Target

Files:

• UTargetC.pas (modified) (1 diff)
• UTargetCSharp.pas (modified) (1 diff)
• UTargetDelphi.pas (modified) (1 diff)
• UTargetFPC.pas (modified) (1 diff)
• UTargetInterpretter.pas (modified) (3 diffs)
• UTargetJava.pas (modified) (1 diff)
• UTargetJavascript.pas (modified) (1 diff)
• UTargetPHP.pas (modified) (1 diff)
• UTargetPython.pas (modified) (1 diff)

trunk/Target/UTargetC.pas

@@ -1 +1 @@
 unit UTargetC;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Target/UTargetCSharp.pas

@@ -1 +1 @@
 unit UTargetCSharp;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Target/UTargetDelphi.pas

@@ -1 +1 @@
 unit UTargetDelphi;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Target/UTargetFPC.pas

@@ -1 +1 @@
 unit UTargetFPC;
-
-{$mode Delphi}{$H+}
 
 interface

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

trunk/Target/UTargetJava.pas

@@ -1 +1 @@
 unit UTargetJava;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Target/UTargetJavascript.pas

@@ -1 +1 @@
 unit UTargetJavascript;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Target/UTargetPHP.pas

@@ -1 +1 @@
 unit UTargetPHP;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Target/UTargetPython.pas

@@ -1 +1 @@
 unit UTargetPython;
-
-{$mode Delphi}{$H+}
 
 interface