From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9cfa83146b0781ed,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-11-11 16:51:04 PST
Newsgroups: comp.lang.ada
Path: 
 nntp.gmd.de!newsserver.jvnc.net!news.cac.psu.edu!news.pop.psu.edu!hudson.lm.com!godot.cc.duq.edu!news.duke.edu!solaris.cc.vt.edu!news.mathworks.com!bigboote.WPI.EDU!noc.near.net!ray.com!news.ray.com!news.ed.ray.com!swlvx2!jgv
From: jgv@swl.msd.ray.com (John Volan)
Subject: Overloading for T and T'Class
Sender: news@swlvx2.msd.ray.com (NEWS USER)
Organization: Raytheon Company, Tewksbury, MA
Message-ID: <Cz4H8G.MA@swlvx2.msd.ray.com>
Date: Fri, 11 Nov 1994 21:33:51 GMT
Date: 1994-11-11T21:33:51+00:00
List-Id: <comp.lang.ada>

In Ada9X, is it legal to overload the same subprogram name for both
some tagged type T and its class-wide type T'Class?  For example:

	package P is
	  type T is tagged ... ;
	  procedure Op (X : in out T);
	  procedure Op (X : in out T'Class);
	  ...
	end P;

If this is legal, what would be the ramifications of doing this?
Would it even make any sense to do this?  If it did make sense, does
anyone have any thoughts as to where this might turn out to be useful?

This might seem like a strange question, but it's been nagging me for a 
while, and I'd appreciate whatever insights you folks out there might
have.  Thanks in advance!

					John Volan

--------------------------------------------------------------------------------
--  Me : Person := (Name                => "John Volan",
--                  Company             => "Raytheon Missile Systems Division",
--                  E_Mail_Address      => "jgv@swl.msd.ray.com",
--                  Affiliation         => "Enthusiastic member of Team Ada!",
--                  Humorous_Disclaimer => "These opinions are undefined " &
--                                         "by my employer and therefore " &
--                                         "any use of them would be "     &
--                                         "totally erroneous.");
--------------------------------------------------------------------------------