paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support local label data access in the i8086 inline asm (fixes test tlbldat1.pp)

Browse Source 
git-svn-id: trunk@32179 -
This commit is contained in:
nickysn 2015-10-28 17:22:37 +00:00
parent ce7672b750
commit ef5e368327
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/rautils.pas
View File

@ -922,6 +922,27 @@ Begin
SetupVar:=TRUE;
Exit;
end;
{$ifdef i8086}
labelsym :
begin
case opr.typ of
OPR_REFERENCE:
begin
opr.ref.symbol:=current_asmdata.RefAsmSymbol(tlabelsym(sym).mangledname);
if opr.ref.segment=NR_NO then
opr.ref.segment:=NR_CS;
end;
else
begin
Message(asmr_e_unsupported_symbol_type);
exit;
end;
end;
hasvar:=true;
SetupVar:=TRUE;
Exit;
end
{$endif i8086}
else
begin
Message(asmr_e_unsupported_symbol_type);

4
compiler/x86/rax86int.pas
View File

@ -1263,6 +1263,10 @@ Unit Rax86int;
end
else
oper.opr.ref.relsymbol:=hl;
{$ifdef i8086}
if oper.opr.ref.segment=NR_NO then
oper.opr.ref.segment:=NR_CS;
{$endif i8086}
end
else
if oper.SetupVar(tempstr,GotOffset) then