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

+ implemented hlcg.a_loadaddr_ref_reg for i8086, which uses tosize to determine whether the destination is a far pointer, instead of using the presence of ref.segment

Browse Source 
git-svn-id: trunk@27321 -
This commit is contained in:
nickysn 2014-03-28 14:49:43 +00:00
parent a08e8ff982
commit ead05754b4
1 changed files with 41 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
compiler/i8086/hlcgcpu.pas
View File

@ -48,6 +48,8 @@ interface
procedure reference_reset_base(var ref: treference; regsize: tdef; reg: tregister; offset, alignment: longint); override;
procedure a_loadaddr_ref_reg(list : TAsmList;fromsize, tosize : tdef;const ref : treference;r : tregister);override;
procedure g_copyvaluepara_openarray(list: TAsmList; const ref: treference; const lenloc: tlocation; arrdef: tarraydef; destreg: tregister); override;
procedure g_releasevaluepara_openarray(list: TAsmList; arrdef: tarraydef; const l: tlocation); override;
@ -64,7 +66,8 @@ implementation
cpubase,cpuinfo,tgobj,cgobj,cgcpu,
defutil,
symconst,
procinfo;
procinfo,
aasmcpu;
{ thlcgcpu }
@ -201,6 +204,43 @@ implementation
end;
procedure thlcgcpu.a_loadaddr_ref_reg(list: TAsmList; fromsize, tosize: tdef; const ref: treference; r: tregister);
var
tmpref,segref: treference;
begin
{ step 1: call the x86 low level code generator to handle the offset;
we set the segment to NR_NO to disable the i8086 segment handling code
in the low level cg (which can be removed, once all calls to
a_loadaddr_ref_reg go through the high level code generator) }
tmpref:=ref;
tmpref.segment:=NR_NO;
cg.a_loadaddr_ref_reg(list, tmpref, r);
{ step 2: if destination is a far pointer, we have to pass a segment as well }
if is_farpointer(tosize) or is_hugepointer(tosize) then
begin
{ if a segment register is specified in ref, we use that }
if ref.segment<>NR_NO then
begin
if is_segment_reg(ref.segment) then
list.concat(Taicpu.op_reg_reg(A_MOV,S_W,ref.segment,GetNextReg(r)))
else
cg.a_load_reg_reg(list,OS_16,OS_16,ref.segment,GetNextReg(r));
end
{ references relative to a symbol use the segment of the symbol,
which can be obtained by the SEG directive }
else if assigned(ref.symbol) then
begin
reference_reset_symbol(segref,ref.symbol,0,0);
segref.refaddr:=addr_seg;
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_16,OS_16,segref,GetNextReg(r));
end
else
internalerror(2014032801);
end;
end;
procedure thlcgcpu.g_copyvaluepara_openarray(list: TAsmList; const ref: treference; const lenloc: tlocation; arrdef: tarraydef; destreg: tregister);
begin
if paramanager.use_fixed_stack then