--- a/hedgewars/PascalExports.pas	Wed Feb 10 21:23:03 2010 +0000
+++ b/hedgewars/PascalExports.pas	Wed Feb 10 22:00:49 2010 +0000
@@ -23,7 +23,7 @@
 procedure IPH_showControls; cdecl; external;
 
 // retrieve protocol information
-function  HW_protoVer: LongInt; cdecl; export;
+procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;
 
 // called by the touch functions (SDL_uikitview.m)
 // they emulate user interaction from mouse or keyboard
@@ -46,12 +46,12 @@
 implementation
 
 {$IFDEF IPHONEOS}
-function HW_protoVer: LongInt; cdecl; export;
+procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;
 begin
-	HW_protoVer:= cNetProtoVersion;
+	if netProto <> nil then netProto^:= cNetProtoVersion;
+	if versionStr <> nil then versionStr^:= string(cVersionString);
 end;
 
-
 procedure HW_click; cdecl; export;
 begin
 	leftClick:= true;