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