Fix some small buggers.

LongDirtyAnimAlf · Aug 7, 2021 · 1c04183 · 1c04183
1 parent dbc546c
commit 1c04183
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/fpcupdeluxe.res b/fpcupdeluxe.res
diff --git a/fpcupdeluxemainform.pas b/fpcupdeluxemainform.pas
@@ -487,12 +487,12 @@ procedure TForm1.FormCreate(Sender: TObject);
     aFPCTarget:=ReadString('General','fpcVersion','');
     if (Length(aFPCTarget)=0) then
     begin
-      aFPCTarget:='stable.gitlab'
+      aFPCTarget:='stable.gitlab';
     end;
     aLazarusTarget:=ReadString('General','lazVersion','');
     if (Length(aLazarusTarget)=0) then
     begin
-      aFPCTarget:='stable.gitlab'
+      aFPCTarget:='stable.gitlab';
       {$ifdef Haiku}
       {$ifdef CPUX86_64}
       aLazarusTarget:='trunk.gitlab';

diff --git a/fpcuputil.pas b/fpcuputil.pas
@@ -96,17 +96,15 @@   TNormalUnzipper = class(TObject)
   { TLogger }
   TLogger = class(TObject)
   private
-    FLog: TEventLog; //Logging/debug output to file
+    FLog: TEventLog;
     function GetLogFile: string;
     procedure SetLogFile(AValue: string);
   public
-    // Write to log and optionally console with seriousness etInfo
-    procedure WriteLog(Message: string);overload;
-    // Write to log and optionally console with specified seriousness
-    procedure WriteLog(EventType: TEventType;Message: string);overload;
-    property LogFile: string read GetLogFile write SetLogFile ;
     constructor Create;
     destructor Destroy; override;
+    procedure WriteLog(Message: string);overload;
+    procedure WriteLog(EventType: TEventType;Message: string);overload;
+    property LogFile: string read GetLogFile write SetLogFile;
   end;
 
   TBasicDownLoader = Class(TObject)
@@ -454,7 +452,9 @@ implementation
 {$endif}
 
 type
+  {$ifdef ENABLENATIVE}
   TMyFTPSend = class(TFTPSend);
+  {$endif ENABLENATIVE}
 
   TOnWriteStream = procedure(Sender: TObject; APos: Int64) of object;