|
|
@@ -1467,7 +1467,7 @@ let rec s_expr s_type e =
|
|
|
| TField (e,f) ->
|
|
|
let fstr = (match f with
|
|
|
| FStatic (c,f) -> "static(" ^ s_type_path c.cl_path ^ "." ^ f.cf_name ^ ")"
|
|
|
- | FInstance (c,f) -> "inst(" ^ s_type_path c.cl_path ^ "." ^ f.cf_name ^ ")"
|
|
|
+ | FInstance (c,f) -> "inst(" ^ s_type_path c.cl_path ^ "." ^ f.cf_name ^ " : " ^ s_type f.cf_type ^ ")"
|
|
|
| FClosure (c,f) -> "closure(" ^ (match c with None -> f.cf_name | Some c -> s_type_path c.cl_path ^ "." ^ f.cf_name) ^ ")"
|
|
|
| FAnon f -> "anon(" ^ f.cf_name ^ ")"
|
|
|
| FEnum (en,f) -> "enum(" ^ s_type_path en.e_path ^ "." ^ f.ef_name ^ ")"
|
|
|
@@ -1595,4 +1595,4 @@ let rec s_expr_pretty tabs s_type e =
|
|
|
| TCast (e,None) ->
|
|
|
sprintf "cast %s" (loop e)
|
|
|
| TCast (e,Some mt) ->
|
|
|
- sprintf "cast (%s,%s)" (loop e) (s_type_path (t_path mt))
|
|
|
+ sprintf "cast (%s,%s)" (loop e) (s_type_path (t_path mt))
|
Caue Waneck