* first part to fix #39603

2025-04-22 16:09:33 +02:00 · 2022-02-27 23:19:38 +01:00 · 2022-02-27 23:19:38 +01:00 · 6f749cf43d
commit 6f749cf43d
parent 08228d7fb3
2 changed files with 8 additions and 2 deletions
--- a/compiler/hlcgobj.pas
+++ b/compiler/hlcgobj.pas
@ -834,11 +834,17 @@ implementation
          recorddef,
          setdef:
            result:=R_INTREGISTER;
+          procvardef:
+            { getaddressregister cannot handle if multiple registers
+              are required for a single element }
+            if is_methodpointer(def) then
+              result:=R_INTREGISTER
+            else
+              result:=R_ADDRESSREGISTER;
          stringdef,
          pointerdef,
          classrefdef,
          objectdef,
-          procvardef,
          procdef,
          formaldef:
            result:=R_ADDRESSREGISTER;