Commit f7365b8e authored by jhugues's avatar jhugues

* Correctly handle EOF in REAL



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@5080 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 99ed6f79
......@@ -593,8 +593,9 @@ package body Ocarina.FE_REAL.Lexer is
Skip_Spaces;
Token_Location.Last_Pos := Token_Location.Scan;
if Token_Location.Scan >= Token_Location.EOF or else
Token = T_EOF then
if Token_Location.Scan > Token_Location.EOF
or else Token = T_EOF
then
Token := T_EOF;
return;
end if;
......
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