paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:59:12 +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. | 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 const
digits: array [ 0 .. 9 ] of dword = ( digits: array [ 0 .. 9 ] of dword = (
0, 0,
@ -803,7 +803,7 @@ begin
end; end;
{$ifndef VALREAL_32} {$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 var
n_digits: integer; n_digits: integer;
temp: qword; temp: qword;