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: a07f3367d7,475d5d08fbf558a2 X-Google-Attributes: gida07f3367d7,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!postnews.google.com!r19g2000yqb.googlegroups.com!not-for-mail From: Gautier write-only Newsgroups: comp.lang.ada Subject: Re: Addr2Line2Locations for GPS Date: Tue, 19 Jan 2010 05:49:42 -0800 (PST) Organization: http://groups.google.com Message-ID: References: NNTP-Posting-Host: 206.122.158.4 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 X-Trace: posting.google.com 1263908982 20633 127.0.0.1 (19 Jan 2010 13:49:42 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Tue, 19 Jan 2010 13:49:42 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: r19g2000yqb.googlegroups.com; posting-host=206.122.158.4; posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/532.0 (KHTML, like Gecko) Chrome/3.0.195.38 Safari/532.0,gzip(gfe),gzip(gfe) Xref: g2news1.google.com comp.lang.ada:8791 Date: 2010-01-19T05:49:42-08:00 List-Id: A variant (compatible with older GNAT's): instanciating the TB_Wrap below and gnatmake that instanciation. But I guess that Emmanuel wanted to say that future versions (which are present ones in other time-spaces) spontaneously display a symbolic trace-back instead of a bunch of addresses. But maybe I'm just dreaming... Gautier ------------------------------------------------------------------------------ -- File: TB_Wrap.ads -- Description: Trace-back wrapper for GNAT 3.13p+ (spec.) ------------------------------------------------------------------------------ generic with procedure My_main_procedure; procedure TB_Wrap; ------------------------------------------------------------------------------ -- File: TB_Wrap.adb -- Description: Trace-back wrapper for GNAT 3.13p+ (body) ------------------------------------------------------------------------------ with GNAT.Traceback.Symbolic, Ada.Exceptions, Ada.Text_IO; use Ada.Exceptions, Ada.Text_IO; procedure TB_Wrap is -- pragma Compiler_options("-g"); -- pragma Binder_options("-E"); begin My_main_procedure; exception when E: others => New_Line; Put_Line("--------------------[ Unhandled exception ]-----------------"); Put_Line(" > Name of exception . . . . .: " & Ada.Exceptions.Exception_Name(E) ); Put_Line(" > Message for exception . . .: " & Ada.Exceptions.Exception_Message(E) ); Put_Line(" > Trace-back of call stack: " ); Put_Line( GNAT.Traceback.Symbolic.Symbolic_Traceback(E) ); end TB_Wrap;