version 1.34, 2003/08/20 06:06:07 |
version 1.36, 2003/08/20 07:55:45 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.33 2003/08/19 05:29:11 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.35 2003/08/20 07:04:31 noro Exp $ */ |
|
|
#include "ca.h" |
#include "ca.h" |
#include "inline.h" |
#include "inline.h" |
Line 288 INLINE int nd_length(ND p) |
|
Line 288 INLINE int nd_length(ND p) |
|
} |
} |
} |
} |
|
|
int ndl_reducible(unsigned int *d1,unsigned int *d2) |
INLINE int ndl_reducible(unsigned int *d1,unsigned int *d2) |
{ |
{ |
unsigned int u1,u2; |
unsigned int u1,u2; |
int i,j; |
int i,j; |
Line 372 void ndl_dehomogenize(unsigned int *d) |
|
Line 372 void ndl_dehomogenize(unsigned int *d) |
|
h = (d[1]>>((nd_epw-1)*nd_bpe))&nd_mask0; |
h = (d[1]>>((nd_epw-1)*nd_bpe))&nd_mask0; |
for ( i = 1; i <= nd_wpd; i++ ) |
for ( i = 1; i <= nd_wpd; i++ ) |
d[i] = ((d[i]<<nd_bpe)&mask) |
d[i] = ((d[i]<<nd_bpe)&mask) |
|(i+1<nd_wpd?((d[i+1]>>((nd_epw-1)*nd_bpe))&nd_mask0):0); |
|(i+1<=nd_wpd?((d[i+1]>>((nd_epw-1)*nd_bpe))&nd_mask0):0); |
TD(d) -= h; |
TD(d) -= h; |
} |
} |
} else |
} else |
Line 505 INLINE void ndl_copy(unsigned int *d1,unsigned int *d2 |
|
Line 505 INLINE void ndl_copy(unsigned int *d1,unsigned int *d2 |
|
} |
} |
} |
} |
|
|
/* XXX : TD is not added */ |
|
|
|
INLINE void ndl_add(unsigned int *d1,unsigned int *d2,unsigned int *d) |
INLINE void ndl_add(unsigned int *d1,unsigned int *d2,unsigned int *d) |
{ |
{ |
int i; |
int i; |
|
|
|
TD(d) = TD(d1)+TD(d2); |
switch ( nd_wpd ) { |
switch ( nd_wpd ) { |
case 1: |
case 1: |
d[1] = d1[1]+d2[1]; |
d[1] = d1[1]+d2[1]; |
Line 2078 void dltondl(int n,DL dl,unsigned int *r) |
|
Line 2077 void dltondl(int n,DL dl,unsigned int *r) |
|
int i; |
int i; |
|
|
d = dl->d; |
d = dl->d; |
bzero(r,(nd_wpd+1)*sizeof(unsigned int)); |
for ( i = 0; i <= nd_wpd; i++ ) r[i] = 0; |
if ( nd_isrlex ) |
if ( nd_isrlex ) |
for ( i = 0; i < n; i++ ) |
for ( i = 0; i < n; i++ ) |
r[(n-1-i)/nd_epw+1] |= (d[i]<<((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe)); |
r[(n-1-i)/nd_epw+1] |= (d[i]<<((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe)); |
Line 2409 unsigned int *dp_compute_bound(DP p) |
|
Line 2408 unsigned int *dp_compute_bound(DP p) |
|
d1 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int)); |
d1 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int)); |
d2 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int)); |
d2 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int)); |
m = BDY(p); |
m = BDY(p); |
bcopy(DL(m)->d,d1,nd_nvar*sizeof(unsigned int)); |
d = DL(m)->d; |
|
for ( i = 0; i < nd_nvar; i++ ) d1[i] = d[i]; |
for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) { |
for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) { |
d = DL(m)->d; |
d = DL(m)->d; |
for ( i = 0; i < nd_nvar; i++ ) |
for ( i = 0; i < nd_nvar; i++ ) |
Line 2418 unsigned int *dp_compute_bound(DP p) |
|
Line 2418 unsigned int *dp_compute_bound(DP p) |
|
} |
} |
l = (nd_nvar+31); |
l = (nd_nvar+31); |
t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int)); |
t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int)); |
bzero(t,l*sizeof(unsigned int)); |
for ( i = 0; i < nd_nvar; i++ ) t[i] = d1[i]; |
bcopy(d1,t,nd_nvar*sizeof(unsigned int)); |
for ( ; i < l; i++ ) t[i] = 0; |
return t; |
return t; |
} |
} |
|
|
Line 2433 unsigned int *nd_compute_bound(ND p) |
|
Line 2433 unsigned int *nd_compute_bound(ND p) |
|
return 0; |
return 0; |
d1 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int)); |
d1 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int)); |
d2 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int)); |
d2 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int)); |
bcopy(HDL(p),d1,nd_wpd*sizeof(unsigned int)); |
ndl_copy(HDL(p),d1); |
for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) { |
for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) { |
ndl_lcm(DL(m),d1,d2); |
ndl_lcm(DL(m),d1,d2); |
t = d1; d1 = d2; d2 = t; |
t = d1; d1 = d2; d2 = t; |
} |
} |
l = nd_nvar+31; |
l = nd_nvar+31; |
t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int)); |
t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int)); |
bzero(t,l*sizeof(unsigned int)); |
for ( i = 0; i < l; i++ ) t[i] = 0; |
for ( i = 0; i < nd_nvar; i++ ) |
for ( i = 0; i < nd_nvar; i++ ) |
t[i] = (d1[i/nd_epw+1]>>((nd_epw-(i%nd_epw)-1)*nd_bpe))&nd_mask0; |
t[i] = (d1[i/nd_epw+1]>>((nd_epw-(i%nd_epw)-1)*nd_bpe))&nd_mask0; |
|
for ( ; i < l; i++ ) t[i] = 0; |
return t; |
return t; |
} |
} |
|
|
Line 2704 ND ndv_mul_nm(int mod,NDV p,NM m0) |
|
Line 2705 ND ndv_mul_nm(int mod,NDV p,NM m0) |
|
c1 = CM(m); |
c1 = CM(m); |
DMAR(c1,c,0,mod,c2); |
DMAR(c1,c,0,mod,c2); |
CM(mr) = c2; |
CM(mr) = c2; |
TD(DL(mr)) = TD(DL(m))+td; |
|
ndl_add(DL(m),d,DL(mr)); |
ndl_add(DL(m),d,DL(mr)); |
} |
} |
} else { |
} else { |
Line 2712 ND ndv_mul_nm(int mod,NDV p,NM m0) |
|
Line 2712 ND ndv_mul_nm(int mod,NDV p,NM m0) |
|
for ( i = 0; i < len; i++, NMV_ADV(m) ) { |
for ( i = 0; i < len; i++, NMV_ADV(m) ) { |
NEXTNM(mr0,mr); |
NEXTNM(mr0,mr); |
mulq(CQ(m),q,&CQ(mr)); |
mulq(CQ(m),q,&CQ(mr)); |
TD(DL(mr)) = TD(DL(m))+td; |
|
ndl_add(DL(m),d,DL(mr)); |
ndl_add(DL(m),d,DL(mr)); |
} |
} |
} |
} |