hedgewars/PascalExports.pas
changeset 2803 1f446fc5c8ec
parent 2799 558b29bf00c5
child 2805 36a8cebb91e8
--- a/hedgewars/PascalExports.pas	Fri Feb 12 18:40:14 2010 +0000
+++ b/hedgewars/PascalExports.pas	Sat Feb 13 01:56:35 2010 +0000
@@ -21,7 +21,9 @@
 // called by pascal code, they deal with the objc code
 function  IPH_getDocumentsPath: PChar; cdecl; external;
 procedure IPH_showControls; cdecl; external;
+{$ENDIF}
 
+{$IFDEF HWLIBRARY}
 // retrieve protocol information
 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;
 
@@ -45,7 +47,7 @@
 
 implementation
 
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;
 begin
 	if netProto <> nil then netProto^:= cNetProtoVersion;