paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 23:39:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix inline assembly of segment:localvar with the internal asm writer on x86

Browse Source 
git-svn-id: trunk@38475 -
This commit is contained in:
nickysn 2018-03-09 15:36:59 +00:00
parent 9b093ac375
commit c0b7aec2c4
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ncgbas.pas
View File

@ -330,6 +330,10 @@ interface
ReLabel(ref^.symbol);
if assigned(ref^.relsymbol) then
ReLabel(ref^.relsymbol);
{$ifdef x86}
if (ref^.segment<>NR_NO) and (ref^.segment<>get_default_segment_of_ref(ref^)) then
taicpu(hp2).segprefix:=ref^.segment;
{$endif x86}
end;
end;
end;
@ -364,7 +368,19 @@ interface
{$endif}
{ fixup the references }
for i:=1 to taicpu(hp).ops do
ResolveRef(taicpu(hp).fileinfo,taicpu(hp).oper[i-1]^);
begin
ResolveRef(taicpu(hp).fileinfo,taicpu(hp).oper[i-1]^);
{$ifdef x86}
with taicpu(hp).oper[i-1]^ do
begin
case typ of
top_ref :
if (ref^.segment<>NR_NO) and (ref^.segment<>get_default_segment_of_ref(ref^)) then
taicpu(hp).segprefix:=ref^.segment;
end;
end;
{$endif x86}
end;
{$ifdef x86}
{ can only be checked now that all local operands }
{ have been resolved }