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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no 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!news2.google.com!postnews.google.com!k17g2000yqh.googlegroups.com!not-for-mail
From: franck <franckbehaghel@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Addr2Line2Locations for GPS
Date: Tue, 19 Jan 2010 02:23:34 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <ccad3ad4-f9d4-4481-877f-23e4fb346f76@k17g2000yqh.googlegroups.com>
References: 
 <b4e241ea-4a85-418a-94f8-c4c070a89bd9@e37g2000yqn.googlegroups.com>
	<a0f40ad7-eb03-4898-8505-f4f6eaf771b1@c29g2000yqd.googlegroups.com>
	<d5929bed-04b7-4a5e-95d4-3c12ab539dbc@q4g2000yqm.googlegroups.com>
NNTP-Posting-Host: 192.54.144.229
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
X-Trace: posting.google.com 1263896614 32133 127.0.0.1 (19 Jan 2010 10:23:34
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 19 Jan 2010 10:23:34 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: k17g2000yqh.googlegroups.com; posting-host=192.54.144.229;
	posting-account=ZR9I5goAAACls89h_Ea5VrOQdZYGN8py
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; fr; rv:1.9.1.7)
	Gecko/20091221 Firefox/3.5.7,gzip(gfe),gzip(gfe)
Xref: g2news1.google.com comp.lang.ada:8790
Date: 2010-01-19T02:23:34-08:00
List-Id: <comp.lang.ada>

This may solve your problem :

use gnatmake -g  start -bargs -E to generate exe,
you will get :
--> start

Exception raised
Exception name: CONSTRAINT_ERROR
Message: start.adb:16 range check failed
0x804acdd in start.procedure_b at start.adb:16
0x804acbd in start.procedure_a at start.adb:21
0x804ab03 in start at start.adb:41
0x804a4d6 in main at b~start.adb:179
0xca1dea in ?? at ??:0
start :exception raised Exception name: CONSTRAINT_ERROR
Message: start.adb:16 range check failed
Call stack traceback locations:
0x804acdd 0x804acbd 0x804ab03 0x804a4d6 0xca1de

start.adb:
------


with Ada.Text_IO;
with Ada.Exceptions;
with GNAT.Exception_Traces; use GNAT.Exception_Traces;
with GNAT.Traceback.Symbolic;
procedure start is



procedure Procedure_B is
type Very_Small_Integer is range 0 .. 2;
My_Very_Small_Integer : Very_Small_Integer :=0;
begin

--warning: value not in range of type "Very_Small_Integer"
--warning: "Constraint_Error" will be raised at run time
My_Very_Small_Integer := 3;
end Procedure_B;

procedure Procedure_A is
begin
Procedure_B;
end Procedure_A;



begin
 -- reminder
 -- to compile this unit, use command :
 -- gnatmake -g  start -bargs -E

 -- -g => for gnatgcc debug information
 -- -E => for gnatbind Store tracebacks in exception occurrences when
the target supports it.
 -- This is the default with the zero cost exception mechanism. See
also the packages GNAT.Traceback and GNAT.Traceback.Symbolic

 -- GNAT init
 GNAT.Exception_Traces.Trace_On(GNAT.Exception_Traces.Every_Raise);
 GNAT.Exception_Traces.Set_Trace_Decorator
(GNAT.Traceback.Symbolic.Symbolic_Traceback'access);


Ada.Text_IO.Put_Line("--> start");
Procedure_A;
Ada.Text_IO.Put_Line("<-- start");

exception
when Error: others =>
   Ada.Text_IO.Put_Line ("start :exception raised " &
Ada.Exceptions.Exception_Information (Error));
end start;