Parcourir la source

* remove unsupported syntax

peter il y a 21 ans
Parent
commit
6ecc535b18
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  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