- cp = new_fs (form ? form : rcvdistcomps, NULL, NULL);
- format_len = strlen (cp);
- ncomps = fmt_compile (cp, &fmt) + 1;
- if (!(nxtbuf = compbuffers =
- (char **) calloc ((size_t) ncomps, sizeof(char *))))
- adios (NULL, "unable to allocate component buffers");
- if (!(savecomp = used_buf =
- (struct comp **) calloc ((size_t) (ncomps + 1),
- sizeof(struct comp *))))
- adios (NULL, "unable to allocate component buffer stack");
+ cp = new_fs(form ? form : rcvdistcomps, NULL);
+ format_len = strlen(cp);
+ ncomps = fmt_compile(cp, &fmt) + 1;
+ nxtbuf = compbuffers = mh_xcalloc(ncomps, sizeof(char *));
+ savecomp = used_buf = mh_xcalloc(ncomps + 1, sizeof(struct comp *));