fixed signature of upnpDiscover()

diff --git a/src/game/g_net.pas b/src/game/g_net.pas
index 63cb4dbf7f7c0cee17ed7d1bac6f84185e0e51b0..04382d340c0484ad0c5f2aed00cd78055b50e04c 100644 (file)
--- a/src/game/g_net.pas
+++ b/src/game/g_net.pas
@@ -1145,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]);

diff --git a/src/lib/miniupnpc/miniupnpc.pas b/src/lib/miniupnpc/miniupnpc.pas
index 37ced0cec0b51278e0733b8e12e56b98cc2fb8f0..3a6f0834d64e7790cc3b691e28ace14081e0797a 100644 (file)
--- a/src/lib/miniupnpc/miniupnpc.pas
+++ b/src/lib/miniupnpc/miniupnpc.pas
@@ -95,6 +95,7 @@ function upnpDiscover(
       minissdpdsock:pchar;
       sameport:integer;
          IPV6:integer;
+    ttl:shortint;
          error:pinteger):PUPNPDev; MINIUPNPC_IMPL;