with Unchecked_Deallocation; package String_Access_Class is type String_Access is access String; procedure Free is new Unchecked_Deallocation (Object => String, Name => String_Access); end String_Access_Class;