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-Thread: 103376,87b8cfa03eafd839 X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!wns13feed!worldnet.att.net!attbi_s71.POSTED!53ab2750!not-for-mail From: "Jeffrey R. Carter" Organization: jrcarter at acm dot org User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0 MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Re: DLL Troubles References: <1142793974.914652.154480@t31g2000cwb.googlegroups.com> In-Reply-To: <1142793974.914652.154480@t31g2000cwb.googlegroups.com> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Message-ID: NNTP-Posting-Host: 12.214.7.86 X-Complaints-To: abuse@mchsi.com X-Trace: attbi_s71 1142797045 12.214.7.86 (Sun, 19 Mar 2006 19:37:25 GMT) NNTP-Posting-Date: Sun, 19 Mar 2006 19:37:25 GMT Date: Sun, 19 Mar 2006 19:37:25 GMT Xref: g2news1.google.com comp.lang.ada:3462 Date: 2006-03-19T19:37:25+00:00 List-Id: cybersaga wrote: Nothing to do with your problem, but: > function GetRandom(Bottom, Top : Integer) return Integer is > type NumRange is new Integer range Bottom .. Top; And if Bottom > Top? You might want to look at the 'Min and 'Max attributes. Why not use subtype Numrange is Integer range Bottom .. Top; > package RandomNum is new Ada.Numerics.Discrete_Random(NumRange); > Seed : RandomNum.Generator; > begin > RandomNum.Reset(Seed); --It dies in here > return Integer( RandomNum.Random(Seed) ); return Randomnum.Random (Seed); > end GetRandom; You have no need for a new type. -- Jeff Carter "What I wouldn't give for a large sock with horse manure in it." Annie Hall 42