| tran.c (224731) | tran.c (244988) |
|---|---|
| 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 284 unchanged lines hidden (view full) --- 293 } else if (isrec(vp)) { 294 donefld = 0; /* mark $1... invalid */ 295 donerec = 1; 296 } 297 if (freeable(vp)) 298 xfree(vp->sval); /* free any previous string */ 299 vp->tval &= ~STR; /* mark string invalid */ 300 vp->tval |= NUM; /* mark number ok */ | 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 284 unchanged lines hidden (view full) --- 293 } else if (isrec(vp)) { 294 donefld = 0; /* mark $1... invalid */ 295 donerec = 1; 296 } 297 if (freeable(vp)) 298 xfree(vp->sval); /* free any previous string */ 299 vp->tval &= ~STR; /* mark string invalid */ 300 vp->tval |= NUM; /* mark number ok */ |
| 301 if (f == -0) /* who would have thought this possible? */ 302 f = 0; |
|
| 301 dprintf( ("setfval %p: %s = %g, t=%o\n", (void*)vp, NN(vp->nval), f, vp->tval) ); 302 return vp->fval = f; 303} 304 305void funnyvar(Cell *vp, const char *rw) 306{ 307 if (isarr(vp)) 308 FATAL("can't %s %s; it's an array name.", rw, vp->nval); --- 149 unchanged lines hidden --- | 303 dprintf( ("setfval %p: %s = %g, t=%o\n", (void*)vp, NN(vp->nval), f, vp->tval) ); 304 return vp->fval = f; 305} 306 307void funnyvar(Cell *vp, const char *rw) 308{ 309 if (isarr(vp)) 310 FATAL("can't %s %s; it's an array name.", rw, vp->nval); --- 149 unchanged lines hidden --- |