Просмотр исходного кода

* changed first parameter of gen_digits_32/64() from 'out' to 'var', as that
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 -

Jonas Maebe 9 лет назад
Родитель
Сommit
60632d0f18
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      rtl/inc/flt_core.inc

+ 2 - 2
rtl/inc/flt_core.inc

@@ -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;