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

* add internconst for all overloaded types of Odd/Abs/Sqr

Browse Source
This commit is contained in:
peter 2002-01-25 17:38:55 +00:00
parent 34d4f5e291
commit c3f645769a
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/generic.inc
View File

@ -750,7 +750,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_ODD_LONGINT} {$ifndef FPC_SYSTEM_HAS_ODD_LONGINT}
function odd(l:longint):boolean; function odd(l:longint):boolean;[internconst:in_const_odd];
begin begin
odd:=boolean(l and 1); odd:=boolean(l and 1);
end; end;
@ -759,7 +759,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_ODD_CARDINAL} {$ifndef FPC_SYSTEM_HAS_ODD_CARDINAL}
function odd(l:cardinal):boolean; function odd(l:cardinal):boolean;[internconst:in_const_odd];
begin begin
odd:=boolean(l and 1); odd:=boolean(l and 1);
end; end;
@ -778,7 +778,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_ODD_QWORD} {$ifndef FPC_SYSTEM_HAS_ODD_QWORD}
function odd(l:qword):boolean; function odd(l:qword):boolean;[internconst:in_const_odd];
begin begin
odd:=boolean(longint(l) and 1); odd:=boolean(longint(l) and 1);
end; end;
@ -797,7 +797,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_ABS_INT64} {$ifndef FPC_SYSTEM_HAS_ABS_INT64}
function abs(l: Int64): Int64; function abs(l: Int64): Int64;[internconst:in_const_abs];
begin begin
if l < 0 then if l < 0 then
abs := -l abs := -l
@ -810,7 +810,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_SQR_INT64} {$ifndef FPC_SYSTEM_HAS_SQR_INT64}
function sqr(l: Int64): Int64; function sqr(l: Int64): Int64;[internconst:in_const_sqr];
begin begin
sqr := l*l; sqr := l*l;
end; end;
@ -820,7 +820,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_SQR_QWORD} {$ifndef FPC_SYSTEM_HAS_SQR_QWORD}
function sqr(l: QWord): QWord; function sqr(l: QWord): QWord;[internconst:in_const_sqr];
begin begin
sqr := l*l; sqr := l*l;
end; end;
@ -923,7 +923,10 @@ end;
{ {
$Log$ $Log$
Revision 1.22 2002-01-24 12:33:53 jonas Revision 1.23 2002-01-25 17:38:55 peter
* add internconst for all overloaded types of Odd/Abs/Sqr
Revision 1.22 2002/01/24 12:33:53 jonas
* adapted ranges of native types to int64 (e.g. high cardinal is no * adapted ranges of native types to int64 (e.g. high cardinal is no
longer longint($ffffffff), but just $fffffff in psystem) longer longint($ffffffff), but just $fffffff in psystem)
* small additional fix in 64bit rangecheck code generation for 32 bit * small additional fix in 64bit rangecheck code generation for 32 bit