|
From: <ras...@us...> - 2003-10-29 16:07:04
|
Update of /cvsroot/chasm-interop/chasm/include/compilers
In directory sc8-pr-cvs1:/tmp/cvs-serv28435
Modified Files:
Cray_dv.h
Log Message:
Modifications with Jarek during visit.
Index: Cray_dv.h
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/include/compilers/Cray_dv.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Cray_dv.h 23 Jul 2003 19:12:11 -0000 1.1
--- Cray_dv.h 29 Oct 2003 16:07:00 -0000 1.2
***************
*** 14,20 ****
unsigned int p_or_a : 2; /* 1 = pointer, 2 = allocatable */
unsigned int a_contig : 1; /* 1 = is contiguous */
! unsigned int unused_1 : 24;
! unsigned int rank : 3; /* number of dimensions */
unsigned int type_code : 8; /* type of data in array */
unsigned int dp_flag : 1; /* Double precision flag (-N113) */
--- 14,22 ----
unsigned int p_or_a : 2; /* 1 = pointer, 2 = allocatable */
unsigned int a_contig : 1; /* 1 = is contiguous */
! unsigned int unused_1 : 11;
! unsigned int unused_2 : 16;
! unsigned int rank : 32; /* number of dimensions */
+ unsigned int unused_3 : 32; /* type of data in array */
unsigned int type_code : 8; /* type of data in array */
unsigned int dp_flag : 1; /* Double precision flag (-N113) */
***************
*** 24,29 ****
/* may be orig_base and orig_size (?, unused?) */
! long unused_2;
! long unused_3;
/* array bounds information */
--- 26,31 ----
/* may be orig_base and orig_size (?, unused?) */
! long unused_4;
! long unused_5;
/* array bounds information */
|