version 1.5, 2005/07/14 22:46:03 |
version 1.6, 2006/12/22 05:00:08 |
|
|
/* |
/* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.4 2005/02/08 18:06:05 saito Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.5 2005/07/14 22:46:03 kondoh Exp $ |
*/ |
*/ |
|
|
#include "ca.h" |
#include "ca.h" |
|
|
ToBf(r, &breal); |
ToBf(r, &breal); |
NEXTNODE( n0, n ); |
NEXTNODE( n0, n ); |
MKNODE(ln0, breal, NEXT(m)); |
MKNODE(ln0, breal, NEXT(m)); |
MKLIST((LIST)listp, ln0); |
MKLIST(listp, ln0); |
BDY(n) = (pointer)listp; |
BDY(n) = (pointer)listp; |
} |
} |
NEXT(n) = 0; |
NEXT(n) = 0; |
MKLIST((LIST)listp,n0); |
MKLIST(listp,n0); |
*rp = (pointer)listp; |
*rp = (pointer)listp; |
break; |
break; |
case O_LIST: |
case O_LIST: |