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.2 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no version=3.4.4
X-Received: by 10.107.78.12 with SMTP id c12mr24468961iob.32.1516030160295;
        Mon, 15 Jan 2018 07:29:20 -0800 (PST)
X-Received: by 10.157.31.57 with SMTP id x54mr982587otd.1.1516030160084; Mon,
 15 Jan 2018 07:29:20 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!paganini.bofh.team!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!w142no1746206ita.0!news-out.google.com!s63ni5699itb.0!nntp.google.com!g80no2208253itg.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Mon, 15 Jan 2018 07:29:19 -0800 (PST)
In-Reply-To: <78946035-f83e-4170-9afc-48988bf18124@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=85.245.163.212;
 posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT
NNTP-Posting-Host: 85.245.163.212
References: <d66b4a89-dc02-4c04-a5bf-6dd4f2ef9f86@googlegroups.com>
 <p3hopj$1fhf$1@gioia.aioe.org> <lyvag39z2p.fsf@pushface.org>
 <b628926e-337f-443b-84eb-ad9aced6bc7a@googlegroups.com>
 <lypo6b9qne.fsf@pushface.org>
 <78946035-f83e-4170-9afc-48988bf18124@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <6d6b1a3e-7163-422e-994d-a59df25dad20@googlegroups.com>
Subject: Re: ADA.STRINGS.INDEX_ERROR : a-strunb.adb:782
From: Mehdi Saada <00120260a@gmail.com>
Injection-Date: Mon, 15 Jan 2018 15:29:20 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:49917
Date: 2018-01-15T07:29:19-08:00
List-Id: <comp.lang.ada>

I got that:
=> addr2line \--exe=ts_pile 0x4098f8 0x4031ae 0x402e0d 0x7efbf78582af 0x40>
??:?
/home/mehdi/essai/TD-TP10/ts_pile.adb:48
/home/mehdi/essai/TD-TP10/b~ts_pile.adb:256
??:0
??:?
??:0

ts_pile.adb:48 is what's between "if" and "then" of:
if IS_LETTER (TO_BASIC( TO_LOWER( ELEMENT( CHAINE,IND)))) then
   EMPILER(LA_PILE,ELEMENT(CHAINE,IND));
   APPEND(CHAINE, ELEMENT(LIGNE,IND));
end if;

The other reference is:
Ensure_Reference : aliased System.Address := Ada_Main_Program_Name'Address;

in:
"function main
     (argc : Integer;
      argv : System.Address;
      envp : System.Address)
      return Integer
   is
      procedure Initialize (Addr : System.Address);
      pragma Import (C, Initialize, "__gnat_initialize");

      procedure Finalize;
      pragma Import (C, Finalize, "__gnat_finalize");
      SEH : aliased array (1 .. 2) of Integer;

      Ensure_Reference : aliased System.Address := Ada_Main_Program_Name'Address;
      pragma Volatile (Ensure_Reference);
" then followed by the function body.

... Now I know what lies behind the apparent simplicity of apparently simple program. Damn !