--  vim: ft=ada

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