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

* changed first parameter of gen_digits_32/64() from 'out' to 'var', as that

Browse Source 
routine gets called multiple times with the same buffer as parameter and
    then updates it (fixes errors when compiled with -gt)

git-svn-id: trunk@33203 -
This commit is contained in:
Jonas Maebe 2016-03-07 19:59:02 +00:00
parent 741c91275a
commit 60632d0f18
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/flt_core.inc
View File

@ -755,7 +755,7 @@ type
| to the sequence of byte-sized decimal digits.
|
*-------------------------------------------------------*)
function gen_digits_32( out buf: TAsciiDigits; pos: integer; x: dword; pad_9zero: boolean = false ): integer;
function gen_digits_32( var buf: TAsciiDigits; pos: integer; x: dword; pad_9zero: boolean = false ): integer;
const
digits: array [ 0 .. 9 ] of dword = (
0,
@ -803,7 +803,7 @@ begin
end;
{$ifndef VALREAL_32}
function gen_digits_64( out buf: TAsciiDigits; pos: integer; const x: qword; pad_19zero: boolean = false ): integer;
function gen_digits_64( var buf: TAsciiDigits; pos: integer; const x: qword; pad_19zero: boolean = false ): integer;
var
n_digits: integer;
temp: qword;