Changeset 423 for trunk/Network/UNetworkClient.pas

Timestamp:

Apr 25, 2022, 6:01:01 PM (3 years ago)

Author:

chronos

Message:

• Modified: Do not use explicit mode delphi directive as it is already set in project.
• Modified: Use UNIX instead of LINUX for conditional code to work also on FreeBSD.

File:

• trunk/Network/UNetworkClient.pas (modified) (3 diffs)

trunk/Network/UNetworkClient.pas

@@ -1 +1 @@
 unit UNetworkClient;
-
-{$mode delphi}
 
 interface
 
 uses
-  Classes, SysUtils{$IFDEF LINUX}, fpAsync, fpsock{$ENDIF}, Protocol;
+  Classes, SysUtils{$IFDEF UNIX}, fpAsync, fpsock{$ENDIF}, Protocol;
 
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 type
   { TTCPClientThread }
@@ -48 +46 @@
 
 uses
-  LocalPlayer{$IFDEF LINUX}, Global, UNetworkCommon{$ENDIF};
+  LocalPlayer{$IFDEF UNIX}, Global, UNetworkCommon{$ENDIF};
 
 procedure Client(Command, Player: Integer; var Data);
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 var
   Cmd: TCommand;
 {$ENDIF}
 begin
-  {$IFDEF LINUX}
+  {$IFDEF UNIX}
   Cmd := TCommand(Command);
   case Cmd of
@@ -73 +71 @@
 end;
 
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 function LocalServer(Command, Player, Subject: Integer; var Data): Integer; stdcall;
 begin