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.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,23ea8142bfea5ffa X-Google-Attributes: gid103376,public From: jakrzy@ss5.magec.com (James A. Krzyzanowski) Subject: Re: Ada Help Date: 1995/04/19 Message-ID: #1/1 X-Deja-AN: 101283249 sender: usenet@ss3.magec.com references: <3mrhq8$2tv@newshost.fiu.edu> organization: Magnavox Electronics Systems Company newsgroups: comp.lang.ada Date: 1995-04-19T00:00:00+00:00 List-Id: alexander m nolasco (anolas01@solix.fiu.edu) wrote: : I created a generic binary search tree. I declared BST as limited : private. This generic pack will be implemented in a SET, but I have to : have access to BST type... : I have done the following.. : type SET_TYPE is new T.BST_TYPE --Where T is an instantiation of BST(sp) : It compiles, but any procedure that uses the OUT mode with will not compile.. : any help!? >From the Language Reference Manual: paragraph 7.4.4(1) "A limited type is a type for which neither ASSIGNMENT nor the predefined comparison for equality and inequality is implicitly declared." paragraph 7.4.4(4) "For a formal parameter whose type is limited and whose declararation occurs in an explicit subprogram declaration, the mode OUT is only allowed if the type is private...The corresponding full type must not be limited if the mode OUT is used for any such formal parameter." What you need to do is use IN OUT and when you assign the "OUT" parameter you need to define a function or procedure that EXPLICITLY makes that assignment. -- Not necessarily the opinion of the company... -- --------------------------------------------------------------------------- James A. Krzyzanowski - Senior Software Engineer - AFATDS Magnavox Electronic Systems Company * Fort Wayne, IN 46808 * (219) 429-6446 jakrzy@most.magec.com Opinions_Expressed := (Mine and not Magnavox); "I'd rather be right than politically correct !!!" ---------------------------------------------------------------------------