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.75.82 with SMTP id a18mr3500609wiw.0.1364940573366;
        Tue, 02 Apr 2013 15:09:33 -0700 (PDT)
Path: 
 ex12ni19373wid.1!nntp.google.com!feeder1.cambriumusenet.nl!82.197.223.108.MISMATCH!feeder2.cambriumusenet.nl!feed.tweaknews.nl!85.12.40.130.MISMATCH!xlned.com!feeder1.xlned.com!border5.a.newsrouter.astraweb.com!border6.newsrouter.astraweb.com!news.astraweb.com!border5.newsrouter.astraweb.com!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 <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Interresting,
 possibly buggy behavior in GNAT generics w/ expression function.
Date: Sat, 30 Mar 2013 15:51:52 +0000
Organization: A noiseless patient Spider
Message-ID: <ly6208j36v.fsf@pushface.org>
References: <ac196de8-8d24-4302-8e3b-e0007d691095@googlegroups.com>
	<lysj3eir9b.fsf@pushface.org> <kj5dn6$978$1@munin.nbi.dk>
Mime-Version: 1.0
Injection-Info: mx05.eternal-september.org;
 posting-host="72a7bb6120f61bc7749e29c9c2e535af";
	logging-data="10679"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX19uV8mUH6UofDR1wKG0URswILOX5KbAZU0="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (darwin)
Cancel-Lock: sha1:nY0XI4ZFA1kpQEEra1yrMiVktDQ=
	sha1:1ZmI41qsL4pR37avUVOX91Aat/M=
Content-Type: text/plain
Date: 2013-03-30T15:51:52+00:00
List-Id: <comp.lang.ada>

"Randy Brukardt" <randy@rrsoftware.com> writes:

> Perhaps you guys would like to do as you are always griping to others
> and provide a complete enough example to see what you are really
> talking about???

I'm not sure whether this is exactly the same:

generic
   type Attribute_Values is (<>);
package Demo is
   function Text (Item : Character) return String;
private
   function Image (Item : Attribute_Values) return String;
   function Image (Item : Positive) return String;
end Demo;

package body Demo is
   function Text (Item : Character) return String is
   begin
      return Image (Integer (Character'Pos (Item)))
        & " "
        & Image (Positive (Character'Pos (Item)));
   end Text;
   function Image (Item : Attribute_Values) return String is
   begin
      return (1 => Character'Val (Attribute_Values'Pos (Item)));
   end Image;
   function Image (Item : Positive) return String is
   begin
      return Positive'Image (Item);
   end Image;
end Demo;

with Demo;
with Ada.Text_IO; use Ada.Text_IO;
procedure Demo_Main is
   package Integers is new Demo (Attribute_Values => Integer);
begin
   Put_Line (Integers.Text ('a'));
end Demo_Main;

outputs

a 97

where we would have expected

 97 97