Commit 35c68db0 authored by yoogx's avatar yoogx
Browse files

* Return ASCII code for non graphic characters

parent f2fd0b69
...@@ -691,7 +691,9 @@ package body Ocarina.FE_AADL.Lexer is ...@@ -691,7 +691,9 @@ package body Ocarina.FE_AADL.Lexer is
else else
Error_Loc (1) := Token_Location; Error_Loc (1) := Token_Location;
DE ("non graphic character '|" & Ch & 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 if Token_Location.Scan > Token_Location.EOF then
DE ("scanning string, end of file reached, exit"); DE ("scanning string, end of file reached, exit");
......
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