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,195f9d06474696b0 X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news3.google.com!news.glorb.com!news.banetele.no!news.szn.dk!news.jacob-sparre.dk!pnx.dk!not-for-mail From: Jacob Sparre Andersen Newsgroups: comp.lang.ada Subject: Re: Choice of variant record discriminant (design question) Date: Wed, 26 Oct 2005 15:26:33 +0200 Organization: Jacob's private Usenet server Message-ID: References: <1130332471.078782.145370@g49g2000cwa.googlegroups.com> NNTP-Posting-Host: hugin.crs4.it Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: jacob-sparre.dk 1130333193 7996 156.148.71.67 (26 Oct 2005 13:26:33 GMT) X-Complaints-To: sparre@jacob-sparre.dk NNTP-Posting-Date: Wed, 26 Oct 2005 13:26:33 +0000 (UTC) User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (gnu/linux) Cancel-Lock: sha1:shkFZsZOD9sd8Sw9vl1kQoahOJU= Xref: g2news1.google.com comp.lang.ada:5958 Date: 2005-10-26T15:26:33+02:00 List-Id: christoph.grein@eurocopter.com writes: > declare > Parm: Preprocessed_Parameters (Measurement_Count => Count); > begin >> if Count = 0 then > null; >> else >> [...] > Parm.Mean_Value := Mean; > Parm.Scaled_Variance := Sum; > return Parm; >> end if; Thanks! (I wonder why I didn't remember that) Jacob -- "The three principal virtues of a programmer are Laziness, Impatience, and Hubris" -- Larry Wall