version 1.30, 2020/07/30 17:45:44 |
version 1.31, 2020/08/11 16:57:05 |
|
|
fldno = atoi(vp->nval); |
fldno = atoi(vp->nval); |
if (fldno > *NF) |
if (fldno > *NF) |
newfld(fldno); |
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)) { |
} else if (isrec(vp)) { |
donefld = false; /* mark $1... invalid */ |
donefld = false; /* mark $1... invalid */ |
donerec = true; |
donerec = true; |
|
|
vp->fmt = NULL; |
vp->fmt = NULL; |
setfree(vp); |
setfree(vp); |
DPRINTF("setsval %p: %s = \"%s (%p) \", t=%o r,f=%d,%d\n", |
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; |
vp->sval = t; |
if (&vp->fval == NF) { |
if (&vp->fval == NF) { |
donerec = false; /* mark $0 invalid */ |
donerec = false; /* mark $0 invalid */ |
|
|
} |
} |
done: |
done: |
DPRINTF("getsval %p: %s = \"%s (%p)\", t=%o\n", |
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); |
return(vp->sval); |
} |
} |
|
|