diff -r e118329666ff -r c7153d2348f3 hedgewars/SDLh.pas --- a/hedgewars/SDLh.pas Wed Nov 04 01:42:06 2009 +0000 +++ b/hedgewars/SDLh.pas Thu Nov 05 16:23:09 2009 +0000 @@ -19,9 +19,12 @@ unit SDLh; interface -{$INCLUDE options.inc} +{$INCLUDE "options.inc"} -{$IFDEF LINUX or FREEBSD} +{$IFDEF LINUX} +{$DEFINE UNIX} +{$ENDIF} +{$IFDEF FREEBSD} {$DEFINE UNIX} {$ENDIF} @@ -32,7 +35,9 @@ {$linklib pthread} {$ENDIF} +{$IFDEF FPC} {$PACKRECORDS C} +{$ENDIF} {$IFDEF DARWIN} {$PASCALMAINNAME SDL_main} @@ -205,8 +210,8 @@ PSDL_RWops = ^TSDL_RWops; - TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; - TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; + TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; + TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; TClose = function( context: PSDL_RWops ): LongInt; cdecl;