Parcourir la source

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 il y a 17 ans
Parent
commit
6465ee5ae8
1 fichiers modifiés avec 0 ajouts et 1 suppressions
  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);