hedgewars/uPhysFSLayer.pas
changeset 10078 8572d1f8b2f0
parent 10015 4feced261c68
child 10080 ac51bcb534ef
--- a/hedgewars/uPhysFSLayer.pas	Sun Jan 26 10:20:42 2014 +0400
+++ b/hedgewars/uPhysFSLayer.pas	Mon Jan 27 00:33:42 2014 +0400
@@ -31,13 +31,16 @@
 
 function pfsExists(fname: shortstring): boolean;
 
+{$IFNDEF PAS2C}
 function  physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhyslayerLibName;
 procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhyslayerLibName;
 procedure hedgewarsMountPackage(filename: PChar); cdecl; external PhyslayerLibName;
+{$ENDIF}
 
 implementation
 uses uUtils, uVariables, sysutils;
 
+{$IFNDEF PAS2C}
 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 PhyslayerLibName;
@@ -52,6 +55,7 @@
 function PHYSFS_getLastError(): PChar; cdecl; external PhysfsLibName;
 
 procedure hedgewarsMountPackages(); cdecl; external PhyslayerLibName;
+{$ENDIF}
 
 function rwopsOpenRead(fname: shortstring): PSDL_RWops;
 begin