version 1.8, 2015/12/02 13:12:31 |
version 1.9, 2018/03/27 06:29:19 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/var.c,v 1.7 2012/02/03 06:42:34 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/var.c,v 1.8 2015/12/02 13:12:31 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 251 void Puc(Obj *p) |
|
Line 251 void Puc(Obj *p) |
|
if ( (n=NAME(VR(vl))) && !strcmp(n,nv) ) break; |
if ( (n=NAME(VR(vl))) && !strcmp(n,nv) ) break; |
else if ( !NEXT(vl) ) { |
else if ( !NEXT(vl) ) { |
NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0; |
NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0; |
|
LASTCO = NEXT(vl); |
break; |
break; |
} |
} |
MKV(v,t); *p = (Obj)t; |
MKV(v,t); *p = (Obj)t; |
Line 276 void Pdelete_uc(NODE arg,Obj *p) |
|
Line 277 void Pdelete_uc(NODE arg,Obj *p) |
|
} else |
} else |
prev = vl; |
prev = vl; |
} |
} |
|
update_LASTCO(); |
*p = 0; |
*p = 0; |
} |
} |