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