OpenXM_contrib2/asir2000/builtin/array.c - diff

Return to array.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/array.c between version 1.60 and 1.61

version 1.60, 2010/11/09 16:23:45

version 1.61, 2012/12/17 07:20:44

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.59 2009/03/25 07:06:30 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.60 2010/11/09 16:23:45 ohara Exp $

#include "ca.h"

#include "base.h"

Line 344 void Psepmat_destructive(NODE arg,LIST *rp)

sgn = SGN(ent);

divn(nm,mod,&quo,&rem);

/* if ( quo != nm && rem != nm ) */

/* GC_free(nm); */

/* GCFREE(nm); */

/* GC_free(ent); */

/* GCFREE(ent); */

NTOQ(rem,sgn,a[i][j]); NTOQ(quo,sgn,a1[i][j]);

}

MKNODE(n1,mat1,0); MKNODE(n0,mat,n1);

Line 2963 void inner_product_int(Q *a,Q *b,int n,Q *r)

t = wma; wma = sum; sum = t;

}

GC_free(wm);

GCFREE(wm);

GC_free(wma);

GCFREE(wma);

if ( !sgn ) {

GC_free(sum);

GCFREE(sum);

*r = 0;

} else

NTOQ(sum,sgn,*r);

Line 3021 void inner_product_mat_int_mod(Q **a,int **b,int n,int