From 731dec0d29e29a5d30e728616bcb5aa35c7c75ea Mon Sep 17 00:00:00 2001 From: tobigun 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/UServices.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Game/Code/Classes/UServices.pas') diff --git a/Game/Code/Classes/UServices.pas b/Game/Code/Classes/UServices.pas index 7cc811bc..19561eeb 100644 --- a/Game/Code/Classes/UServices.pas +++ b/Game/Code/Classes/UServices.pas @@ -229,9 +229,11 @@ begin If (Service.isClass) then //Use Proc of Class + // FIXME: "function ... of object" does not fit into an integer (2x pointers: object + function-code -> 8byte on x86) Result := Service.ProcOfClass(wParam, lParam) Else //Use normal Proc + // FIXME: will not work with x64 CPUs, pointers will be 64bit there Result := Service.Proc(wParam, lParam); //Restore CurExecuted -- cgit v1.2.3