paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 16:27:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ispowerf2 now works with 64bit ints and should be faster

Browse Source
This commit is contained in:
Jonas Maebe 2001-09-05 15:20:26 +00:00
parent 2e6a221b2a
commit b81a4bb773
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/cutils.pas
View File

@ -26,6 +26,9 @@ unit cutils;
interface
uses
cpuinfo;
{$ifdef delphi}
type
dword = cardinal;
@ -57,7 +60,7 @@ interface
function tostr_with_plus(i : longint) : string;
procedure valint(S : string;var V : longint;var code : integer);
function is_number(const s : string) : boolean;
function ispowerof2(value : longint;var power : longint) : boolean;
function ispowerof2(value : TConstExprInt;var power : longint) : boolean;
function maybequoted(const s:string):string;
function CompareText(S1, S2: string): longint;
@ -479,17 +482,22 @@ uses
end;
function ispowerof2(value : longint;var power : longint) : boolean;
function ispowerof2(value : TConstExprInt;var power : longint) : boolean;
{
return if value is a power of 2. And if correct return the power
}
var
hl : longint;
hl : TConstExprInt;
i : longint;
begin
if value and (value - 1) <> 0 then
begin
ispowerof2 := false;
exit
end;
hl:=1;
ispowerof2:=true;
for i:=0 to 31 do
for i:=0 to 63 do
begin
if hl=value then
begin
@ -748,7 +756,10 @@ initialization
end.
{
$Log$
Revision 1.10 2001-08-04 11:06:30 peter
Revision 1.11 2001-09-05 15:20:26 jonas
* ispowerf2 now works with 64bit ints and should be faster
Revision 1.10 2001/08/04 11:06:30 peter
* browcol has no depends on ide/fv
Revision 1.9 2001/07/30 20:59:27 peter