浏览代码

* fix for sockets from Ales Katona

git-svn-id: trunk@758 -
florian 20 年之前
父节点
当前提交
614a0703c8
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/win32/sockets.pp

+ 1 - 1
rtl/win32/sockets.pp

@@ -26,7 +26,7 @@ Type
   cuint16=word;
   cuint16=word;
   cuint32=cardinal;
   cuint32=cardinal;
   size_t =cuint32;
   size_t =cuint32;
-  ssize_t=Int64;
+  ssize_t=cint32;
   cint   =longint;
   cint   =longint;
   pcint  =^cint;
   pcint  =^cint;
   tsocklen=cint;
   tsocklen=cint;