fixed signature of upnpDiscover()

[d2df-sdl.git] / src / game / g_net.pas

diff --git a/src/game/g_net.pas b/src/game/g_net.pas
index 95f8f459b862c6a0253d699b0c89715040bcb1a6..04382d340c0484ad0c5f2aed00cd78055b50e04c 100644 (file)
--- a/src/game/g_net.pas
+++ b/src/game/g_net.pas
@@ -146,9 +146,10 @@ var
   NetPongForwarded: Boolean = False;
   NetIGDControl: AnsiString;
   NetIGDService: TURLStr;
-  NetPortThread: TThreadID = 0;
 {$ENDIF}
 
+  NetPortThread: TThreadID = 0;
+
   NetDumpFile: TStream;
 
 function  g_Net_Init(): Boolean;
@@ -1144,7 +1145,7 @@ begin
   NetPongForwarded := False;
   NetPortForwarded := 0;
 
-  DevList := upnpDiscover(1000, nil, nil, 0, 0, Addr(Err));
+  DevList := upnpDiscover(1000, nil, nil, 0, 0, 2, Addr(Err));
   if DevList = nil then
   begin
     conwritefln('port forwarding failed: upnpDiscover() failed: %d', [Err]);