|
From: <ras...@us...> - 2003-10-30 21:51:57
|
Update of /cvsroot/chasm-interop/chasm/src/compilers
In directory sc8-pr-cvs1:/tmp/cvs-serv29769
Modified Files:
Cray.c
Log Message:
Fixed stupid oversite in getArrayStride...
Index: Cray.c
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/src/compilers/Cray.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Cray.c 30 Oct 2003 21:24:30 -0000 1.15
--- Cray.c 30 Oct 2003 21:51:53 -0000 1.16
***************
*** 416,420 ****
if (rank < 1 || rank > dv->rank) return 0;
! if (dv->max_len < 32) {
return dv->dim[dim-1].stride_mult * 4L;
} else {
--- 416,420 ----
if (rank < 1 || rank > dv->rank) return 0;
! if (dv->max_len < 64) {
return dv->dim[dim-1].stride_mult * 4L;
} else {
|