# HG changeset patch # User nemo # Date 1336599205 14400 # Node ID 823caba6773876a61c733d5b8b28cfbc4b28dfac # Parent e3639ce1d4f89af0ae7e0c6083e84eb892465349 Reflects change in previous revision to uTypes diff -r e3639ce1d4f8 -r 823caba67738 hedgewars/SDLh.pas --- a/hedgewars/SDLh.pas Thu May 10 00:58:05 2012 +0400 +++ b/hedgewars/SDLh.pas Wed May 09 17:33:25 2012 -0400 @@ -395,6 +395,7 @@ end; + PSDL_Color = ^TSDL_Color; TSDL_Color = record case Byte of 0: ( r: Byte; @@ -403,7 +404,6 @@ unused: Byte; ); 1: ( value: LongWord; ); end; - PSDL_Color = ^TSDL_Color; PSDL_RWops = ^TSDL_RWops; @@ -734,10 +734,10 @@ TSDL_EventFilter = function( event : PSDL_Event ): Integer; cdecl; + TByteArray = array[0..65535] of Byte; PByteArray = ^TByteArray; - TByteArray = array[0..65535] of Byte; + TLongWordArray = array[0..16383] of LongWord; PLongWordArray = ^TLongWordArray; - TLongWordArray = array[0..16383] of LongWord; PSDL_Thread = Pointer; PSDL_mutex = Pointer; diff -r e3639ce1d4f8 -r 823caba67738 hedgewars/uLandGraphics.pas --- a/hedgewars/uLandGraphics.pas Thu May 10 00:58:05 2012 +0400 +++ b/hedgewars/uLandGraphics.pas Wed May 09 17:33:25 2012 -0400 @@ -22,10 +22,10 @@ interface uses uFloat, uConsts, uTypes; -type PRangeArray = ^TRangeArray; - TRangeArray = array[0..31] of record +type TRangeArray = array[0..31] of record Left, Right: LongInt; end; + PRangeArray = ^TRangeArray; function addBgColor(OldColor, NewColor: LongWord): LongWord; function SweepDirty: boolean; diff -r e3639ce1d4f8 -r 823caba67738 hedgewars/uLandObjects.pas --- a/hedgewars/uLandObjects.pas Thu May 10 00:58:05 2012 +0400 +++ b/hedgewars/uLandObjects.pas Wed May 09 17:33:25 2012 -0400 @@ -37,8 +37,8 @@ MAXOBJECTRECTS = 16; MAXTHEMEOBJECTS = 32; -type PRectArray = ^TRectsArray; - TRectsArray = array[0..MaxRects] of TSDL_Rect; +type TRectsArray = array[0..MaxRects] of TSDL_Rect; + PRectArray = ^TRectsArray; TThemeObject = record Surf: PSDL_Surface; inland: TSDL_Rect; diff -r e3639ce1d4f8 -r 823caba67738 hedgewars/uLandTemplates.pas --- a/hedgewars/uLandTemplates.pas Thu May 10 00:58:05 2012 +0400 +++ b/hedgewars/uLandTemplates.pas Wed May 09 17:33:25 2012 -0400 @@ -24,8 +24,8 @@ const NTPX = Low(SmallInt); -type PPointArray = ^TPointArray; - TPointArray = array[0..64] of TSDL_Rect; +type TPointArray = array[0..64] of TSDL_Rect; + PPointArray = ^TPointArray; TEdgeTemplate = record BasePoints: PPointArray; BasePointsCount: Longword;