瀏覽代碼

Merged revisions 7030-7031 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r7030 | Almindor | 2007-03-29 22:51:10 +0200 (Thu, 29 Mar 2007) | 2 lines

* fix typo in ESock[s]errors

........
r7031 | peter | 2007-03-30 08:34:03 +0200 (Fri, 30 Mar 2007) | 2 lines

* new test

........

git-svn-id: branches/fixes_2_2@7213 -

joost 18 年之前
父節點
當前提交
04cd25d0f8
共有 7 個文件被更改,包括 61 次插入44 次删除
  1. 1 0
      .gitattributes
  2. 8 8
      rtl/netware/sockets.pp
  3. 8 8
      rtl/netwlibc/sockets.pp
  4. 8 8
      rtl/os2/sockets.pas
  5. 8 8
      rtl/unix/sockets.pp
  6. 12 12
      rtl/win/sockets.pp
  7. 16 0
      tests/webtbf/tw8588.pp

+ 1 - 0
.gitattributes

@@ -7186,6 +7186,7 @@ tests/webtbf/tw8264a.pp svneol=native#text/plain
 tests/webtbf/tw8398.pp svneol=native#text/plain
 tests/webtbf/tw8528.pp svneol=native#text/plain
 tests/webtbf/tw8583.pp svneol=native#text/plain
+tests/webtbf/tw8588.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

+ 8 - 8
rtl/netware/sockets.pp

@@ -41,14 +41,14 @@ const
   EsockEBADF            = WSAEBADF;
   EsockEFAULT           = WSAEFAULT;
   EsockEINVAL           = WSAEINVAL;
-  EsocksEACCESS         = WSAEACCES;
-  EsocksEMFILE          = WSAEMFILE;
-  EsocksEMSGSIZE        = WSAEMSGSIZE;
-  EsocksENOBUFS         = WSAENOBUFS;
-  EsocksENOTCONN        = WSAENOTCONN;
-  EsocksENOTSOCK        = WSAENOTSOCK;
-  EsocksEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
-  EsocksEWOULDBLOCK     = WSAEWOULDBLOCK;
+  EsockEACCESS         = WSAEACCES;
+  EsockEMFILE          = WSAEMFILE;
+  EsockEMSGSIZE        = WSAEMSGSIZE;
+  EsockENOBUFS         = WSAENOBUFS;
+  EsockENOTCONN        = WSAENOTCONN;
+  EsockENOTSOCK        = WSAENOTSOCK;
+  EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
+  EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
 
 {$i netwsockh.inc}
 {$i socketsh.inc}

+ 8 - 8
rtl/netwlibc/sockets.pp

@@ -40,14 +40,14 @@ const
   EsockEBADF            = WSAEBADF;
   EsockEFAULT           = WSAEFAULT;
   EsockEINVAL           = WSAEINVAL;
-  EsocksEACCESS         = WSAEACCES;
-  EsocksEMFILE          = WSAEMFILE;
-  EsocksEMSGSIZE        = WSAEMSGSIZE;
-  EsocksENOBUFS         = WSAENOBUFS;
-  EsocksENOTCONN        = WSAENOTCONN;
-  EsocksENOTSOCK        = WSAENOTSOCK;
-  EsocksEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
-  EsocksEWOULDBLOCK     = WSAEWOULDBLOCK;
+  EsockEACCESS         = WSAEACCES;
+  EsockEMFILE          = WSAEMFILE;
+  EsockEMSGSIZE        = WSAEMSGSIZE;
+  EsockENOBUFS         = WSAENOBUFS;
+  EsockENOTCONN        = WSAENOTCONN;
+  EsockENOTSOCK        = WSAENOTSOCK;
+  EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
+  EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
 
 {$i netwsockh.inc}
 {$i socketsh.inc}

+ 8 - 8
rtl/os2/sockets.pas

@@ -100,14 +100,14 @@ const EsockEINTR  = SOCEINTR;
       EsockEBADF  = SOCEBADF;
       EsockEFAULT = SOCEFAULT;
       EsockEINVAL = SOCEINVAL;
