-- ============================================================================
-- >>>>>>>>>>>>>>>>>>>>>>>>>> ADA COMPILATION UNIT <<<<<<<<<<<<<<<<<<<<<<<<<<<<
-- ============================================================================
--
-- NAME:        Hash_Asis_Element_To_Positive
--
--              BODY
-- 
-- AUTHOR:      Chuck Hobin
--
-- DATE:        6 September 1994
--
--                               CHANGE HISTORY
--
-- MM-DD-YY | Initials | Description
-- ----------------------------------------------------------------------------
-- <include SPR#, if applicable>
-- ============================================================================

function Hash_Asis_Element_To_Positive 
	    (The_Element : in Asis.Element) return Positive is
begin
    return (abs (Integer (Asis.Elements.Operations.Hash (The_Element)))) + 1;

end Hash_Asis_Element_To_Positive;