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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [ext1.ads] - Blame information for rev 753

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
package ext1 is
2
    type I_Smiley is interface;
3
    procedure Set_Mood (Obj : out I_Smiley) is abstract;
4
--      
5
    type Smiley (Max : Positive) is abstract new I_Smiley with record
6
       S : String (1 .. Max);
7
    end record;
8
--      
9
    type Regular_Smiley is new Smiley (3) with null record;
10
    overriding
11
    procedure Set_Mood (Obj : out Regular_Smiley);
12
end ext1;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.