-      EsocksEACCESS = SOCEACCES;
-      EsocksEMFILE  = SOCEMFILE;
-      EsocksEMSGSIZE = SOCEMSGSIZE;
-      EsocksENOBUFS = SOCENOBUFS;
-      EsocksENOTCONN = SOCENOTCONN;
-      EsocksENOTSOCK = SOCENOTSOCK;
-      EsocksEPROTONOSUPPORT = SOCEPROTONOSUPPORT;
-      EsocksEWOULDBLOCK = SOCEWOULDBLOCK;
+      EsockEACCESS = SOCEACCES;
+      EsockEMFILE  = SOCEMFILE;
+      EsockEMSGSIZE = SOCEMSGSIZE;
+      EsockENOBUFS = SOCENOBUFS;
+      EsockENOTCONN = SOCENOTCONN;
+      EsockENOTSOCK = SOCENOTSOCK;
+      EsockEPROTONOSUPPORT = SOCEPROTONOSUPPORT;
+      EsockEWOULDBLOCK = SOCEWOULDBLOCK;
 
 
 Type

+ 8 - 8
rtl/unix/sockets.pp

@@ -42,14 +42,14 @@ const
   EsockEBADF            = EsysEBADF;
   EsockEFAULT           = EsysEFAULT;
   EsockEINVAL           = EsysEINVAL;
-  EsocksEACCESS         = ESysEAcces;
-  EsocksEMFILE          = ESysEmfile;
-  EsocksEMSGSIZE        = ESysEMsgSize;
-  EsocksENOBUFS         = ESysENoBufs;
-  EsocksENOTCONN        = ESysENotConn;
-  EsocksENOTSOCK        = ESysENotSock;
-  EsocksEPROTONOSUPPORT = ESysEProtoNoSupport;
-  EsocksEWOULDBLOCK     = ESysEWouldBlock;
+  EsockEACCESS         = ESysEAcces;
+  EsockEMFILE          = ESysEmfile;
+  EsockEMSGSIZE        = ESysEMsgSize;
+  EsockENOBUFS         = ESysENoBufs;
+  EsockENOTCONN        = ESysENotConn;
+  EsockENOTSOCK        = ESysENotSock;
+  EsockEPROTONOSUPPORT = ESysEProtoNoSupport;
+  EsockEWOULDBLOCK     = ESysEWouldBlock;
 
 
 { unix socket specific functions }

+ 12 - 12
rtl/win/sockets.pp

@@ -28,18 +28,18 @@ Type
   psocklen= ^tsocklen;
 
 const
-  EsockEINTR            = WSAEINTR;
-  EsockEBADF            = WSAEBADF;
-  EsockEFAULT           = WSAEFAULT;
-  EsockEINVAL           = WSAEINVAL;
-  EsocksEACCESS         = WSAEACCES;
-  EsocksEMFILE          = WSAEMFILE;
-  EsocksEMSGSIZE        = WSAEMSGSIZE;
-  EsocksENOBUFS         = WSAENOBUFS;
-  EsocksENOTCONN        = WSAENOTCONN;
-  EsocksENOTSOCK        = WSAENOTSOCK;
-  EsocksEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
-  EsocksEWOULDBLOCK     = WSAEWOULDBLOCK;
+  EsockEINTR           = WSAEINTR;
+  EsockEBADF           = WSAEBADF;
+  EsockEFAULT          = WSAEFAULT;
+  EsockEINVAL          = WSAEINVAL;
+  EsockEACCESS         = WSAEACCES;
+  EsockEMFILE          = WSAEMFILE;
+  EsockEMSGSIZE        = WSAEMSGSIZE;
+  EsockENOBUFS         = WSAENOBUFS;
+  EsockENOTCONN        = WSAENOTCONN;
+  EsockENOTSOCK        = WSAENOTSOCK;
+  EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
+  EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
 
 {$i socketsh.inc}
 {$i fpwinsockh.inc}

+ 16 - 0
tests/webtbf/tw8588.pp

@@ -0,0 +1,16 @@
+{ %fail }
+
+uses
+  Classes;
+
+type
+  TForm1 = class
+  private
+    { private declarations }
+    fScript:TStringlist.Create; <--- erroneous decl.
+  public
+    { public declarations }
+  end; 
+
+begin
+end.