paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tabstractprocdef.address_type i8086-specific code moved to symcpu, ifdef i8086 removed

Browse Source 
git-svn-id: trunk@27548 -
This commit is contained in:
nickysn 2014-04-12 15:09:17 +00:00
parent 9f4dd78701
commit 0a515311e6
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i8086/symcpu.pas
View File

@ -99,6 +99,7 @@ type
tcpuprocdef = class(tprocdef) tcpuprocdef = class(tprocdef)
constructor create(level:byte);override; constructor create(level:byte);override;
function address_type:tdef;override;
end; end;
tcpuprocdefclass = class of tcpuprocdef; tcpuprocdefclass = class of tcpuprocdef;
@ -198,6 +199,15 @@ implementation
procoptions:=procoptions+[po_far]; procoptions:=procoptions+[po_far];
end; end;
function tcpuprocdef.address_type: tdef;
begin
if po_far in procoptions then
result:=voidfarpointertype
else
result:=voidnearpointertype;
end;
{**************************************************************************** {****************************************************************************
tcpuprocvardef tcpuprocvardef
****************************************************************************} ****************************************************************************}

11
compiler/symdef.pas
View File

@ -574,7 +574,7 @@ interface
procedure init_paraloc_info(side: tcallercallee); procedure init_paraloc_info(side: tcallercallee);
function stack_tainting_parameter(side: tcallercallee): boolean; function stack_tainting_parameter(side: tcallercallee): boolean;
function is_pushleftright: boolean; function is_pushleftright: boolean;
function address_type:tdef; function address_type:tdef;virtual;
procedure declared_far;virtual; procedure declared_far;virtual;
procedure declared_near;virtual; procedure declared_near;virtual;
private private
@ -4486,14 +4486,7 @@ implementation
function tabstractprocdef.address_type: tdef; function tabstractprocdef.address_type: tdef;
begin begin
{$ifdef i8086} result:=voidcodepointertype;
if po_far in procoptions then
result:=voidfarpointertype
else
result:=voidnearpointertype;
{$else i8086}
result:=voidpointertype;
{$endif i8086}
end; end;