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.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,336232e570812d9b X-Google-Attributes: gid103376,public From: dennison@telepath.com Subject: Re: Stream_io / records with default discriminants Date: 1999/02/18 Message-ID: <7ahnrs$q06$1@nnrp1.dejanews.com>#1/1 X-Deja-AN: 445767782 References: <#8nPq9DW#GA.131@nih2naac.prod2.compuserve.com> <7a7fbd$t50$1@plug.news.pipex.net> <7a873a$kon$1@nnrp1.dejanews.com> <7afc1n$3mi$1@plug.news.pipex.net> X-Http-Proxy: 1.0 x2.dejanews.com:80 (Squid/1.1.22) for client 204.48.27.130 Organization: Deja News - The Leader in Internet Discussion X-Article-Creation-Date: Thu Feb 18 18:58:09 1999 GMT Newsgroups: comp.lang.ada X-Http-User-Agent: Mozilla/4.5 [en] (WinNT; I) Date: 1999-02-18T00:00:00+00:00 List-Id: In article <7afc1n$3mi$1@plug.news.pipex.net>, "Nick Roberts" wrote: > robert_dewar@my-dejanews.com wrote in message > Maybe it is an implementation problem. Bernd, you might like to try using > > with Ada.Exceptions; use Ada.Exceptions; > > and then > > exception > when Eof => > Text_Io.Put_Line ("EoF!"); > exit; > when Error: Constraint_Error => > Text_IO.Put_Line(Exception_Information(Error)); > exit; -- maybe > end; > > in order to get some more information on what the compiler thinks is wrong. wouldn't: exception when Error: others => Text_IO.Put_Line (Exception_Information(Error)); raise; end; ...do the same thing? Exception_Information "should" include the exception name. T.E.D. -----------== Posted via Deja News, The Discussion Network ==---------- http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own