|
From: <ras...@us...> - 2003-11-14 22:04:18
|
Update of /cvsroot/chasm-interop/chasm/src/compilers
In directory sc8-pr-cvs1:/tmp/cvs-serv5510
Modified Files:
SUNWspro.c
Log Message:
Fixed bug reported by Tom that returned an error in setArrayDesc if an array lower bound is 0.
Index: SUNWspro.c
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/src/compilers/SUNWspro.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** SUNWspro.c 21 Oct 2003 21:40:15 -0000 1.26
--- SUNWspro.c 14 Nov 2003 20:24:24 -0000 1.27
***************
*** 199,204 ****
for (i = 0; i < rank; i++) {
! if (dim_extent[i] == 0) return 1;
! if (lower_bound[i] == 0) return 1;
if (stride_mult[i] == 0) return 1;
offset += lower_bound[i] * stride_mult[i];
--- 199,203 ----
for (i = 0; i < rank; i++) {
! if (dim_extent[i] == 0) return 1;
if (stride_mult[i] == 0) return 1;
offset += lower_bound[i] * stride_mult[i];
|