Make function more pascal-ish
authorunc0rr
Thu, 05 Apr 2012 14:50:58 +0400
changeset 6857 b34288c8fafa
parent 6856 a5b0afb60862
child 6858 608c8b057c3b
Make function more pascal-ish
hedgewars/uMisc.pas
--- a/hedgewars/uMisc.pas	Thu Apr 05 00:42:43 2012 +0400
+++ b/hedgewars/uMisc.pas	Thu Apr 05 14:50:58 2012 +0400
@@ -153,13 +153,11 @@
 {$ELSE}
 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect;
 {$ENDIF}
-var rect: TSDL_Rect;
 begin
-    rect.x:= x;
-    rect.y:= y;
-    rect.w:= width;
-    rect.h:= height;
-    exit(rect);
+    SDL_RectMake.x:= x;
+    SDL_RectMake.y:= y;
+    SDL_RectMake.w:= width;
+    SDL_RectMake.h:= height;
 end;
 
 function GetTeamStatString(p: PTeam): shortstring;