paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 07:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* quick fix for uninitialized "CodeEl" usage that trips up small test programs

Browse Source 
git-svn-id: trunk@39051 -
This commit is contained in:
marco 2018-05-20 13:06:13 +00:00
parent 2411cb3f24
commit f401410500
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
utils/fpdoc/dw_html.pp
View File

@ -3169,6 +3169,7 @@ var
begin
isRecord:=AParent is TPasRecordType;
CodeEl:=nil;
if Members.Count > 0 then
begin
wt:=False;
@ -3290,12 +3291,15 @@ begin
end;
CodeEl := CreateCode(CreatePara(CreateTD(CreateTR(TableEl))));
end;
AppendText(CodeEl, ' '); // !!!: Dirty trick, necessary for current XML writer
If AddEnd then
begin
AppendKw(CodeEl, 'end');
AppendSym(CodeEl, ';');
end;
if assigned(CodeEl) Then
begin
AppendText(CodeEl, ' '); // !!!: Dirty trick, necessary for current XML writer
If AddEnd then
begin
AppendKw(CodeEl, 'end');
AppendSym(CodeEl, ';');
end;
end;
end;
procedure THTMLWriter.CreateClassPageBody(AClass: TPasClassType;