ref: b78514101907978f7776df1b5d95dac8a7798129
parent: 1b3984634f0ac427443b30fccf58d8140e07af96
author: Chris <christopherwuy@gmail.com>
date: Fri Aug 7 14:10:20 EDT 2020
printf: The argument p shall be a pointer to void. (#93)
--- a/run.c
+++ b/run.c
@@ -119,7 +119,7 @@
if (rminlen)
minlen += quantum - rminlen;
tbuf = realloc(*pbuf, minlen);
- DPRINTF("adjbuf %s: %d %d (pbuf=%p, tbuf=%p)\n", whatrtn, *psiz, minlen, *pbuf, tbuf);+ DPRINTF("adjbuf %s: %d %d (pbuf=%p, tbuf=%p)\n", whatrtn, *psiz, minlen, (void*)*pbuf, (void*)tbuf); if (tbuf == NULL) {if (whatrtn)
FATAL("out of memory in %s", whatrtn);@@ -1843,7 +1843,7 @@
Cell *x;
size_t i;
bool stat;
-
+
x = execute(a[0]);
getsval(x);
stat = true;
--- a/tran.c
+++ b/tran.c
@@ -361,7 +361,7 @@
fldno = atoi(vp->nval);
if (fldno > *NF)
newfld(fldno);
- DPRINTF("setting field %d to %s (%p)\n", fldno, s, s);+ DPRINTF("setting field %d to %s (%p)\n", fldno, s, (const void*)s); } else if (isrec(vp)) {donefld = false; /* mark $1... invalid */
donerec = true;
@@ -378,7 +378,7 @@
vp->fmt = NULL;
setfree(vp);
DPRINTF("setsval %p: %s = \"%s (%p) \", t=%o r,f=%d,%d\n",- (void*)vp, NN(vp->nval), t, t, vp->tval, donerec, donefld);
+ (void*)vp, NN(vp->nval), t, (void*)t, vp->tval, donerec, donefld);
vp->sval = t;
if (&vp->fval == NF) {donerec = false; /* mark $0 invalid */
@@ -492,7 +492,7 @@
}
done:
DPRINTF("getsval %p: %s = \"%s (%p)\", t=%o\n",- (void*)vp, NN(vp->nval), vp->sval, vp->sval, vp->tval);
+ (void*)vp, NN(vp->nval), vp->sval, (void*)vp->sval, vp->tval);
return(vp->sval);
}
--
⑨