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-Language: ENGLISH,ASCII X-Google-Thread: 103376,bc745b8412f53f25 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2004-02-29 15:24:13 PST Path: archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news.algonet.se!algonet!news-stoc.telia.net!news-stoa.telia.net!telia.net!masternews.telia.net.!newsc.telia.net.POSTED!not-for-mail From: =?ISO-8859-1?Q?Bj=F6rn_Persson?= User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4.1) Gecko/20031114 X-Accept-Language: sv, en-us MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Re: Error-names. References: <2Iq0c.15247$aT1.13123@newsread1.news.pas.earthlink.net> <6Br0c.9876$PR3.199012@attbi_s03> In-Reply-To: <6Br0c.9876$PR3.199012@attbi_s03> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: quoted-printable Message-ID: Date: Sun, 29 Feb 2004 23:24:11 GMT NNTP-Posting-Host: 217.209.116.179 X-Complaints-To: abuse@telia.com X-Trace: newsc.telia.net 1078097051 217.209.116.179 (Mon, 01 Mar 2004 00:24:11 CET) NNTP-Posting-Date: Mon, 01 Mar 2004 00:24:11 CET Organization: Telia Internet Xref: archiver1.google.com comp.lang.ada:5959 Date: 2004-02-29T23:24:11+00:00 List-Id: Would this implementation be a bad idea? function Get_Error_Code (E : Ada.Exceptions.Exception_Occurrence) return C_Integer is begin Ada.Exceptions.Raise_Exception (E) exception when Program_Error =3D> return Program_Error_Code; when Constraint_Error =3D> return Constraint_Error_Code; ... when others =3D> return Unexpected_Error_Code; end Get_Error_Code; --=20 Bj=F6rn Persson jor ers @sv ge. b n_p son eri nu