Commit d031ecc4 by Robert Dewar Committed by Arnaud Charlet

s-wchstw.adb: provide messages for run time unit exceptions

2007-09-26  Robert Dewar  <dewar@adacore.com>

	* s-wchstw.adb: provide messages for run time unit exceptions

	* a-witeio.adb: Minor reformatting

	* exp_ch13.adb: Minor reformatting

From-SVN: r128807
parent de93c8b3
...@@ -1134,6 +1134,7 @@ package body Ada.Wide_Text_IO is ...@@ -1134,6 +1134,7 @@ package body Ada.Wide_Text_IO is
-- Procedure to output one character of a wide character sequence -- Procedure to output one character of a wide character sequence
procedure WC_Out is new Wide_Char_To_Char_Sequence (Out_Char); procedure WC_Out is new Wide_Char_To_Char_Sequence (Out_Char);
-------------- --------------
-- Out_Char -- -- Out_Char --
-------------- --------------
......
...@@ -94,7 +94,6 @@ package body Exp_Ch13 is ...@@ -94,7 +94,6 @@ package body Exp_Ch13 is
declare declare
Decl : constant Node_Id := Declaration_Node (Ent); Decl : constant Node_Id := Declaration_Node (Ent);
Typ : constant Entity_Id := Etype (Ent); Typ : constant Entity_Id := Etype (Ent);
begin begin
if Nkind (Decl) = N_Object_Declaration if Nkind (Decl) = N_Object_Declaration
and then Present (Expression (Decl)) and then Present (Expression (Decl))
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -74,7 +74,8 @@ package body System.WCh_StW is ...@@ -74,7 +74,8 @@ package body System.WCh_StW is
function In_Char return Character is function In_Char return Character is
begin begin
if P > S'Last then if P > S'Last then
raise Constraint_Error; raise Constraint_Error
with "badly formed wide character code";
else else
P := P + 1; P := P + 1;
return S (P - 1); return S (P - 1);
...@@ -136,7 +137,8 @@ package body System.WCh_StW is ...@@ -136,7 +137,8 @@ package body System.WCh_StW is
Get_Next_Code (S, SP, V, EM); Get_Next_Code (S, SP, V, EM);
if V > 16#FFFF# then if V > 16#FFFF# then
raise Constraint_Error; raise Constraint_Error
with "out of range value for wide character";
end if; end if;
RP := RP + 1; RP := RP + 1;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment