paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 21:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@7451 -
This commit is contained in:
Almindor 2007-05-24 11:15:39 +00:00
parent 2207d159d7
commit 2b873af182
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/inc/base64.pp
View File

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