stringt.adb (Write_String_Table_Entry): Handle wide characters properly
2008-04-08 Robert Dewar <dewar@adacore.com> * stringt.adb (Write_String_Table_Entry): Handle wide characters properly From-SVN: r134053
This commit is contained in:
parent
9147cc0be7
commit
54e1f2f0df
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2008, 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- --
|
||||
|
@ -428,9 +428,8 @@ package body Stringt is
|
|||
for J in 1 .. String_Length (Id) loop
|
||||
C := Get_String_Char (Id, J);
|
||||
|
||||
if Character'Val (C) = '"' then
|
||||
if C = Character'Pos ('"') then
|
||||
Write_Str ("""""");
|
||||
|
||||
else
|
||||
Write_Char_Code (C);
|
||||
end if;
|
||||
|
|
Loading…
Reference in New Issue