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=unavailable autolearn_force=no version=3.4.4 Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!gandalf.srv.welterde.de!news.jacob-sparre.dk!franka.jacob-sparre.dk!pnx.dk!.POSTED.rrsoftware.com!not-for-mail From: "Randy Brukardt" Newsgroups: comp.lang.ada Subject: Re: GNAT compiler versions and addr2line Date: Wed, 22 Aug 2018 15:30:40 -0500 Organization: JSA Research & Innovation Message-ID: References: Injection-Date: Wed, 22 Aug 2018 20:30:40 -0000 (UTC) Injection-Info: franka.jacob-sparre.dk; posting-host="rrsoftware.com:24.196.82.226"; logging-data="22625"; mail-complaints-to="news@jacob-sparre.dk" X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.5931 X-RFC2646: Format=Flowed; Original X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.7246 Xref: reader02.eternal-september.org comp.lang.ada:54224 Date: 2018-08-22T15:30:40-05:00 List-Id: I can vouch for the fact that this works on our Debian server. It's a bit annoying to have to add code (as it has to be removed again when using the same code with other Ada compiler (Janus/Ada in my case), but it works and I couldn't really use Ada without it (too used to the Janus/Ada version). At least in most cases there are other things (like rep. clauses) that need change as well. Randy. "Anh Vo" wrote in message news:dbf742f5-1bd4-4903-8299-8739e6179bfc@googlegroups.com... > On Wednesday, August 22, 2018 at 11:21:37 AM UTC-7, Phil wrote: >> Alejandro R. Mosteo wrote: >> > I have seen the same up to current 7.3 FSF Ubuntu versions, and still >> > haven't found a workaround :/ >> >> Ah, at least it's not just me! > > gnatmake -g foo.adb -bargs -E for the following modified code. You will be > pleasantly surprised that addr2line is not needed explicitly. > > with Gnat.Traceback.Symbolic; > with Ada.Exceptions; use Ada; > with Ada.Text_IO; use Ada.Text_IO; > > procedure Foo is > > procedure Able is > begin > raise Constraint_Error with "It broke"; > end Able; > > procedure Baker is > begin > Able; > end Baker; > > begin > Baker; > exception > when Err : others => > Put_Line ("Houston we have a problem: " & > > Exceptions.Exception_Information(Err)); > Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback(Err)); > end Foo; > > >