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

* fixed nested access to parent local variables in i8086 far data memory models

Browse Source 
git-svn-id: trunk@27388 -
This commit is contained in:
nickysn 2014-03-30 17:50:35 +00:00
parent 8dfcc2b399
commit f4a0c08736
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/i8086/n8086ld.pas
View File

@ -27,11 +27,12 @@ interface
uses
globtype,
symsym,
symsym,symtype,
node,ncgld;
type
ti8086loadnode = class(tcgloadnode)
procedure generate_nested_access(vs: tsym); override;
procedure generate_absaddr_access(vs: tabsolutevarsym); override;
end;
@ -42,12 +43,38 @@ implementation
globals,aasmdata,
symcpu,
nld,
cgbase,cgobj;
cgbase,cgobj,
cpubase,cpuinfo;
{*****************************************************************************
TI8086LOADNODE
*****************************************************************************}
procedure ti8086loadnode.generate_nested_access(vs: tsym);
begin
inherited;
{ the parentfp pointer is always a near pointer (this is turbo pascal
compatible) regardless of memory model, so we need to set the segment
manually.
todo: once the far data memory models are fully implemented, the
parentfp type should be changed to a near 'ss' pointer in all memory
models and then this code can be removed. But this can only happen
after:
1) all calls to a_loadaddr_ref_reg go through the high level code
generator
2) a_loadaddr_ref_reg in the low level code generator stops using
the presence of a segment in the source reference to determine the
destination reg size
3) make_simple_ref is updated to remove unnecessary segment prefixes
4) hlcg.reference_reset_base is updated to set the segment on near_ss
pointers }
if (left.nodetype=loadparentfpn) and
(current_settings.x86memorymodel in x86_far_data_models) then
location.reference.segment:=NR_SS;
end;
procedure ti8086loadnode.generate_absaddr_access(vs: tabsolutevarsym);
begin
if tcpuabsolutevarsym(symtableentry).absseg then