diff -r 20ef5bf0dc7f -r d088be5ecdcb hedgewars/uPhysFSLayer.pas --- a/hedgewars/uPhysFSLayer.pas Thu Nov 22 10:28:07 2012 +0100 +++ b/hedgewars/uPhysFSLayer.pas Sat Nov 24 04:27:31 2012 +0100 @@ -22,10 +22,6 @@ 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; @@ -42,13 +38,13 @@ function physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhysfsLibName; procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhysfsLibName; +{$IFNDEF PAS2C} +//apparently pas2c doesn't render the functions below if it finds 'implementation' first implementation uses uUtils, uVariables; +{$ENDIF} -{$IFNDEF PAS2C} -// pas2c unable to parse this section??? - -function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName; +function PHYSFS_init(argv: PChar): LongInt; 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; @@ -62,6 +58,11 @@ procedure hedgewarsMountPackages; cdecl; external PhysfsLibName; +{$IFDEF PAS2C} +implementation +uses uUtils, uVariables; +{$ENDIF} + (*****************************************************************) function rwopsOpenRead(fname: shortstring): PSDL_RWops; @@ -137,6 +138,5 @@ begin PHYSFS_deinit; end; -{$ENDIF} end.