|
From: <ras...@us...> - 2003-10-30 21:24:34
|
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;
}
}
|