[Guardsoft-cvs] guard/src/gram map.c,1.4,1.5

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

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

Modified Files:
	map.c 
Log Message:
fix array size

Index: map.c
===================================================================
RCS file: /cvsroot/guardsoft/guard/src/gram/map.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** map.c	18 May 2005 19:29:44 -0000	1.4
--- map.c	24 May 2005 23:34:31 -0000	1.5
***************
*** 345,349 ****
  	max = m->m_ix->i_rank - 1;
  
! 	a = ArrayToAIF(1, &min, &max, (char *)m->m_ix->i_index, max - min + 1, TypeToFDS(AIF_INTEGER, sizeof(int)));
  	val = NewVal(lval_none, VAL_AIF_TYPE, a);
  
--- 345,352 ----
  	max = m->m_ix->i_rank - 1;
  
! 	a = ArrayToAIF(1, &min, &max, NULL, 
! 		(max - min + 1) * sizeof(int), 
! 		AIF_INTEGER_TYPE(1, sizeof(int)));
! 
  	val = NewVal(lval_none, VAL_AIF_TYPE, a);
  
***************
*** 366,370 ****
  	** Add upper bounds array to actual args.
  	*/
! 	a = ArrayToAIF(1, &min, &max, (char *)m->m_ix->i_max, max - min + 1, TypeToFDS(AIF_INTEGER, sizeof(int)));
  	val = NewVal(lval_none, VAL_AIF_TYPE, a);
  
--- 369,376 ----
  	** Add upper bounds array to actual args.
  	*/
! 	a = ArrayToAIF(1, &min, &max, NULL, 
! 		(max - min + 1) * sizeof(int),
! 		AIF_INTEGER_TYPE(1, sizeof(int)));
! 
  	val = NewVal(lval_none, VAL_AIF_TYPE, a);
  
***************
*** 387,391 ****
  	** Add lower bounds array to actual args.
  	*/
! 	a = ArrayToAIF(1, &min, &max, (char *)m->m_ix->i_min, max - min + 1, TypeToFDS(AIF_INTEGER, sizeof(int)));
  
  	val = NewVal(lval_none, VAL_AIF_TYPE, a);
--- 393,399 ----
  	** Add lower bounds array to actual args.
  	*/
! 	a = ArrayToAIF(1, &min, &max, NULL, 
! 		(max - min + 1) * sizeof(int), 
! 		AIF_INTEGER_TYPE(1, sizeof(int)));
  
  	val = NewVal(lval_none, VAL_AIF_TYPE, a);