Re: writing on terminal before an exception

[Stephen Leake <stephen_leake@stephe-leake.org>]

mfads@yahoo.com (Mark Fabbri) writes:

> i have a problem with text_io and exception:
>
> Text_IO.Put ("No SH3 data."); 
> Text_IO.New_Line;
> raise Sh3_NoData;
>
> if it raise an exception, the string "NO SH3 data" is not displayed. it
> seems that the text_io don't actually print on screen. i also tryed with
> text_io.flush after the New_Line, but nothing happens. 

What compiler and operating system? It works for me with GNAT on
Windows:

with Ada.Text_IO; use Ada.Text_IO;
procedure Hello
is
   Sh3_NoData : exception;
begin
   Put ("No SH3 data.");
   New_Line;
   Flush;
   raise Sh3_NoData;

end Hello;

gnatmake -p -k -C -Pgnat.gpr  hello 
gnatbind -E -I- -x C:\Stephe\Ada_Work\Gnat\objects\hello.ali
gnatlink C:\Stephe\Ada_Work\Gnat\objects\hello.ali -LC:\Apps\GNAT-6.2.1\lib\asis -lasis -o C:\Stephe\Ada_Work\Gnat\hello.exe
./hello.exe 
No SH3 data.

Execution terminated by unhandled exception
Exception name: HELLO.SH3_NODATA
Message: hello.adb:9
Call stack traceback locations:
0x401776 0x4016c8 0x401235 0x401286 0x7c817075

Perhaps you have Text_IO.Standard_Output redirected somewhere?

-- 
-- Stephe