paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added defutil.is_32bit helper function, similar to is_64bit

Browse Source 
git-svn-id: branches/i8086@23869 -
This commit is contained in:
nickysn 2013-03-16 17:54:52 +00:00
parent edd4c1ce4b
commit a274e62724
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defutil.pas
View File

@ -228,6 +228,9 @@ interface
{# Returns true, if def is a 32 bit integer type }
function is_32bitint(def : tdef) : boolean;
{# Returns true, if def is a 32 bit ordinal type }
function is_32bit(def : tdef) : boolean;
{# Returns true, if def is a 64 bit integer type }
function is_64bitint(def : tdef) : boolean;
@ -794,6 +797,11 @@ implementation
result:=(def.typ=orddef) and (torddef(def).ordtype in [u32bit,s32bit])
end;
{ true, if def is a 32 bit ordinal type }
function is_32bit(def: tdef): boolean;
begin
result:=(def.typ=orddef) and (torddef(def).ordtype in [u32bit,s32bit,pasbool32,bool32bit])
end;
{ true, if def is a 64 bit int type }
function is_64bitint(def : tdef) : boolean;