paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 12:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also handle nested proc ptrs in thlcgcpu.location_force_mem on i8086

Browse Source 
git-svn-id: trunk@25824 -
This commit is contained in:
nickysn 2013-10-18 20:09:01 +00:00
parent aab978fd19
commit 7e7ab2fd4d
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/i8086/hlcgcpu.pas
View File

@ -55,6 +55,7 @@ implementation
globtype,verbose,
paramgr,
cpubase,cpuinfo,tgobj,cgobj,cgcpu,
defutil,
symconst;
{ thlcgcpu }
@ -199,9 +200,21 @@ implementation
procedure thlcgcpu.location_force_mem(list: TAsmList; var l: tlocation; size: tdef);
var
r,tmpref: treference;
is_sixbyterecord: Boolean;
is_methodptr: Boolean;
is_nestedprocptr: Boolean;
begin
{ handle i8086 6-byte (mixed near + far) method pointers }
if (size.typ in [procvardef,recorddef]) and (size.size=6) and (l.loc in [LOC_REGISTER,LOC_CREGISTER]) then
is_sixbyterecord:=(size.typ=recorddef) and (size.size=6);
is_methodptr:=(size.typ=procvardef)
and (po_methodpointer in tprocvardef(size).procoptions)
and not(po_addressonly in tprocvardef(size).procoptions);
is_nestedprocptr:=(size.typ=procvardef)
and is_nested_pd(tprocvardef(size))
and not(po_addressonly in tprocvardef(size).procoptions);
{ handle i8086 method pointers (incl. 6-byte mixed near + far),
6-byte records and nested proc ptrs }
if (is_sixbyterecord or is_methodptr or is_nestedprocptr) and (l.loc in [LOC_REGISTER,LOC_CREGISTER]) then
begin
tg.gethltemp(list,size,size.size,tt_normal,r);
tmpref:=r;