package body Halstead_Potential_Operand is

    --** changed 11/20/85 by J. Margono
    --** reason: to have more control over n2* for a package and
    --**         also to avoid massive recompilation when the
    --**         definition of n2* for a package changes
    function Count_Of_Package return Count is
        -- returns n2* of a PACKAGE_SPECIFICATION and PACKAGE_BODY
    begin
        -- Count_Of_Package
        return 1; -- i.e., the package name
    end Count_Of_Package;

    function Count_Of_Subprogram
                (Formal_Parameters_Count : in Natural) return Count is
    begin
        -- Count_Of_Subprogram

        --** changed 11/20/85 by J. Margono
        --** reason: subprogram name counts as one potential operand
        return Count (Formal_Parameters_Count) + 1;

    end Count_Of_Subprogram;


    function Count_Of_Generic
                (Formal_Parameters_Count : in Natural) return Count is
    begin
        -- Count_Of_Generic

        --** changed 11/20/85 by J. Margono
        --** reason: generic package or subprogram name counts
        --**         as one potential operand
        return Count (Formal_Parameters_Count) + 1;

    end Count_Of_Generic;

end Halstead_Potential_Operand;