Re: Exiting from a function or procedure

[Robert A Duff <bobduff@world.std.com>]

"Andres Tarallo" <atarallo@chasque.apc.org.NOSPAM> writes:

> function "+"(izq, der: in term) return term is
>       aux: term;
>       error_suma: exception;
>       begin
>          if (izq.exponente = der.exponente) then
>             aux.coeficiente:= (izq.coeficiente + der.coeficiente);
>             aux.exponente:= izq.exponente;
>             return aux;
>          else
>                raise error_suma;
>          end if;
>          exception
>                        when error_suma => Put(" ERROR !!!");
>       end;

Just raise the exception, and don't handle it.  That is, get rid of
"exception when ... ;".  Then the program will stop on that error.

>             When I compile this it compiles fine, however i get a warning
> telling me that this could raise an exception during runtime.

That's probably a different problem.  I can't tell from the excerpt you
gave.

>             I'm still not very familiar with exceptions and it's handling,
> Am I doing things in the right way? After displaying the message may program
> will terminate?

No.  After you handle an exception, the program continues on, unless you
re-raise the exception.

If you want the exception to kill the program, then just raise it.
Don't handle it.

- Bob