diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-12-16 23:49:49 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-12-16 23:49:49 +0100 |
| commit | e16539acc8c146b7a4fb9e5b6fbe180204859cdd (patch) | |
| tree | 1af8d0d3d8a2f91895d2e5aadca216f1f321dd6c /src/pretty.ml | |
| parent | a2bc36429548d8a68d58fd4a1d7b934f67518942 (diff) | |
| download | LPC-Projet-e16539acc8c146b7a4fb9e5b6fbe180204859cdd.tar.gz LPC-Projet-e16539acc8c146b7a4fb9e5b6fbe180204859cdd.zip | |
Abandon de l'héritage multiple ; héritage simple mis en place.
Diffstat (limited to 'src/pretty.ml')
| -rw-r--r-- | src/pretty.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/pretty.ml b/src/pretty.ml index 4420ac1..6144cf3 100644 --- a/src/pretty.ml +++ b/src/pretty.ml @@ -146,8 +146,7 @@ let print_class_decl c = (List.fold_left (fun x t -> x ^ " public " ^ t) "" s)) ^ " {\n"); List.iter (function | CVar(t, i) -> print_string (" " ^ i ^ " : " ^ (var_type_str t) ^ "\n") - | CMethod(p) -> print_string (" " ^ (proto_str p) ^ "\n") - | CVirtualMethod(p) -> print_string (" virtual " ^ (proto_str p) ^ "\n") + | CMethod(p, v) -> print_string ((if v then " virtual " else " ") ^ (proto_str p) ^ "\n") ) c.c_members; print_string "}\n" |