From 73f2bb4cf6d824c98d03ca6b0d6473d12abaadb9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 28 Feb 2021 22:40:26 +0000
Subject: [PATCH] lazutils: UTF8BOMToUTF8: sanity check

git-svn-id: branches/fixes_2_0@64701 -
---
 components/lazutils/lconvencoding.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/lazutils/lconvencoding.pas b/components/lazutils/lconvencoding.pas
index bd3911074b..49982e2a03 100644
--- a/components/lazutils/lconvencoding.pas
+++ b/components/lazutils/lconvencoding.pas
@@ -5238,7 +5238,11 @@ const
 
 function UTF8BOMToUTF8(const s: string): string;
 begin
-  Result:=copy(s,4,length(s));
+  if s='' then exit('');
+  if CompareMem(@UTF8BOM[1],@s[1],length(UTF8BOM)) then
+    Result:=copy(s,4,length(s))
+  else
+    Result:=s;
 end;
 
 function ISO_8859_1ToUTF8(const s: string): string;