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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e0e945d31e5bac78
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-03-12 11:22:23 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Szymon Guz <guzo@stud.ics.p.lodz.pl>
Newsgroups: comp.lang.ada
Subject: Re: problem with CPP_* pragmas
Date: Fri, 12 Mar 2004 20:22:06 +0100
Organization: tp.internet - http://www.tpi.pl/
Message-ID: <c2t2lm$ast$1@atlantis.news.tpi.pl>
References: <c2o51n$h2g$1@atlantis.news.tpi.pl>
 <c2povu$70n$1@a1-hrz.uni-duisburg.de> <c2qnef$8vq$1@nemesis.news.tpi.pl>
 <c2t0u6$4c7$3@a1-hrz.uni-duisburg.de>
NNTP-Posting-Host: hal.skynet.org.pl
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: atlantis.news.tpi.pl 1079119361 11165 195.116.185.50 (12 Mar 2004
 19:22:41 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Fri, 12 Mar 2004 19:22:41 +0000 (UTC)
User-Agent: Mozilla Thunderbird 0.5 (Windows/20040207)
X-Accept-Language: en-us, en
In-Reply-To: <c2t0u6$4c7$3@a1-hrz.uni-duisburg.de>
Xref: archiver1.google.com comp.lang.ada:6287
Date: 2004-03-12T20:22:06+01:00
List-Id: <comp.lang.ada>

Georg Bauhaus wrote:
> Szymon Guz <guzo@stud.ics.p.lodz.pl> wrote:
> : 
> : virtual void CA::Met1(int par1, double par2);
> 
> : procedure Met1 (
> :   this : CA_Ptr;
> :   par1 : Win32.INT;
> :   par2 : Win32.DOUBLE );
>  
> : My problem is that I still get the same error:
> : testclass.ads:36:21: pragma "Cpp_Virtual" must reference a primitive 
> : operation
> : 
> : What do I do wrong ?
> 
> my initial guess is that Met1 is a classwide, not a primitive
> operation of type CA.
> 
> Georg

well, I think that you're right, but I'd like to use the pragma 
Cpp_Virtual in some similar classes as some of them have more than 40 
functions and I don't need and don't want to rewrite all of that in ada. 
Is there some other way to import the above function into Ada than using 
pragma Import and rewriting all the functions ? I'd like to place the 
function in the virtual table in some way but I don't have any idea how 
to do that.