Re: Addr2Line2Locations for GPS

[franck <franckbehaghel@gmail.com>]

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;