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

Merged revisions 12088 via svnmerge from
svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
r12088 | michael | 2008-11-14 14:06:45 +0100 (Fri, 14 Nov 2008) | 1 line

* removed debug statement
........

git-svn-id: branches/fixes_2_2@12090 -

michael 17 лет назад
Родитель
Сommit
6465ee5ae8
1 измененных файлов с 0 добавлено и 1 удалено
  1. 0 1
      rtl/objpas/sysutils/sysstr.inc

+ 0 - 1
rtl/objpas/sysutils/sysstr.inc

@@ -1984,7 +1984,6 @@ Var
       I:=DecimalPoint-Placehold[2];
       If (Value<0) and (I<DecimalPoint) and (Digits[1]<>'-') then
         begin
-        Writeln('Inserting - at ',I);
         Insert('-',Digits,I);
         Inc(DecimalPoint);
         Inc(I);