Re: What makes a procedure call 'dispatching' in Ada?

[stefan-lucks@see-the.signature]

If Foo is a tagged type, then 
   "procedure A(This: [in] [out] Foo)" 

expects *exactly* the same type as the actual parameter. If you want 
"either type Foo or any of its object-oriented children" you write

  "procedure B(This: [in] [out] Foo'Class)".

In your case, Foo is an abstract tagged type. As much as I seem to 
understand Ada, there is no way to actually call procedure A -- because 
you can't have any actuals of an abstract type. (Hey you guys out there, 
am I wrong?)

If I am right, it is very regrettable that the compiler doesn't issue a 
warning when compiling "procedure A(This: [in] [out] Foo)" for an abstract 
type Foo ... perhaps better, a revised Ada should prohibit that. 

So long

Stefan


On Fri, 20 Nov 2009, Markus Schoepflin wrote:


> ---%<---
> package FOOS is
> 
>    type FOO is abstract tagged null record;
> 
>    procedure P (THIS : in FOO);

-------> replace by 
     procedure P (THIS : in FOO'Class);

>    procedure A (THIS : in FOO) is abstract;
> 
> end FOOS;
> 
> package body FOOS is
> 
>    procedure P (THIS : in FOO)

-------> replace by 
     procedure P (THIS : in FOO'Class);

>    is
>    begin
>       A (THIS);
>    end;
> 
> end FOOS;
> --->%---
> 
> When trying to compile this, I get:
> 
> foos.adb:6:07: call to abstract function must be dispatching
> gnatmake: "foos.adb" compilation error
> 
> What is the compiler trying to tell me here? And how do I go about calling
> abstract procedures?
> 
> TIA,
> Markus
> 

-- 
------ Stefan Lucks   --  Bauhaus-University Weimar  --   Germany  ------
               Stefan dot Lucks at uni minus weimar dot de
------  I  love  the  taste  of  Cryptanalysis  in  the  morning!  ------