Added missing boolean case in MiniLS' print_type.

2010-06-22 13:37:08 +02:00 · 2010-06-22 13:37:08 +02:00 · 206605a707
parent 0a65964ee6
commit 206605a707
1 changed files with 1 additions and 0 deletions
--- a/compiler/minils/sequential/obc.ml
+++ b/compiler/minils/sequential/obc.ml
@ -182,6 +182,7 @@ struct
  let rec print_type ff = function
    | Tint    -> fprintf ff "int"
    | Tfloat  -> fprintf ff "float"
+    | Tbool   -> fprintf ff "bool"
    | Tid(id) -> print_longname ff id
    | Tarray(ty, n) -> 
 	print_type ff ty;