578
578
print_named_type ty midattr (fun _ -> ident id);
579
579
print_attribute_list endattr;
581
| Ast.FunProto (fninfo,name,lp1,params,va,rp1,sem) ->
581
| Ast.FunProto (fninfo,attr,name,lp1,params,va,rp1,sem) ->
582
582
List.iter print_fninfo fninfo;
583
584
ident name; mcode print_string_box lp1;
584
585
parameter_list params; varargs va;
585
586
close_box(); mcode print_string rp1;