version 1.51, 2009/01/05 01:47:30 |
version 1.52, 2009/01/05 02:14:00 |
|
|
* 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/dp-supp.c,v 1.50 2009/01/04 10:02:00 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp-supp.c,v 1.51 2009/01/05 01:47:30 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 1727 int create_order_spec(VL vl,Obj obj,struct order_spec |
|
Line 1727 int create_order_spec(VL vl,Obj obj,struct order_spec |
|
if ( v->len < 2 ) error("create_order_spec : invalid argument"); |
if ( v->len < 2 ) error("create_order_spec : invalid argument"); |
create_order_spec(0,(Obj)bv[1],&spec); |
create_order_spec(0,(Obj)bv[1],&spec); |
spec->id += 256; spec->obj = obj; |
spec->id += 256; spec->obj = obj; |
spec->ispot = (bv[0]==1); |
spec->ispot = (bv[0]!=0); |
*specp = spec; |
*specp = spec; |
return 1; |
return 1; |
} else |
} else |