Subversion Repositories openrisc

-- { dg-do compile }
-- { dg-options "-O3 -gnata" }
 
package body Boolean_Subtype2 is
 
   function Component_Type (Id : Entity_Id) return Entity_Id is
   begin
      pragma Assert (Is_String_Type (Id));
      return Node20 (Id);
   end;
 
   function First_Index (Id : Entity_Id) return Node_Id is
   begin
      pragma Assert (Is_String_Type (Id));
      return Node20 (Id);
   end ;
 
   function Is_Character_Type (Id : Entity_Id) return B is
   begin
      return Flag63 (Id);
   end;
 
   function Number_Dimensions (Id : Entity_Id) return Positive is
      N : Integer := 0;
      T : Node_Id := First_Index (Id);
   begin
      if Present (T) then
         N := N + 1;
      end if;
      return N;
   end;
 
   function Is_String_Type (Id : Entity_Id) return B is
   begin
      return (Id /= 0
              and then Number_Dimensions (Id) = 1
              and then Is_Character_Type (Component_Type (Id)));
   end;
 
end Boolean_Subtype2;