Changeset 72 for trunk/Target

Timestamp:

Mar 6, 2016, 12:10:38 AM (8 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

Location:

trunk/Target

Files:

• UTargetC.pas (modified) (2 diffs)
• UTargetDelphi.pas (modified) (1 diff)
• UTargetInterpretter.pas (modified) (4 diffs)
• UTargetJava.pas (modified) (1 diff)
• UTargetPHP.pas (modified) (1 diff)

trunk/Target/UTargetC.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs;
+  Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs,
+  LazFileUtils;
 
 type
@@ -46 +47 @@
 
 procedure TTargetC.Compile;
-var
-  Sum: Integer;
 begin
   inherited;

trunk/Target/UTargetDelphi.pas

@@ -39 +39 @@
 
 procedure TTargetDelphi.Compile;
-var
-  Sum: Integer;
 begin
   inherited;

trunk/Target/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget, Registry, URegistry,
-  UBFTarget;
+  Classes, SysUtils, Dialogs, Forms, UTarget, UBFTarget;
 
 type
@@ -84 +83 @@
   SProgramLowerLimit = 'Program run over lower limit';
   SProgramUpperLimit = 'Program run over upper limit';
-  SReadInputError = 'Read input error';
   SJumpTableInsistent = 'Jump table is inconsistent';
   SJumpTableColision = 'Jump table colision';
-  SMemoryCellOutOfRange = 'Memory cell %s value out of range';
   SProgramNotRunning = 'Program not running';
   SUnsupportedCommand = 'Unsupported command';
@@ -328 +325 @@
 var
   Step: TDebugStep;
-  StepIndex: Integer;
-  Nesting: Integer;
 begin
   if State = rsPaused then begin
@@ -350 +345 @@
 var
   Step: TDebugStep;
-  StepIndex: Integer;
-  Nesting: Integer;
 begin
   if State = rsPaused then begin

trunk/Target/UTargetJava.pas

@@ -45 +45 @@
 
 procedure TTargetJava.Compile;
-var
-  Sum: Integer;
 begin
   inherited;

trunk/Target/UTargetPHP.pas

@@ -45 +45 @@
 
 procedure TTargetPHP.Compile;
-var
-  Sum: Integer;
 begin
   inherited;