aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UServices.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/UServices.pas')
-rw-r--r--Game/Code/Classes/UServices.pas2
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