From b5e048691cdca453ec82627f09904a211735fe90 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 2 Jun 2007 22:17:45 +0000
Subject: [PATCH] * Fixed writing of untyped file

git-svn-id: trunk@7557 -
---
 utils/fpdoc/dw_html.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index e8a0c869d6..457b4fb1bd 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -1439,7 +1439,9 @@ begin
   // Record type
   else if Element.ClassType = TPasRecordType then
     Result := AppendRecordType(CodeEl, TableEl, TPasRecordType(Element), NestingLevel)
-  else
+  else if (Element.ClassType = TPasFileType) and (TPasFileType(Element).elType=Nil) then
+    AppendPasSHFragment(CodeEl,'file',0)
+  else  
   // Other types
     AppendHyperlink(CodeEl, Element);
 end;