paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 17:33:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ is_single added

Browse Source
This commit is contained in:
florian 2003-11-10 18:05:16 +00:00
parent 80abe98cf0
commit 69f8751c7a
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/defutil.pas
View File

@ -157,6 +157,9 @@ interface
{# Returns true, if def is a currency type } {# Returns true, if def is a currency type }
function is_currency(def : tdef) : boolean; function is_currency(def : tdef) : boolean;
{# Returns true, if def is a single type }
function is_single(def : tdef) : boolean;
{# Returns true, if def is a 64 bit integer type } {# Returns true, if def is a 64 bit integer type }
function is_64bitint(def : tdef) : boolean; function is_64bitint(def : tdef) : boolean;
@ -212,6 +215,14 @@ implementation
end; end;
{ returns true, if def is a currency type }
function is_single(def : tdef) : boolean;
begin
result:=(def.deftype=floatdef) and
(tfloatdef(def).typ=s32real);
end;
function range_to_basetype(low,high:TConstExprInt):tbasetype; function range_to_basetype(low,high:TConstExprInt):tbasetype;
begin begin
{ generate a unsigned range if high<0 and low>=0 } { generate a unsigned range if high<0 and low>=0 }
@ -822,7 +833,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.6 2003-10-01 20:34:48 peter Revision 1.7 2003-11-10 18:05:16 florian
+ is_single added
Revision 1.6 2003/10/01 20:34:48 peter
* procinfo unit contains tprocinfo * procinfo unit contains tprocinfo
* cginfo renamed to cgbase * cginfo renamed to cgbase
* moved cgmessage to verbose * moved cgmessage to verbose