Reflects change in previous revision to uTypes
authornemo
Wed, 09 May 2012 17:33:25 -0400
changeset 7035 823caba67738
parent 7034 e3639ce1d4f8
child 7036 d99934a827f0
Reflects change in previous revision to uTypes
hedgewars/SDLh.pas
hedgewars/uLandGraphics.pas
hedgewars/uLandObjects.pas
hedgewars/uLandTemplates.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;
--- 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;