Quellcode durchsuchen

* remove unsupported syntax

peter vor 21 Jahren
Ursprung
Commit
6ecc535b18
1 geänderte Dateien mit 2 neuen und 2 gelöschten Zeilen
  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