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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,4a5bab72e3ac47fc
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: Brian May <bam@snoopy.apana.org.au>
Newsgroups: comp.lang.ada
Subject: Re: Dynamich Dispatching...
References: <cjmi3n$iat$03$1@news.t-online.com>
 <1511723.0R0PesaRS9@linux1.krischik.com>
Date: Mon, 04 Oct 2004 08:59:50 +1000
Message-ID: <sa4pt3z76hl.fsf@snoopy.apana.org.au>
User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux)
Cancel-Lock: sha1:IuNCogR1Pm/BsQzA0vYrWntktSA=
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Host: dsl-202-173-153-89.vic.westnet.com.au
X-Trace: news.melbourne.pipenetworks.com 1096844379 202.173.153.89 (4 Oct 2004
 08:59:39 +1000)
X-Complaints-To: abuse@pipenetworks.com
X-Abuse-Info: Please forward all headers to enable your complaint to be
 properly processed.
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-south.connect.com.au!news.alphalink.com.au!news.melbourne.pipenetworks.com!not-for-mail
Xref: g2news1.google.com comp.lang.ada:4633
Date: 2004-10-04T08:59:50+10:00
List-Id: <comp.lang.ada>

>>>>> "Martin" == Martin Krischik <krischik@users.sourceforge.net> writes:

    Martin> Avoid "access all" unless you need it. The compiler need
    Martin> to do more checking when using "access all".

Some references recommend using "all" - not sure why. What extra
checking does it require? My references say when to use it, but never
say when not to use it or why it shouldn't be used if not required.

    >> procedure Main is
    >> procedure Call_Dynamic(Object_Ptr: Objects.Object_Ptr) is

    Martin> procedure Call_Dynamic(Object: Objects.Object'Class) is

    >> begin
    >> Objects.Draw(Object_Ptr.all);

    Martin> Objects.Draw(Object);

    >> end Call_Dynamic;
    >> C2 : Circles.Circle;

    Martin> C3 : Object_Ptr := new Circles.Circle'Class'(C2);

    >> begin
    >> C2 := Circles.Constructor.Create("Circle1",50);
    >> Call_Dynamic (new Circles.Circle'(C2));

    Martin> Call_Dynamic (C3);

I think you meant "Call_Dynamic(C2)" here. You can't pass an access
type here...

    >> end Main;
-- 
Brian May <bam@snoopy.apana.org.au>