diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-04-30 12:54:51 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-04-30 12:54:51 +0000 |
commit | 731dec0d29e29a5d30e728616bcb5aa35c7c75ea (patch) | |
tree | 9f404dead6fc684b24a031ec8a1466a6b22adb9b /Game/Code/Classes/UServices.pas | |
parent | 019d57a35441572024cd478da08a67149a1c865f (diff) | |
download | usdx-731dec0d29e29a5d30e728616bcb5aa35c7c75ea.tar.gz usdx-731dec0d29e29a5d30e728616bcb5aa35c7c75ea.tar.xz usdx-731dec0d29e29a5d30e728616bcb5aa35c7c75ea.zip |
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
Diffstat (limited to 'Game/Code/Classes/UServices.pas')
-rw-r--r-- | Game/Code/Classes/UServices.pas | 2 |
1 files changed, 2 insertions, 0 deletions
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 |