[Chasm-interop-cvs] chasm/src/compilers Cray.c,1.15,1.16

[<ras...@us...>]

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 {