Re: Newbie with a question

["Peter Richtmyer" <pmr@efortress.com>]

"Paul Storm" <paul.a.storm@lmco.com> wrote in message
news:3AE9E89C.5B6909E1@lmco.com...
> I am fairly new to Ada.  I am working on a program and have created the
> following excerpt. <begin code>
>
> if ( Type_Is_Buffer and not Buffer_Found ) then
>
>   Log_Error
>           (
>            Source            => Source,
>            Message           => "Put message here about missing buffer
> size" ,
>            Verbosity         => Default_Verbosity
>           ) ;
>
>   raise Data_Point_Buffer_Size_Needed_Error ;
>
> end if;
>
> <end code>
>
> If this section of code runs the exception is raised and execution
> abends.

I assume that you get the CORRECT exception that you are raising,
        - not some other, right?

> But the message is not put into the log.  Which should be done by the
> Log_Error call.
>
I suggest:
    - use a debugger if possible to step through it. or
    - comment out the "Raise" temporarily and see if Log_Error works.
      Maybe the data is being buffered and never gets written. or
    - Take a look at your "Default_Verbosity" value (or display it) and see
      if the "Verbosity" is being set to some value that says "Do not put
the
      message in the log", or
    - All the above until something clicks.

Different people have different "styles" when debugging. Your style
will help dictate which of the suggestions above (if any) you try.

> The Log_Error procedure is legacy code and works fine elsewhere in the
> program.
>
> Anyone have suggestions as to why this would be the case?

Good Luck!
Peter
"Expect the Best...."