X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/592b3e1bc2a812515c5e2d01f087ec0aa2d4e8e4..f1920d78123667716f2321d37ce37628603b2700:/uip/scansbr.c

diff --git a/uip/scansbr.c b/uip/scansbr.c
index ce49bee2..7391a3bd 100644
--- a/uip/scansbr.c
+++ b/uip/scansbr.c
@@ -75,7 +75,7 @@ scan (FILE *inb, int innum, int outnum, char *nfs, int width, int curflg,
 	    width = INT_MAX;
 	}
 	dat[3] = slwidth = width;
-	*scanl = charstring_create (width);
+	*scanl = charstring_create (width < NMH_BUFSIZ ? width : NMH_BUFSIZ);
 	if (outnum)
 	    umask(~m_gmprot());
 
@@ -126,10 +126,10 @@ scan (FILE *inb, int innum, int outnum, char *nfs, int width, int curflg,
 	 * and it's our responsibility to free it.
 	 */
 
-	nxtbuf = compbuffers = (char **) calloc((size_t) ncomps, sizeof(char *));
+	nxtbuf = compbuffers = (char **) mh_xcalloc ((size_t) ncomps, sizeof(char *));
 	if (nxtbuf == NULL)
 	    adios (NULL, "unable to allocate component buffers");
-	used_buf = (struct comp **) calloc((size_t) (ncomps+1),
+	used_buf = (struct comp **) mh_xcalloc ((size_t) (ncomps+1),
 	    sizeof(struct comp *));
 	if (used_buf == NULL)
 	    adios (NULL, "unable to allocate component buffer stack");
@@ -220,7 +220,6 @@ scan (FILE *inb, int innum, int outnum, char *nfs, int width, int curflg,
 		break;
 
 	    case BODY: 
-		compnum = -1;
 		/*
 		 * A slight hack ... if we have less than rlwidth characters
 		 * in the buffer, call m_getfld again.
@@ -328,7 +327,7 @@ finished:
 	    if (! datecomp->c_text) {
 		if (datecomp->c_tws == NULL)
 		    datecomp->c_tws = (struct tws *)
-			calloc((size_t) 1, sizeof(*datecomp->c_tws));
+			mh_xcalloc ((size_t) 1, sizeof(*datecomp->c_tws));
 		if (datecomp->c_tws == NULL)
 		    adios (NULL, "unable to allocate tws buffer");
 		*datecomp->c_tws = *dlocaltime ((time_t *) &st.st_mtime);