From 3bc8bbf3784c999798632cf7bc82c3adee3fc0c5 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 15 Aug 2012 16:00:51 +0000
Subject: [PATCH] * Fixed to conform to new structures in pastree

git-svn-id: trunk@22092 -
---
 utils/fpdoc/dw_html.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index a65aafb6d7..f1c1ea55f6 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -1905,7 +1905,7 @@ begin
       begin
 	if j > 0 then
 	  AppendSym(CodeEl, ', ');
-	AppendPasSHFragment(CodeEl, CurVariant.Values[j], 0);
+	AppendPasSHFragment(CodeEl, TPasElement(CurVariant.Values[j]).GetDeclaration(true), 0);
       end;
       AppendSym(CodeEl, ': (');
       AppendType(CodeEl, TableEl, CurVariant.Members, True, NestingLevel + 3);