OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Robert Dewar 2007-09-26 12:46:59 +02:00 committed by Arnaud Charlet
parent de93c8b38e
commit d031ecc4a5
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/ada/a-witeio.adb
View File

@ -1134,6 +1134,7 @@ package body Ada.Wide_Text_IO is
-- Procedure to output one character of a wide character sequence
procedure WC_Out is new Wide_Char_To_Char_Sequence (Out_Char);
--------------
-- Out_Char --
--------------

1
gcc/ada/exp_ch13.adb
View File

@ -94,7 +94,6 @@ package body Exp_Ch13 is
declare
Decl : constant Node_Id := Declaration_Node (Ent);
Typ : constant Entity_Id := Etype (Ent);
begin
if Nkind (Decl) = N_Object_Declaration
and then Present (Expression (Decl))

8
gcc/ada/s-wchstw.adb
View File

@ -6,7 +6,7 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -74,7 +74,8 @@ package body System.WCh_StW is
function In_Char return Character is
begin
if P > S'Last then
raise Constraint_Error;
raise Constraint_Error
with "badly formed wide character code";
else
P := P + 1;
return S (P - 1);
@ -136,7 +137,8 @@ package body System.WCh_StW is
Get_Next_Code (S, SP, V, EM);
if V > 16#FFFF# then
raise Constraint_Error;
raise Constraint_Error
with "out of range value for wide character";
end if;
RP := RP + 1;