OpenXM_contrib2/asir2000/builtin/poly.c - diff

Return to poly.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.27, 2017/09/06 06:25:26

version 1.28, 2018/03/27 06:29:19

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.26 2017/02/28 07:06:28 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.27 2017/09/06 06:25:26 noro Exp $

#include "ca.h"

#include "parse.h"

Line 457 void Pord(NODE arg,LIST *listp)

V *va;

V v;

printf("LASTCO="); printv(CO,LASTCO->v); printf("\n");

if ( current_option ) {

for ( opt = current_option; opt; opt = NEXT(opt) ) {

p = BDY((LIST)BDY(opt));

Line 509 void Pord(NODE arg,LIST *listp)

Line 510 void Pord(NODE arg,LIST *listp)

if ( vl )

NEXT(tvl) = 0;

CO = vl;

update_LASTCO();

}

for ( n = 0, vl = CO; vl; vl = NEXT(vl) ) {

NEXTNODE(n,tn); MKV(VR(vl),t); BDY(tn) = (pointer)t;