|
|
@ -486,10 +486,10 @@ let typ_get_recursive_flds tenv typ_exp =
|
|
|
|
| Some {fields} ->
|
|
|
|
| Some {fields} ->
|
|
|
|
List.map ~f:fst3 (List.filter ~f:(filter typ) fields)
|
|
|
|
List.map ~f:fst3 (List.filter ~f:(filter typ) fields)
|
|
|
|
| None ->
|
|
|
|
| None ->
|
|
|
|
L.(debug Analysis Quiet)
|
|
|
|
L.(debug Analysis Verbose)
|
|
|
|
"@\ntyp_get_recursive_flds: unexpected %a unknown struct type: %a@." Exp.pp typ_exp
|
|
|
|
"@\ntyp_get_recursive_flds: unexpected %a unknown struct type: %a@\n" Exp.pp typ_exp
|
|
|
|
Typ.Name.pp name ;
|
|
|
|
Typ.Name.pp name ;
|
|
|
|
[] (* ToDo: assert false *) )
|
|
|
|
[] )
|
|
|
|
| Tint _ | Tvoid | Tfun | Tptr _ | Tfloat _ | Tarray _ | TVar _ ->
|
|
|
|
| Tint _ | Tvoid | Tfun | Tptr _ | Tfloat _ | Tarray _ | TVar _ ->
|
|
|
|
[] )
|
|
|
|
[] )
|
|
|
|
| Exp.Var _ ->
|
|
|
|
| Exp.Var _ ->
|
|
|
|