URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [pointer_variable_bounds.adb] - Diff between revs 304 and 384

Rev 304	Rev 384
`-- { dg-do compile }`	`-- { dg-do compile }`
`-- { dg-options "-gnatws" }`	`-- { dg-options "-gnatws" }`

`package body pointer_variable_bounds is`	`package body pointer_variable_bounds is`

`function COMPONENT_DAT(BP : in BUNDLE_POINTER_TYPE; CP : in COMP_POINTER_TYPE) return HALF_INTEGER is`	`function COMPONENT_DAT(BP : in BUNDLE_POINTER_TYPE; CP : in COMP_POINTER_TYPE) return HALF_INTEGER is`
`type CP_TYPE is access COMP_POINTER_TYPE;`	`type CP_TYPE is access COMP_POINTER_TYPE;`
`type CD_TYPE is access HALF_INTEGER;`	`type CD_TYPE is access HALF_INTEGER;`
`CD : CD_TYPE;`	`CD : CD_TYPE;`
`begin`	`begin`
`return CD.all;`	`return CD.all;`
`end;`	`end;`

`procedure BUNDLE_DAT(BP : in BUNDLE_POINTER_TYPE) is`	`procedure BUNDLE_DAT(BP : in BUNDLE_POINTER_TYPE) is`
`N0 : C_POINTER_TYPE := COMPONENT_DAT(BP, 4);`	`N0 : C_POINTER_TYPE := COMPONENT_DAT(BP, 4);`
`begin`	`begin`
`null;`	`null;`
`end;`	`end;`

`procedure SEQUENCE_DAT(BP : in BUNDLE_POINTER_TYPE) is`	`procedure SEQUENCE_DAT(BP : in BUNDLE_POINTER_TYPE) is`
`N0 : C_POINTER_TYPE := COMPONENT_DAT(BP, 4);`	`N0 : C_POINTER_TYPE := COMPONENT_DAT(BP, 4);`
`begin`	`begin`
`null;`	`null;`
`end;`	`end;`

`end pointer_variable_bounds;`	`end pointer_variable_bounds;`