Re: QtSql problem

[Gautier <gautier@fakeaddress.nil>]

Vadim Godunko wrote:

 > Can you please rebuild your program with the -E binder's switch? This
 > enables to store traceback information in the exception occurrence, so
 > we can see where the exception occurs.

He also may need to display the traceback...
------------------------------------------------------------------------------
--  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;
_________________________________________________________
Gautier's Ada programming -- http://sf.net/users/gdemont/
NB: For a direct answer, e-mail address on the Web site!