let
make_decl d =
{ pdecl_t = d ; pdecl_pr = { p_loc = dummy_loc } }