Commit a02fcf83 authored by hugues.jerome's avatar hugues.jerome
Browse files

* Correctly print strings that contain the " character



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2401 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 646774fb
......@@ -486,7 +486,17 @@ package body Ocarina.Backends.Ada_Values is
return '"' & '"';
end if;
Add_Char_To_Name_Buffer ('"'); -- "
Get_Name_String_And_Append (V.SVal);
declare
The_String : constant String := Get_Name_String (V.SVal);
begin
for J in The_String'Range loop
Add_Char_To_Name_Buffer (The_String (J));
-- Escape '"' character
if The_String (J) = '"' then
Add_Char_To_Name_Buffer (The_String (J));
end if;
end loop;
end;
Add_Char_To_Name_Buffer ('"'); -- "
when others =>
......
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