paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:31:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Resolve address of a symbol defined as absolute of another symbol, in assembler code.

Browse Source
This commit is contained in:
ccrause 2022-02-14 22:33:32 +02:00
parent d4d55f5c87
commit 44094dba2f
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/rautils.pas
View File

@ -862,6 +862,16 @@ Begin
setvarsize(tabstractvarsym(sym));
size_set_from_absolute:=true;
sym:=plist^.sym;
{ Check if address can be resolved, but only if not an array }
if (tabsolutevarsym(sym).abstyp=toaddr) and not
(assigned(plist^.next) and (plist^.next^.sltype=sl_vec)) then
begin
initref;
opr.ref.offset:=tabsolutevarsym(sym).addroffset;
hasvar:=true;
Result:=true;
exit;
end;
{ resolve the chain of array indexes (if there are any) }
harrdef:=nil;
while assigned(plist^.next) do