* Return ASCII code for non graphic characters

git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@6259 129961e7-ef38-4bb5-a8f7-c9a525a55882

src/frontends/aadl/ocarina-fe_aadl-lexer.adb

@@ -691,7 +691,9 @@ package body Ocarina.FE_AADL.Lexer is
                else
                   Error_Loc (1) := Token_Location;
                   DE ("non graphic character '|" & Ch &
-                      "' is not allowed in string lateral, ignored");
+                        "' (ASCII code"
+                        & Standard.Character'Pos (Ch)'Img
+                        & ") is not allowed in string lateral, ignored");
 
                   if Token_Location.Scan > Token_Location.EOF then
                      DE ("scanning string, end of file reached, exit");