--- 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;
--- 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;
--- 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;
--- 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;