Commit f7365b8e authored by jhugues's avatar jhugues
Browse files

* Correctly handle EOF in REAL

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