Changeset 423 for trunk/Network/UNetworkServer.pas

Timestamp:

Apr 25, 2022, 6:01:01 PM (2 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/UNetworkServer.pas (modified) (4 diffs)

trunk/Network/UNetworkServer.pas

@@ -1 +1 @@
 unit UNetworkServer;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils{$IFDEF LINUX}, fgl, fpAsync, fpsock, fphttpclient{$ENDIF}, Protocol;
-
-{$IFDEF LINUX}
+  Classes, SysUtils{$IFDEF UNIX}, fgl, fpAsync, fpsock, fphttpclient{$ENDIF}, Protocol;
+
+{$IFDEF UNIX}
 type
   TNetworkServer = class;
@@ -87 +85 @@
 implementation
 
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 uses
   Global, UNetworkCommon;
@@ -94 +92 @@
 procedure Client(Command, Player: integer; var Data);
 begin
-  {$IFDEF LINUX}
+  {$IFDEF UNIX}
   if not Assigned(NetworkServer) then begin
     NetworkServer := TNetworkServer.Create;
@@ -107 +105 @@
 end;
 
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 
 { TNetworkServerPlayers }