hiding predefined "="

hiding predefined "="

[Doug Bryan]

To:     "Pat Rogers, High Tech Lab" <ROGERS%uhcl.csnet@CSNET-RELAY.ARPA>

Pat, you were so close.  You had the right idea when you derived from
Integer.  Does the following do what you want?

    package P is
      type LP is limited private;
      function "="( Left, Right : LP ) return Boolean;
    private
      type D  is access Integer;
      type LP is new D;
    end P;

    function "="( Left, Right : LP ) return Boolean is
    begin
      return D (Left) = D (Right);  
    end "=";

doug
-------