瀏覽代碼

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 年之前
父節點
當前提交
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];
       I:=DecimalPoint-Placehold[2];
       If (Value<0) and (I<DecimalPoint) and (Digits[1]<>'-') then
       If (Value<0) and (I<DecimalPoint) and (Digits[1]<>'-') then
         begin
         begin
-        Writeln('Inserting - at ',I);
         Insert('-',Digits,I);
         Insert('-',Digits,I);
         Inc(DecimalPoint);
         Inc(DecimalPoint);
         Inc(I);
         Inc(I);