From 0be4498284856bbed27ae00823782f38bcb202d1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 17 Jul 2023 10:02:09 +0200
Subject: [PATCH] * Add length check

---
 rtl/inc/exeinfo.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/exeinfo.pp b/rtl/inc/exeinfo.pp
index b545211e7e..603d5b4fb9 100644
--- a/rtl/inc/exeinfo.pp
+++ b/rtl/inc/exeinfo.pp
@@ -84,7 +84,7 @@ var
 
 begin
   ReadDebugLink:=ReadDebugLink(e,fn);
-  if ReadDebugLink then
+  if ReadDebugLink and (length(fn)<256) then
     dbgfn:=fn;
 end;