hedgewars/uPhysFSLayer.pas
branchwebgl
changeset 8099 a7f02b902b6f
parent 8080 a6fc5396b3d6
child 8105 d088be5ecdcb
--- 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.