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

* Fixed writing of open array declaration

Browse Source 
git-svn-id: trunk@7326 -
This commit is contained in:
michael 2007-05-13 17:45:44 +00:00
parent 2212c78609
commit 0e79eb1fe6
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
utils/fpdoc/dw_html.pp
View File

@ -1401,6 +1401,10 @@ end;
{ Returns the new CodeEl, which will be the old CodeEl in most cases }
function THTMLWriter.AppendType(CodeEl, TableEl: TDOMElement;
Element: TPasType; Expanded: Boolean; NestingLevel: Integer): TDOMElement;
Var
S : String;
begin
Result := CodeEl;
@ -1412,9 +1416,15 @@ begin
// Array
if Element.ClassType = TPasArrayType then
begin
AppendPasSHFragment(CodeEl,
'array [' + TPasArrayType(Element).IndexRange + '] of ', 0);
Result := AppendType(CodeEl, TableEl, TPasArrayType(Element).ElType, False);
S:='array ';
If (TPasArrayType(Element).IndexRange<>'') then
S:=S+'[' + TPasArrayType(Element).IndexRange + '] ';
S:=S+'of ';
If (TPasArrayType(Element).ElType=Nil) then
S:=S+'Const';
AppendPasSHFragment(CodeEl,S,0);
If (TPasArrayType(Element).ElType<>Nil) then
Result := AppendType(CodeEl, TableEl, TPasArrayType(Element).ElType, False);
end else
// Procedure or funtion type
if Element.InheritsFrom(TPasProcedureType) then