diff -r 453917e94e55 -r a7f02b902b6f hedgewars/uPhysFSLayer.pas --- 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.