version 1.19, 2020/06/10 21:00:01 |
version 1.20, 2020/06/10 21:00:31 |
|
|
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, (void *) s) ); |
} else if (isrec(vp)) { |
} else if (isrec(vp)) { |
donefld = 0; /* mark $1... invalid */ |
donefld = 0; /* mark $1... invalid */ |
donerec = 1; |
donerec = 1; |
|
|
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 = 0; /* mark $0 invalid */ |
donerec = 0; /* 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); |
} |
} |
|
|