paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for Mantis #38023: the code to convert LF to CRLF when converting to UTF-8 is disabled anyway, so disable unnecessary, duplicate if-branches as well

Browse Source 
git-svn-id: trunk@47284 -
(cherry picked from commit c2454d5386)
This commit is contained in:
svenbarth 2020-11-02 16:42:32 +00:00 committed by marcoonthegit
parent d1c29e6cb9
commit 0de9940d01
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/ustrings.inc
View File

@ -1842,6 +1842,7 @@ end;
if (IBYTE and $80) = 0 then
begin
//One character US-ASCII, convert it to unicode
(*
if IBYTE = 10 then
begin
If (PreChar<>13) and FALSE then
@ -1871,6 +1872,7 @@ end;
end;
end
else
*)
begin
Dest[OutputUnicode]:=WideChar(IBYTE);
inc(OutputUnicode);
@ -1985,6 +1987,7 @@ end;
if (IBYTE and $80) = 0 then
begin
//One character US-ASCII, convert it to unicode
(*
if IBYTE = 10 then
begin
if (PreChar<>13) and FALSE then
@ -2002,6 +2005,7 @@ end;
end;
end
else
*)
begin
inc(OutputUnicode);
PreChar:=IBYTE;