From:	sl AT psycode DOT com DOT NOSPAM (Gili)
Newsgroups:	comp.os.msdos.djgpp
Subject:	Re: To person who ported PGCC to DJGPP
Date:	18 Jun 1998 21:08:06 GMT
Organization:	The World's Usenet -- http://www.Supernews.com
Lines:	33
Message-ID:	<bWLoegW7sFse-pn2-xiRCL7xsjDhT@portX07.lanzen.net>
References:	<bWLoegW7sFse-pn2-NbOKdzLhgMTT AT portX56 DOT lanzen DOT net> <RsUBq0sjK$bf AT nedcu4> <bWLoegW7sFse-pn2-kf5dPNfO0Zym AT portF19 DOT Generation DOT NET> <35894922 DOT 3FB5451E AT maths DOT unine DOT ch>
Reply-To:	sl AT psycode DOT com DOT NOSPAM
NNTP-Posting-Host:	205.205.70.26
Mime-Version:	1.0
To:	djgpp AT delorie DOT com
DJ-Gateway:	from newsgroup comp.os.msdos.djgpp

On Thu, 18 Jun 1998 17:06:43, Gautier de Montmollin 
<gautier DOT demontmollin AT maths DOT unine DOT ch> wrote:

> exceptions are among the basic structures of the language, from the 1st version.
> Examples:
> 
> 1)
>     begin
>       (...)
>       if A_sym then                   -- LtL (Cholesky), cas symetrique
>         DPBTRF(upper, N=> nb_eq_2, KD=> lda-1, AB=> AB, LDAB=> lapmax);
>       else                            -- LU
>         DGBTRF(M=> nb_eq_2,N=> nb_eq_2, KL=> lda-1, KU=>lda-1,
>                AB=> AB, LDAB=> lapmax, IPIV=> pivots);
>       end if;
>     exception
>       when Computation_error=> Put("pivot 0, ligne / mineur <0 d'ordre");
>            Put(info); raise; -- re-raise Computation_error after message
>     end;
> 
> 2)
>     begin
>       (...)
>     exception
>       when Out_Of_Range | Out_Of_Buffer_Range => null;  -- SVGA
>     end;
> 
> -- 
> Gautier

	I see.. But I don't know ADA :) All I know is Basic, Pascal, C, C++.

Gili

- Raw text -