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

* Faster overloaded inttobin 32-bit and 64-bit.

Browse Source 
git-svn-id: trunk@8775 -
This commit is contained in:
marco 2007-10-12 20:54:15 +00:00
parent 0907f3c73b
commit 807e964dab
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
rtl/objpas/strutils.pp
View File

@ -165,6 +165,8 @@ function Hex2Dec(const S: string): Longint;
function Dec2Numb(N: Longint; Len, Base: Byte): string; function Dec2Numb(N: Longint; Len, Base: Byte): string;
function Numb2Dec(S: string; Base: Byte): Longint; function Numb2Dec(S: string; Base: Byte): Longint;
function IntToBin(Value: Longint; Digits, Spaces: Integer): string; function IntToBin(Value: Longint; Digits, Spaces: Integer): string;
function IntToBin(Value: Longint; Digits: Integer): string;
function intToBin(Value: int64; Digits:integer): string;
function IntToRoman(Value: Longint): string; function IntToRoman(Value: Longint): string;
function RomanToInt(const S: string): Longint; function RomanToInt(const S: string): Longint;
procedure BinToHex(BinValue, HexValue: PChar; BinBufSize: Integer); procedure BinToHex(BinValue, HexValue: PChar; BinBufSize: Integer);
@ -1316,6 +1318,50 @@ begin
end; end;
end; end;
{$implicitexceptions off}
function intToBin(Value: Longint; Digits:integer): string;
var p,p2 : pchar;
begin
result:='';
if digits<=0 then exit;
setlength(result,digits);
p:=pchar(pointer(@result[digits]));
p2:=pchar(pointer(@result[1]));
// typecasts because we want to keep intto* delphi compat and take an integer
while (p>=p2) and (cardinal(value)>0) do
begin
p^:=chr(48+(cardinal(value) and 1));
value:=cardinal(value) shr 1;
dec(p);
end;
digits:=p-p2+1;
if digits>0 then
fillchar(result[1],digits,#48);
end;
function intToBin(Value: int64; Digits:integer): string;
var p,p2 : pchar;
begin
result:='';
if digits<=0 then exit;
setlength(result,digits);
p:=pchar(pointer(@result[digits]));
p2:=pchar(pointer(@result[1]));
// typecasts because we want to keep intto* delphi compat and take a signed val
// and avoid warnings
while (p>=p2) and (qword(value)>0) do
begin
p^:=chr(48+(cardinal(value) and 1));
value:=qword(value) shr 1;
dec(p);
end;
digits:=p-p2+1;
if digits>0 then
fillchar(result[1],digits,#48);
end;
{$implicitexceptions on}
function FindPart(const HelpWilds, inputStr: string): Integer; function FindPart(const HelpWilds, inputStr: string): Integer;
var var
i, J: Integer; i, J: Integer;