From cc195c649ac6cf3f453c138f6fdc6794cfd6e699 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 13 Feb 2024 09:07:34 +0100
Subject: [PATCH] * Guard against empty source, fixes build of docs

---
 utils/fpdoc/sh_pas.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/utils/fpdoc/sh_pas.pp b/utils/fpdoc/sh_pas.pp
index 35cb141891..0503a9e05f 100644
--- a/utils/fpdoc/sh_pas.pp
+++ b/utils/fpdoc/sh_pas.pp
@@ -248,6 +248,7 @@ var
 var
   StringLength: Integer;
 begin
+  if Source=Nil then exit;
   dp := 0;
   LastSHPos := 0;