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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


package Noreturn3 is
 
  Exc1 : Exception;
  Exc2 : Exception;
  Exc3 : Exception;
 
  type Enum is (One, Two, Three);
 
  procedure Raise_Error (E : Enum; ErrorMessage : String);
  pragma No_Return (Raise_Error);
 
end Noreturn3;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Noreturn3 is`
2
3			`Exc1 : Exception;`
4			`Exc2 : Exception;`
5			`Exc3 : Exception;`
6
7			`type Enum is (One, Two, Three);`
8
9			`procedure Raise_Error (E : Enum; ErrorMessage : String);`
10			`pragma No_Return (Raise_Error);`
11
12			`end Noreturn3;`

Browse

Tools

Subversion Repositories openrisc

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