From: Bryan@SIERRA.STANFORD.EDU (Doug Bryan)
Subject: hiding predefined "="
Date: Wed, 24-Sep-86 03:33:06 EDT [thread overview]
Date: Wed Sep 24 03:33:06 1986
Message-ID: <12241420851.9.BRYAN@Sierra.Stanford.EDU> (raw)
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
-------
reply other threads:[~1986-09-24 7:33 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox