* Better length check

rtl/inc/exeinfo.pp

@@ -84,8 +84,11 @@ var
 
 begin
   ReadDebugLink:=ReadDebugLink(e,fn);
-  if ReadDebugLink and (length(fn)<256) then
-    dbgfn:=fn;
+  if ReadDebugLink then
+    if (length(fn)<256) then
+      dbgfn:=fn
+    else
+      ReadDebugLink:=False;
 end;