Changeset 125 for trunk/Target

Timestamp:

Jan 14, 2022, 3:15:52 PM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/Target

Files:

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

trunk/Target/UTargetC.pas

@@ -30 +30 @@
 constructor TTargetC.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'C';
   SourceExtension := '.c';

trunk/Target/UTargetCSharp.pas

@@ -28 +28 @@
 constructor TTargetCSharp.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'C#';
   SourceExtension := '.cs';

trunk/Target/UTargetDelphi.pas

@@ -27 +27 @@
 constructor TTargetDelphi.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'Delphi';
   SourceExtension := '.pas';
@@ -96 +96 @@
 procedure TTargetDelphi.Run;
 begin
-  inherited Run;
+  inherited;
   RunFromFile;
 end;

trunk/Target/UTargetFPC.pas

@@ -27 +27 @@
 constructor TTargetFPC.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'FPC';
   SourceExtension := '.pas';
@@ -98 +98 @@
 procedure TTargetFPC.Run;
 begin
-  inherited Run;
+  inherited;
   RunFromFile;
 end;

trunk/Target/UTargetInterpretter.pas

@@ -328 +328 @@
 procedure TTargetInterpretter.OptimizeSource;
 begin
-  inherited OptimizeSource;
+  inherited;
 end;
 
@@ -445 +445 @@
   FState := rsStopped;
   SetThread(False);
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Target/UTargetJava.pas

@@ -28 +28 @@
 constructor TTargetJava.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'Java';
   SourceExtension := '.java';

trunk/Target/UTargetJavascript.pas

@@ -31 +31 @@
 constructor TTargetJavascript.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'Javascript';
   SourceExtension := '.js';

trunk/Target/UTargetPHP.pas

@@ -28 +28 @@
 constructor TTargetPHP.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'PHP';
   SourceExtension := '.php';
@@ -95 +95 @@
 procedure TTargetPHP.Run;
 begin
-  inherited Run;
+  inherited;
   RunFromFile;
 end;

trunk/Target/UTargetPython.pas

@@ -28 +28 @@
 constructor TTargetPython.Create;
 begin
-  inherited Create;
+  inherited;
   Name := 'Python';
   SourceExtension := '.py';
@@ -133 +133 @@
 procedure TTargetPython.Run;
 begin
-  inherited Run;
+  inherited;
   RunFromFile;
 end;