[Guardsoft-cvs] guard/src/gram expr.c,1.3,1.4 invoke.c,1.3,1.4

[Greg W. <ja...@us...>]

Update of /cvsroot/guardsoft/guard/src/gram
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17332

Modified Files:
	expr.c invoke.c 
Log Message:
Use macro for AIF types.


Index: invoke.c
===================================================================
RCS file: /cvsroot/guardsoft/guard/src/gram/invoke.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** invoke.c	23 Jul 2002 16:05:59 -0000	1.3
--- invoke.c	24 May 2005 23:34:08 -0000	1.4
***************
*** 108,112 ****
  		** Now create the new array.
  		*/
! 		base = TypeToFDS(AIF_VOID, sizeof(invoke_proc_t *));
  		size = FDSTypeSize(base) * ix->i_nel;
  		na = ArrayToAIF(ix->i_rank, ix->i_min, ix->i_max, NULL, size, base);
--- 108,112 ----
  		** Now create the new array.
  		*/
! 		base = AIF_VOID_TYPE(sizeof(invoke_proc_t *));
  		size = FDSTypeSize(base) * ix->i_nel;
  		na = ArrayToAIF(ix->i_rank, ix->i_min, ix->i_max, NULL, size, base);

Index: expr.c
===================================================================
RCS file: /cvsroot/guardsoft/guard/src/gram/expr.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** expr.c	26 Mar 2003 00:24:02 -0000	1.3
--- expr.c	24 May 2005 23:34:08 -0000	1.4
***************
*** 880,884 ****
  			}
  
! 			a = ArrayToAIF(slice->s_rank, slice->s_low, slice->s_high, NULL, 0, TypeToFDS(AIF_VOID, 0));
  			val = NewVal(lval_none, VAL_AIF_TYPE, a);
  		}
--- 880,884 ----
  			}
  
! 			a = ArrayToAIF(slice->s_rank, slice->s_low, slice->s_high, NULL, 0, AIF_VOID_TYPE(0));
  			val = NewVal(lval_none, VAL_AIF_TYPE, a);
  		}