--- a/hedgewars/PascalExports.pas Thu Dec 23 17:47:50 2010 +0100
+++ b/hedgewars/PascalExports.pas Thu Dec 23 20:26:31 2010 +0100
@@ -25,7 +25,6 @@
uCommands;
{$INCLUDE "config.inc"}
-var dummy: boolean; // avoid compiler hint
implementation
{$IFDEF HWLIBRARY}
@@ -33,7 +32,7 @@
previousGameState: TGameState;
// retrieve protocol information
-procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export;
+procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
begin
netProto^:= cNetProtoVersion;
versionStr^:= cVersionString;