paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-11 23:28:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ override tabstractprocdef.getcopyas for i8086, so it preserves the po_far

Browse Source 
option (so that for far procedures, a far procdef is created)

git-svn-id: trunk@38601 -
This commit is contained in:
nickysn 2018-03-22 23:22:26 +00:00
parent 64297e9c96
commit 3b70fc628c
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/i8086/symcpu.pas
View File

@ -110,6 +110,7 @@ type
tcpuprocvardef = class(ti86procvardef) tcpuprocvardef = class(ti86procvardef)
constructor create(level:byte);override; constructor create(level:byte);override;
function getcopyas(newtyp:tdeftyp;copytyp:tproccopytyp):tstoreddef;override;
function address_type:tdef;override; function address_type:tdef;override;
function size:asizeint;override; function size:asizeint;override;
procedure declared_far;override; procedure declared_far;override;
@ -130,6 +131,7 @@ type
function default_far:boolean; function default_far:boolean;
public public
constructor create(level:byte;doregister:boolean);override; constructor create(level:byte;doregister:boolean);override;
function getcopyas(newtyp:tdeftyp;copytyp:tproccopytyp):tstoreddef;override;
function address_type:tdef;override; function address_type:tdef;override;
function size:asizeint;override; function size:asizeint;override;
procedure declared_far;override; procedure declared_far;override;
@ -329,6 +331,16 @@ implementation
end; end;
function tcpuprocdef.getcopyas(newtyp:tdeftyp;copytyp:tproccopytyp):tstoreddef;
begin
result:=inherited;
if is_far then
include(tabstractprocdef(result).procoptions,po_far)
else
exclude(tabstractprocdef(result).procoptions,po_far);
end;
function tcpuprocdef.address_type: tdef; function tcpuprocdef.address_type: tdef;
begin begin
if is_far then if is_far then
@ -398,6 +410,16 @@ implementation
end; end;
function tcpuprocvardef.getcopyas(newtyp:tdeftyp;copytyp:tproccopytyp):tstoreddef;
begin
result:=inherited;
if is_far then
include(tabstractprocdef(result).procoptions,po_far)
else
exclude(tabstractprocdef(result).procoptions,po_far);
end;
function tcpuprocvardef.address_type:tdef; function tcpuprocvardef.address_type:tdef;
begin begin
if is_addressonly then if is_addressonly then