X-Git-Url: https://www.bearssl.org/gitweb//home/git/?p=BearSSL;a=blobdiff_plain;f=src%2Fcodec%2Fpemdec.t0;h=ba4a9e2e3e643b82461c796cd285fb34428eeed0;hp=7a0798c5683daa36e6e3d221372aaeec676c5cc4;hb=292f43357850dbadd1f7e8a343415a707af3a800;hpb=3210f38e0491b39aec1ef419cb4114e9483089fb

diff --git a/src/codec/pemdec.t0 b/src/codec/pemdec.t0
index 7a0798c..ba4a9e2 100644
--- a/src/codec/pemdec.t0
+++ b/src/codec/pemdec.t0
@@ -144,7 +144,8 @@ cc: read8-native ( -- x ) {
 	begin
 		over ifnot 2drop skip-newline 0 ret then
 		read8 dup `\n = if 2drop orig-len swap - ret then
-		norm-upper over set8 1+ swap 1- swap
+		dup `\r = if drop else norm-upper over set8 then
+		1+ swap 1- swap
 	again ;
 
 \ Remove trailing dashes from the name buffer.