Re: ZLIB_ERROR with AWS

[darkestkhan <darkestkhan@gmail.com>]

On Saturday, October 20, 2012 8:46:31 PM UTC, Okasu wrote:
> On 2012-10-20, Dmitry A. Kazakov <mailbox@dmitry-kazakov.de> wrote:
> 
> > If you want that and have access to the sources, you could modify the code
> 
> > of the offending Finalize (where #2 propagates from) by adding at its
> 
> > beginning something like:
> 
> >
> 
> >    procedure Finalize (...) is
> 
> >    begin
> 
> >       Ada.Text_IO.Put_Line
> 
> >       (  "#1 was:"
> 
> >       &  Ada.Exceptions.Exception_Information
> 
> >          (  GNAT.Most_Recent_Exception.Occurrence
> 
> >       )  );
> 
> >       ...
> 
> >
> 
> > at the end of the Finalize you add:
> 
> >
> 
> >       ...
> 
> >    exception
> 
> >       when Error : others =>
> 
> >          Ada.Text_IO.Put_Line
> 
> >          (  "#2 was:"
> 
> >          & Ada.Exceptions.Exception_Information (Error)
> 
> >          );
> 
> >          raise;
> 
> >    end Finalize;
> 
> >
> 
> > Now in the output there should be lines "#1 was:" followed by "#2 was:",
> 
> > which could give a hint what is going on.
> 
> 
> 
> I made it (took ~1 hour to recompile AWS),  and here is output:
> 
> -----
> 
> #1 was:Exception name: PROGRAM_ERROR
> 
> Message: SSL not supported.
> 
> 
> 
> #2 was:Exception name: PROGRAM_ERROR
> 
> Message: SSL not supported.
> 
> 
> 
> 
> 
> raised PROGRAM_ERROR : aws-client.adb:290 finalize/adjust raised exception
> 
> -----
> 
> 
> 
> Why it tells me that SSL not supported?
> 
> I have openssl installed.

IIRC, OpenSSL isn't supported by default because of licence incompatibility.

Also for exception propagated too deep - you can attach gdb to the process ("catch exception" - Ada specific command for gdb which will catch every exception, before they get propagated). Though I understand not wanting to use debugger.