Subversion Repositories openrisc

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;