diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2008-07-23 08:55:36 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2008-07-23 08:55:36 +0000 |
| commit | a6ae8b88a50edf9a54eee11aa905aa20d2169601 (patch) | |
| tree | a18d0f7defcb2421a0132bbe8d8c749cb9deb46d /ocamldoc/odoc_man.ml | |
| parent | ff38e7832c1b9148c23c98b3f620608382de8d97 (diff) | |
fix bug #4585 and handle virtual flag for class value in all generators
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8927 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_man.ml')
| -rw-r--r-- | ocamldoc/odoc_man.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index eb2a1bac4..fefbe0877 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -479,6 +479,7 @@ class man = (** Print groff string for a class attribute. *) method man_of_attribute b a = bs b ".I val "; + if a.att_virtual then bs b ("virtual "); if a.att_mutable then bs b (Odoc_messages.mutab^" "); bs b ((Name.simple a.att_value.val_name)^" : "); self#man_of_type_expr b (Name.father a.att_value.val_name) a.att_value.val_type; |