Browse Source

* Guard against empty source, fixes build of docs

Michaël Van Canneyt 1 year ago
parent
commit
cc195c649a
1 changed files with 1 additions and 0 deletions
  1. 1 0
      utils/fpdoc/sh_pas.pp

+ 1 - 0
utils/fpdoc/sh_pas.pp

@@ -248,6 +248,7 @@ var
 var
 var
   StringLength: Integer;
   StringLength: Integer;
 begin
 begin
+  if Source=Nil then exit;
   dp := 0;
   dp := 0;
   LastSHPos := 0;
   LastSHPos := 0;