|
@@ -835,11 +835,13 @@ implementation
|
|
setdef:
|
|
setdef:
|
|
result:=R_INTREGISTER;
|
|
result:=R_INTREGISTER;
|
|
procvardef:
|
|
procvardef:
|
|
|
|
+{$ifndef LLVM}
|
|
{ getaddressregister cannot handle if multiple registers
|
|
{ getaddressregister cannot handle if multiple registers
|
|
are required for a single element }
|
|
are required for a single element }
|
|
if is_methodpointer(def) then
|
|
if is_methodpointer(def) then
|
|
result:=R_INTREGISTER
|
|
result:=R_INTREGISTER
|
|
else
|
|
else
|
|
|
|
+{$endif LLVM}
|
|
result:=R_ADDRESSREGISTER;
|
|
result:=R_ADDRESSREGISTER;
|
|
stringdef,
|
|
stringdef,
|
|
pointerdef,
|
|
pointerdef,
|