URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [opt20.adb] - Rev 714
Go to most recent revision | Compare with Previous | Blame | View Log
with Ada.Characters.Handling; use Ada.Characters.Handling; package body Opt20 is type Build_Mode_State is (None, Static, Dynamic, Relocatable); procedure Build_Library (For_Project : Integer) is Project_Name : constant String := Get_Name_String (For_Project); The_Build_Mode : Build_Mode_State := None; begin Fail (Project_Name); Write_Str (To_Lower (Build_Mode_State'Image (The_Build_Mode))); end; end Opt20;
Go to most recent revision | Compare with Previous | Blame | View Log