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.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/Game/Code/Classes/UServices.pas b/Game/Code/Classes/UServices.pas
index cb03248e..6a73521d 100644
--- a/Game/Code/Classes/UServices.pas
+++ b/Game/Code/Classes/UServices.pas
@@ -78,6 +78,8 @@ uses
//------------
Constructor TServiceManager.Create;
begin
+ inherited;
+
FirstService := nil;
LastService := nil;
@@ -233,11 +235,9 @@ 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