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: a07f3367d7,556e5b18154df788 X-Google-Attributes: gida07f3367d7,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII-7-bit X-Received: by 10.180.86.38 with SMTP id m6mr3484049wiz.0.1364939432948; Tue, 02 Apr 2013 14:50:32 -0700 (PDT) Path: p18ni33726wiv.0!nntp.google.com!feeder1.cambriumusenet.nl!feed.tweaknews.nl!194.109.133.87.MISMATCH!newsfeed.xs4all.nl!newsfeed1.news.xs4all.nl!xs4all!newspeer1.nac.net!border4.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!news.bbs-scene.org!eternal-september.org!feeder.eternal-september.org!mx05.eternal-september.org!.POSTED!not-for-mail From: Simon Wright Newsgroups: comp.lang.ada Subject: Re: Interresting, possibly buggy behavior in GNAT generics w/ expression function. Date: Fri, 29 Mar 2013 14:47:36 +0000 Organization: A noiseless patient Spider Message-ID: References: Mime-Version: 1.0 Injection-Info: mx05.eternal-september.org; posting-host="72a7bb6120f61bc7749e29c9c2e535af"; logging-data="23402"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+r3ZXDQDBSw9ovl7HkkjETuukuVmKzcgg=" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (darwin) Cancel-Lock: sha1:xe5SkYozQNkL+LYWqIl8Jy6zUz8= sha1:e4Fzu37LBarwzIkx52czQxOTunA= Content-Type: text/plain Date: 2013-03-29T14:47:36+00:00 List-Id: Shark8 writes: > Function Image(Value : Positive) Return String is > ( --if Value not in positive then "" else > Units.Constant_Reference( Attribute_Units, Value ) ); Or, of course, Attribute_Units (Value) !