Changeset 144 for trunk/Target
- Timestamp:
- Jun 2, 2023, 11:18:38 PM (18 months ago)
- Location:
- trunk/Target
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Target/UTargetC.pas
r135 r144 1 1 unit UTargetC; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetCSharp.pas
r133 r144 1 1 unit UTargetCSharp; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetDelphi.pas
r133 r144 1 1 unit UTargetDelphi; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetFPC.pas
r133 r144 1 1 unit UTargetFPC; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetInterpretter.pas
r137 r144 1 1 unit UTargetInterpretter; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface … … 173 171 174 172 procedure TTargetInterpretter.PrepareJumpTable; 175 var 176 Loop: array of Integer; 173 type 174 TArrayOfInteger = array of Integer; 175 var 176 Loop: TArrayOfInteger; 177 177 I: Integer; 178 178 begin … … 184 184 end; 185 185 186 SetLength(Loop, 0);186 Loop := Default(TArrayOfInteger); 187 187 for I := 0 to FProgram.Count - 1 do begin 188 188 case FProgram[I].Command of -
trunk/Target/UTargetJava.pas
r133 r144 1 1 unit UTargetJava; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetJavascript.pas
r135 r144 1 1 unit UTargetJavascript; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetPHP.pas
r133 r144 1 1 unit UTargetPHP; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Target/UTargetPython.pas
r133 r144 1 1 unit UTargetPython; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface
Note:
See TracChangeset
for help on using the changeset viewer.