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/] [varsize_copy.adb] - Rev 384
Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-O -gnatws" } package body Varsize_Copy is type Key_Mapping_Type is record Page : Page_Type; B : Boolean; end record; type Key_Mapping_Array is array (Key_Type) of Key_Mapping_Type; type Set is record Key_Mappings : Key_Mapping_Array; end record; S : Set; function F (Key : Key_Type) return Page_Type is begin return S.Key_Mappings (Key).Page; end; end Varsize_Copy;