mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 04:29:42 +02:00
* building for LLVM fixed
This commit is contained in:
parent
6f749cf43d
commit
33db5200e6
@ -835,11 +835,13 @@ implementation
|
||||
setdef:
|
||||
result:=R_INTREGISTER;
|
||||
procvardef:
|
||||
{$ifndef LLVM}
|
||||
{ getaddressregister cannot handle if multiple registers
|
||||
are required for a single element }
|
||||
if is_methodpointer(def) then
|
||||
result:=R_INTREGISTER
|
||||
else
|
||||
{$endif LLVM}
|
||||
result:=R_ADDRESSREGISTER;
|
||||
stringdef,
|
||||
pointerdef,
|
||||
|
Loading…
Reference in New Issue
Block a user