Re: Dynamich Dispatching...

[Brian May <bam@snoopy.apana.org.au>]

>>>>> "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>