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

+ get_unsigned_inttype(def) to get an unsigned integer type of the same

Browse Source 
size as the provided def (must be an orddef or enumdef)

git-svn-id: trunk@34033 -
This commit is contained in:
Jonas Maebe 2016-06-30 15:33:43 +00:00
parent 8e2607d96d
commit 33b44443b8
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/defutil.pas
View File

@ -103,6 +103,10 @@ interface
}
function is_signed(def : tdef) : boolean;
{# Returns an unsigned integer type of the same size as def; def must be
an ordinal or enum }
function get_unsigned_inttype(def: tdef): torddef;
{# Returns whether def_from's range is comprised in def_to's if both are
orddefs, false otherwise }
function is_in_limit(def_from,def_to : tdef) : boolean;
@ -608,6 +612,18 @@ implementation
end;
function get_unsigned_inttype(def: tdef): torddef;
begin
case def.typ of
orddef,
enumdef:
result:=cgsize_orddef(tcgsize2unsigned[def_cgsize(def)]);
else
internalerror(2016062001);
end;
end;
function is_in_limit(def_from,def_to : tdef) : boolean;
begin