Browse Source

* remove unsupported syntax

peter 21 years ago
parent
commit
6ecc535b18
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/webtbs/tw2536.pp

+ 2 - 2
tests/webtbs/tw2536.pp

@@ -12,8 +12,8 @@ var
 
 
   // Delphi accepts this.
   // Delphi accepts this.
   WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil;
   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
 implementation