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,FREEMAIL_FROM autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,75acee3087250584,start X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!news1.google.com!newsread.com!news-xfer.newsread.com!newspeer.monmouth.com!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail From: TC User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: it, it-it, en-us, en MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Exception Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 8bit Message-ID: Date: Thu, 08 Sep 2005 16:54:55 GMT NNTP-Posting-Host: 62.98.125.209 X-Complaints-To: abuse@inwind.it X-Trace: twister1.libero.it 1126198495 62.98.125.209 (Thu, 08 Sep 2005 18:54:55 MET DST) NNTP-Posting-Date: Thu, 08 Sep 2005 18:54:55 MET DST Organization: [Infostrada] Xref: g2news1.google.com comp.lang.ada:4528 Date: 2005-09-08T16:54:55+00:00 List-Id: Why if an error is present no one of exception is write? I create an array index exception for testing. procedure Testo is Begin ... exception when Error : Constraint_Error | Data_Error => Put ("Si � verificato un errore: "); Put_Line (Ada.Exceptions.Exception_Name(Error)); when Error : others=> Put ("Si � verificato un errore: "); Put_Line (Ada.Exceptions.Exception_Name(Error)); raise; end testo;