FIX: allow incomplete tag in DER codec (because it looks it can happen)

Oldes · Jun 8, 2020 · 6238d23 · 6238d23
1 parent 38b90d0
commit 6238d23
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/mezz/codec-der.r b/src/mezz/codec-der.r
@@ -86,6 +86,11 @@ register-codec [
 				insert tails (data-pos + length)
 			][
 				;- primitive
+				;print ["tag:" tag-name "len: " length length? der/buffer]
+				if length > length? der/buffer [
+					print "Tag length expects more bytes than available!"
+					length: length? der/buffer
+				]
 				binary/read der [data: BYTES :length]
 				switch tag-name [
 					OBJECT_IDENTIFIER [