瀏覽代碼

* Fix windows compilation

Michaël Van Canneyt 1 月之前
父節點
當前提交
c4aa8b02fb
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fcl-net/src/fpsockets.pp

+ 2 - 2
packages/fcl-net/src/fpsockets.pp

@@ -35,13 +35,13 @@ interface
 uses
   {$IfDef WINDOWS}WinApi.WinSock2, {$ENDIF}
   {$ifdef unix} UnixApi.Base, UnixApi.TermIO, {$EndIf}
-  {$IfDef HASAMIGA}system.ctypes, {$EndIf}
+  system.ctypes,
   System.SysUtils, System.Net.Sockets, System.Nullable, System.Tuples;
 {$ELSE FPC_DOTTEDUNITS}
 uses
   {$IfDEF WINDOWS}WinSock2, {$ENDIF}
   {$IFDEF unix}BaseUnix, termio, {$EndIf}  
-  {$IfDef HASAMIGA}ctypes, {$EndIf}
+  ctypes,
   sysutils, sockets, nullable, tuples;
 {$ENDIF FPC_DOTTEDUNITS}