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

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

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

Modified Files:
	Cray.c 
Log Message:
Fixed printing of unused and working on correct setting of unused.

Index: Cray.c
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/src/compilers/Cray.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Cray.c	29 Oct 2003 16:07:53 -0000	1.12
--- Cray.c	30 Oct 2003 16:47:46 -0000	1.13
***************
*** 95,99 ****
    dv->kind_value = 0;
  
!   dv->unused_1   = 36;  /* 40 for D1D */
    dv->unused_2   = 0;
    dv->unused_3   = 0;
--- 95,104 ----
    dv->kind_value = 0;
  
!   if (dv->elem_size <= 32) {
!     dv->unused_1   = 36;
!   } else {
!     dv->unused_1   = 40;
!   }
! 
    dv->unused_2   = 0;
    dv->unused_3   = 0;
***************
*** 569,574 ****
    printf("  unused_2  = %ld\n", dv->unused_2);
    printf("  unused_3  = %ld\n", dv->unused_3);
!   printf("  unused_4  = %d\n" , dv->unused_1);
!   printf("  unused_5  = %ld\n", dv->unused_2);
  
    for (i = 0; i < dv->rank; i++) {
--- 574,579 ----
    printf("  unused_2  = %ld\n", dv->unused_2);
    printf("  unused_3  = %ld\n", dv->unused_3);
!   printf("  unused_4  = %d\n" , dv->unused_4);
!   printf("  unused_5  = %ld\n", dv->unused_5);
  
    for (i = 0; i < dv->rank; i++) {