瀏覽代碼

* remove forgotten writeln in base64 (* please merge me! *)

git-svn-id: trunk@7451 -
Almindor 18 年之前
父節點
當前提交
2b873af182
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-base/src/inc/base64.pp

+ 1 - 1
packages/fcl-base/src/inc/base64.pp

@@ -239,7 +239,7 @@ begin
             Break;
             Break;
         end;
         end;
       until count = 0;
       until count = 0;
-      writeln(Result);
+      // writeln(Result);
       // we are now either at the end of the stream, or encountered our first '=', stored in c
       // we are now either at the end of the stream, or encountered our first '=', stored in c
       if c = '=' then begin // '=' found
       if c = '=' then begin // '=' found
         if Result mod 4 <= 1 then // badly placed '=', disregard last block
         if Result mod 4 <= 1 then // badly placed '=', disregard last block