From 731dec0d29e29a5d30e728616bcb5aa35c7c75ea Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 30 Apr 2008 12:54:51 +0000
Subject: Fixed some range-check errors. Explicitly disable range-checks {$R-}
 should not be necessary for the MacOSX build anymore. Note: Texture-numbers
 (e.g. texnum) are unsigned (GLuint) so do not init them to -1. Use 0 instead.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1040 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UCommon.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Game/Code/Classes/UCommon.pas')

diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index 1872b789..f37322f4 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -387,7 +387,7 @@ begin
   end;
   // create window
   Result := CreateWindowEx(WS_EX_TOOLWINDOW, WndClass.lpszClassName, '',
-    WS_POPUP, 0, 0, 0, 0, 0, 0, HInstance, nil);
+    DWORD(WS_POPUP), 0, 0, 0, 0, 0, 0, HInstance, nil);
   if (Result = 0) then
     Exit;
   // assign individual callback procedure to the window
-- 
cgit v1.2.3