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=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no version=3.4.4 X-Google-Thread: 103376,887bac6875d2db34 X-Google-Attributes: gid103376,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news4.google.com!feeder3.cambrium.nl!feeder2.cambrium.nl!feed.tweaknews.nl!193.201.147.86.MISMATCH!news.astraweb.com!border1.a.newsrouter.astraweb.com!club-internet.fr!feedme-small.clubint.net!proxad.net!feeder1-1.proxad.net!cleanfeed2-a.proxad.net!nnrp3-2.free.fr!not-for-mail Return-Path: X-Virus-Scanned: amavisd-new at ada-france.org X-Greylist: delayed 3600 seconds by postgrey-1.24 at green; Mon, 21 Jan 2008 09:14:35 CET Date: Mon, 21 Jan 2008 08:12:40 +0100 From: "Grein, Christoph (Fa. ESG)" Subject: Access idiom To: comp.lang.ada@ada-france.org MIME-version: 1.0 X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.3790.1830 Content-type: text/plain; charset=US-ASCII Content-transfer-encoding: 7BIT Content-class: urn:content-classes:message Importance: normal Priority: normal Thread-topic: Access idiom Thread-index: Achb/QIqaeTVIvuWSGi1epJEq50ZIg== X-MS-Has-Attach: X-MS-TNEF-Correlator: X-OriginalArrivalTime: 21 Jan 2008 07:12:42.0841 (UTC) FILETIME=[03C8E490:01C85BFD] X-BeenThere: comp.lang.ada@ada-france.org X-Mailman-Version: 2.1.9rc1 Precedence: list List-Id: "Gateway to the comp.lang.ada Usenet newsgroup" List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Newsgroups: comp.lang.ada Message-ID: X-Leafnode-NNTP-Posting-Host: 88.191.17.134 Organization: Guest of ProXad - France NNTP-Posting-Date: 21 Jan 2008 09:15:01 MET NNTP-Posting-Host: 88.191.14.223 X-Trace: 1200903301 news-1.free.fr 16946 88.191.14.223:54137 X-Complaints-To: abuse@proxad.net Xref: g2news1.google.com comp.lang.ada:19498 Date: 2008-01-21T09:15:01+01:00 You need *all* on the access type: type Node_Ptr_Type is access all Node_Type'Class; procedure Op (P: access Threat_Type; Result: out Node_Ptr_Type) is begin Result := Node_Ptr_Type (P); -- OK now end Op; Eurocopter Deutschland GmbH Sitz der Gesellschaft/Registered Office: Donauwoerth Registergericht/Registration Court: Amtsgericht Augsburg HRB 16508 Vorsitzender des Aufsichtsrates/Chairman of the Supervisory Board: Dr. Lutz Bertling Geschaeftsfuehrung/Board of Management: Dr. Wolfgang Schoder, Vorsitzender/CEO; Friedrich-Wilhelm Hormel; Ralf Barnscheidt CONFIDENTIALITY NOTICE This communication and the information it contains is intended for the addressee(s) named above and for no other persons or organizations. It is confidential and may be legally privileged and protected by law. The unauthorized use, copying or disclosure of this communication or any part of it is prohibited and may be unlawful. If you have received this communication in error, kindly notify us by return e-mail and discard and/or delete the communication. Thank you very much. It is possible for e-mails to be intercepted or affected by viruses. Whilst we maintain virus checks on our e-mails, we accept no liability for viruses or other material which might be introduced with this message.