pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix compile on Linux x64

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7589 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-07-29 19:05:04 +00:00
parent 9d7457ccd4
commit 66733bb6a8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxtools/rxstrutils.pas
View File

@ -233,7 +233,7 @@ function RomanToInt(const S: string): Longint; deprecated; //use this function f
procedure StrToStrings(const S:string; const List:TStrings; const Delims:Char);
function FileToString(const AFileName:string):string;
function RxPrettySizeName(ASize:Int64):string;
function RxPrettySizeName(ASize:QWord):string;
const
DigitChars = ['0'..'9'];
Brackets = ['(',')','[',']','{','}'];
@ -1151,7 +1151,7 @@ begin
Result:='';
end;
function RxPrettySizeName(ASize: Int64): string;
function RxPrettySizeName(ASize: QWord): string;
begin
if ASize div (1024 * 1024 * 1024 * 1024) > 0 then
begin