[Chasm-interop-cvs] chasm/src/compilers SUNWspro.c,1.26,1.27

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

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];