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

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

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

Modified Files:
	Cray.c 
Log Message:
Made elem_size at least 32 bits.

Index: Cray.c
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/src/compilers/Cray.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Cray.c	30 Oct 2003 16:47:46 -0000	1.13
--- Cray.c	30 Oct 2003 16:59:12 -0000	1.14
***************
*** 81,87 ****
  
    dv->rank      = rank;
    dv->elem_size = 8 * element_size;
  
-   dv->max_len   = 8 * element_size;
    dv->assoc     = 1;
    dv->ptr_alloc = 0;
--- 81,89 ----
  
    dv->rank      = rank;
+ 
    dv->elem_size = 8 * element_size;
+   if (dv->elem_size < 32) dv->elem_size = 32;
+   dv->max_len   = dv->elem_size;
  
    dv->assoc     = 1;
    dv->ptr_alloc = 0;