--- a/hedgewars/uPhysFSLayer.pas Thu Nov 22 00:41:53 2012 +0100
+++ b/hedgewars/uPhysFSLayer.pas Thu Nov 22 01:47:09 2012 +0100
@@ -22,6 +22,10 @@
procedure freeModule;
type PFSFile = pointer;
+{$IFDEF PAS2C}
+ Int64 = LongInt; //FIXME!!!!!!!!!
+ LongBool = boolean;
+{$ENDIF}
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
@@ -41,9 +45,12 @@
implementation
uses uUtils, uVariables;
+{$IFNDEF PAS2C}
+// pas2c unable to parse this section???
+
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName;
-function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName;
-function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl ; external PhysfsLibName;
+function PHYSFS_deinit: LongInt; cdecl; external PhysfsLibName;
+function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl; external PhysfsLibName;
function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhysfsLibName;
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external PhysfsLibName;
@@ -53,7 +60,9 @@
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName;
-procedure hedgewarsMountPackages(); cdecl; external PhysfsLibName;
+procedure hedgewarsMountPackages; cdecl; external PhysfsLibName;
+
+(*****************************************************************)
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
begin
@@ -128,5 +137,6 @@
begin
PHYSFS_deinit;
end;
+{$ENDIF}
end.