comp.lang.ada
 help / color / mirror / Atom feed
* using package GNAT.Traceback
@ 2000-04-12  0:00 Christophe Gouiran
  2000-04-12  0:00 ` Robert Dewar
  0 siblings, 1 reply; 10+ messages in thread
From: Christophe Gouiran @ 2000-04-12  0:00 UTC (permalink / raw)


Hi everyone, do you know how to use package GNAT.Traceback ?

In my source i write :

procedure IExplore is
   dummy : natural;
begin

   dummy := -1; -- will raise constraint_error

   exception when e: others =>
      declare
         tarray : Tracebacks_Array(1 .. 100);
         len : integer;
      begin
         Call_Chain(tarray, len);

         put_line("Callback number : " & integer'image(len));


      end;

end IExplore;


But i have the output :
Callback number :  0

I have gnat 3.12p under Win 2000 .
If someone knows the answer ...






^ permalink raw reply	[flat|nested] 10+ messages in thread

end of thread, other threads:[~2000-04-14  0:00 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2000-04-12  0:00 using package GNAT.Traceback Christophe Gouiran
2000-04-12  0:00 ` Robert Dewar
2000-04-12  0:00   ` Chad R. Meiners
2000-04-13  0:00     ` Christophe Gouiran
2000-04-13  0:00       ` Chad R. Meiners
2000-04-14  0:00         ` Robert Dewar
2000-04-14  0:00         ` Robert Dewar
2000-04-14  0:00           ` Florian Weimer
2000-04-14  0:00             ` Pascal Obry
2000-04-13  0:00     ` Robert Dewar

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox