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

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

Update of /cvsroot/chasm-interop/chasm/src/compilers
In directory sc8-pr-cvs1:/tmp/cvs-serv24004

Modified Files:
	Cray.c 
Log Message:
Fixed strides.

Index: Cray.c
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/src/compilers/Cray.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Cray.c	30 Oct 2003 16:59:12 -0000	1.14
--- Cray.c	30 Oct 2003 21:24:30 -0000	1.15
***************
*** 97,105 ****
    dv->kind_value = 0;
  
!   if (dv->elem_size <= 32) {
!     dv->unused_1   = 36;
!   } else {
!     dv->unused_1   = 40;
!   }
  
    dv->unused_2   = 0;
--- 97,102 ----
    dv->kind_value = 0;
  
!   if (dv->elem_size < 64)  dv->unused_1   = 36;
!   else                     dv->unused_1   = 40;
  
    dv->unused_2   = 0;
***************
*** 230,237 ****
      dv->dim[i].lower_bound = lowerBound[i];
      dv->dim[i].extent      = extent[i];
!     if (dv->max_len < 32) {
!       dv->dim[i].stride_mult = strideMult[i];
      } else {
!       dv->dim[i].stride_mult = strideMult[i]/4;
      }
    }
--- 227,234 ----
      dv->dim[i].lower_bound = lowerBound[i];
      dv->dim[i].extent      = extent[i];
!     if (dv->max_len < 64) {
!       dv->dim[i].stride_mult = strideMult[i]/4L;
      } else {
!       dv->dim[i].stride_mult = strideMult[i]/8L;
      }
    }
***************
*** 420,426 ****
  
    if (dv->max_len < 32) {
-     return dv->dim[dim-1].stride_mult;
-   } else {
      return dv->dim[dim-1].stride_mult * 4L;
    }
  }
--- 417,423 ----
  
    if (dv->max_len < 32) {
      return dv->dim[dim-1].stride_mult * 4L;
+   } else {
+     return dv->dim[dim-1].stride_mult * 8L;
    }
  }