URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [noreturn3.adb] - Rev 704
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } with Ada.Exceptions; package body Noreturn3 is procedure Raise_Error (E : Enum; ErrorMessage : String) is function Msg return String is begin return "Error :" & ErrorMessage; end; begin case E is when One => Ada.Exceptions.Raise_Exception (Exc1'Identity, Msg); when Two => Ada.Exceptions.Raise_Exception (Exc2'Identity, Msg); when others => Ada.Exceptions.Raise_Exception (Exc3'Identity, Msg); end case; end; end Noreturn3;
Go to most recent revision | Compare with Previous | Blame | View Log