(12 . 34)(12 . 27)
64 ------------------------------------------------------------------------------
65 ------------------------------------------------------------------------------
66
67 with Ada.Text_IO; use Ada.Text_IO;
68 with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
69 with Ada.Text_IO; use Ada.Text_IO;
70 with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
71 with System.Storage_Elements; use System.Storage_Elements;
72 with System.Syscall; use System.Syscall;
73
74 procedure Last_Chance_Handler
75 (Msg : System.Address; Line : Integer)
76 is
77 procedure Exit_Now(status: Integer);
78 pragma Import
79 (Convention => C,
80 Entity => Exit_Now,
81 External_Name => "exit");
82
83 function Peek (Addr : System.Address) return Character
84 is
85 C : Character with Address => Addr;
86 procedure Last_Chance_Handler (Msg : System.Address; Line : Integer) is
87 function Peek (Addr : System.Address) return Character is
88 C : Character with
89 Address => Addr;
90 begin
91 return C;
92 end Peek;
93 end Peek;
94 A : System.Address := Msg;
95 begin
96 Put ("GNAT Exception!:");
97 Put (Line);
98 Put (Line);
99 Put (":");
100 while Peek(A) /= ASCII.NUL loop
101 Put (Peek(A));
102 while Peek (A) /= ASCII.NUL loop
103 Put (Peek (A));
104 A := A + 1;
105 end loop;
106 New_Line;
107 Exit_Now(-1);
108 Sys_Exit (1);
109 end Last_Chance_Handler;