소스 검색

* remove unsupported syntax

peter 21 년 전
부모
커밋
6ecc535b18
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      tests/webtbs/tw2536.pp

+ 2 - 2
tests/webtbs/tw2536.pp

@@ -12,8 +12,8 @@ var
 
   // Delphi accepts this.
   WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil;
-  // FPC accepts this.
-  WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer = nil; stdcall;
+  // FPC should accept this too
+  WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer;stdcall = nil;
 
 implementation