From 4c7aab2f151e05fd4ca8e0b24023fa779401dd16 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 27 Jan 2008 10:48:45 +0000
Subject: [PATCH] * Support for bitpacked and removed stray debug writeln

git-svn-id: trunk@10029 -
---
 utils/fpdoc/dw_html.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index 6498f5626f..bc600bcc6e 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -657,7 +657,7 @@ var
   i: Integer;
   PageDoc: TXMLDocument;
   Filename: String;
-begin WriteLn('!!!!!!!!!!!!!!!!!!!!!!1');
+begin 
   if Engine.Output <> '' then
     Engine.Output := IncludeTrailingBackSlash(Engine.Output);
   for i := 0 to PageInfos.Count - 1 do
@@ -1647,7 +1647,10 @@ var
 begin
   if not (Element.Parent is TPasVariant) then
     if Element.IsPacked then
-      AppendKw(CodeEl, 'packed record')
+      If Element.IsBitPacked then
+        AppendKw(CodeEl, 'bitpacked record')
+      else
+        AppendKW(CodeEl, 'packed record')  
     else
       AppendKw(CodeEl, 'record');