--  vim: ft=ada

function Bare_Base_Id_Short_Image
  (Node : access Bare_Base_Id_Type'Class) return Text_Type;
--  Custom version of Short_Image for basic declarations, that will print the
--  names of the entities it declares.
