paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* is_farpointer and is_hugepointer moved from defutil to symcpu

Browse Source 
git-svn-id: trunk@28328 -
This commit is contained in:
nickysn 2014-08-06 20:32:41 +00:00
parent 3c8b24eead
commit 4ea551a0f7
5 changed files with 19 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/defutil.pas
View File

@ -331,14 +331,6 @@ interface
{ returns true of def is a methodpointer }
function is_methodpointer(def : tdef) : boolean;
{$ifdef i8086}
{# Returns true if p is a far pointer def }
function is_farpointer(p : tdef) : boolean;
{# Returns true if p is a huge pointer def }
function is_hugepointer(p : tdef) : boolean;
{$endif i8086}
implementation
uses
@ -1433,18 +1425,4 @@ implementation
result:=(def.typ=procvardef) and (po_methodpointer in tprocvardef(def).procoptions);
end;
{$ifdef i8086}
{ true if p is a far pointer def }
function is_farpointer(p : tdef) : boolean;
begin
result:=(p.typ=pointerdef) and (tcpupointerdef(p).x86pointertyp=x86pt_far);
end;
{ true if p is a huge pointer def }
function is_hugepointer(p : tdef) : boolean;
begin
result:=(p.typ=pointerdef) and (tcpupointerdef(p).x86pointertyp=x86pt_huge);
end;
{$endif i8086}
end.

2
compiler/i8086/n8086add.pas
View File

@ -55,7 +55,7 @@ interface
uses
globtype,systems,
cutils,verbose,globals,constexp,pass_1,
symconst,symdef,symtype,paramgr,defutil,
symconst,symdef,symtype,symcpu,paramgr,defutil,
aasmbase,aasmtai,aasmdata,aasmcpu,
cgbase,procinfo,
ncal,ncon,nset,cgutils,tgobj,

2
compiler/i8086/n8086inl.pas
View File

@ -51,7 +51,7 @@ implementation
symconst,
defutil,
aasmbase,aasmtai,aasmdata,aasmcpu,
symtype,symdef,
symtype,symdef,symcpu,
cgbase,pass_2,
cpuinfo,cpubase,paramgr,
nbas,ncon,ncal,ncnv,nld,ncgutil,

2
compiler/i8086/n8086tcon.pas
View File

@ -42,7 +42,7 @@ interface
implementation
uses
ncnv,defcmp,defutil,aasmtai;
ncnv,defcmp,defutil,aasmtai,symcpu;
{ ti8086typedconstbuilder }

16
compiler/i8086/symcpu.pas
View File

@ -210,6 +210,11 @@ const
function is_proc_far(p: tabstractprocdef): boolean;
{# Returns true if p is a far pointer def }
function is_farpointer(p : tdef) : boolean;
{# Returns true if p is a huge pointer def }
function is_hugepointer(p : tdef) : boolean;
implementation
@ -227,6 +232,17 @@ implementation
internalerror(2014041301);
end;
{ true if p is a far pointer def }
function is_farpointer(p : tdef) : boolean;
begin
result:=(p.typ=pointerdef) and (tcpupointerdef(p).x86pointertyp=x86pt_far);
end;
{ true if p is a huge pointer def }
function is_hugepointer(p : tdef) : boolean;
begin
result:=(p.typ=pointerdef) and (tcpupointerdef(p).x86pointertyp=x86pt_huge);
end;
{****************************************************************************
tcpuarraydef