URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [eval.c] - Diff between revs 24 and 146

Rev 24	Rev 146
Line 1645...	Line 1645...
`int array_size_array[MAX_FORTRAN_DIMS];`	`int array_size_array[MAX_FORTRAN_DIMS];`
`int ndimensions = 1, i;`	`int ndimensions = 1, i;`
`struct type *tmp_type;`	`struct type *tmp_type;`
`int offset_item; /* The array offset where the item lives */`	`int offset_item; /* The array offset where the item lives */`

	`/* Initialize the array to avoid picky compiler complaints */`
	`memset (subscript_array, 0, MAX_FORTRAN_DIMS * sizeof (int));`

`if (nargs > MAX_FORTRAN_DIMS)`	`if (nargs > MAX_FORTRAN_DIMS)`
`error (_("Too many subscripts for F77 (%d Max)"), MAX_FORTRAN_DIMS);`	`error (_("Too many subscripts for F77 (%d Max)"), MAX_FORTRAN_DIMS);`

`tmp_type = check_typedef (value_type (arg1));`	`tmp_type = check_typedef (value_type (arg1));`
`ndimensions = calc_f77_array_dims (type);`	`ndimensions = calc_f77_array_dims (type);`