Changeset 72 for trunk/UTarget.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/UTarget.pas (modified) (4 diffs)

trunk/UTarget.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
-  FileUtil, Process, Menus;
+  FileUtil, Process, Menus, LazFileUtils;
 
 type
@@ -339 +339 @@
 function TTarget.GetExecutionPosition: Integer;
 begin
-
+  Result := 0;
 end;
 
@@ -416 +416 @@
   try
     Text := FTargetCode;
-    SaveToFile(UTF8Decode(CompiledFile));
+    SaveToFile(CompiledFile);
   finally
     Free;
@@ -538 +538 @@
 function TTarget.SourceReadNext: Char;
 begin
-//  while FProgramIndex;
+  Result := ' ';
 end;