paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:20:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Guard against empty source, fixes build of docs

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-13 09:07:34 +01:00
parent 3ed5a4a022
commit cc195c649a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
utils/fpdoc/sh_pas.pp
View File

@ -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;