paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 10:07:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ override set_labelsym_resultdef for i8086 and set a near pointer resultdef if

Browse Source 
the anf_ofs flag is set

git-svn-id: trunk@38677 -
This commit is contained in:
nickysn 2018-04-04 12:34:21 +00:00
parent 109fb279f6
commit dadd5568db
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i8086/n8086mem.pas
View File

@ -34,6 +34,7 @@ interface
type type
ti8086addrnode = class(ti86addrnode) ti8086addrnode = class(ti86addrnode)
protected protected
procedure set_labelsym_resultdef; override;
procedure set_absvarsym_resultdef; override; procedure set_absvarsym_resultdef; override;
procedure pass_generate_code;override; procedure pass_generate_code;override;
public public
@ -68,6 +69,15 @@ implementation
TI8086ADDRNODE TI8086ADDRNODE
*****************************************************************************} *****************************************************************************}
procedure ti8086addrnode.set_labelsym_resultdef;
begin
if anf_ofs in addrnodeflags then
resultdef:=voidnearcspointertype
else
inherited;
end;
procedure ti8086addrnode.set_absvarsym_resultdef; procedure ti8086addrnode.set_absvarsym_resultdef;
begin begin
if not(anf_typedaddr in addrnodeflags) then if not(anf_typedaddr in addrnodeflags) then