diff options
Diffstat (limited to 'gcc/ada/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 78 |
1 files changed, 39 insertions, 39 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index 52a9fac4076..6f8ea91d646 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -57,45 +57,6 @@ package body Scn is procedure Error_Long_Line; -- Signal error of excessively long line - --------------- - -- Post_Scan -- - --------------- - - procedure Post_Scan is - begin - case Token is - when Tok_Char_Literal => - Token_Node := New_Node (N_Character_Literal, Token_Ptr); - Set_Char_Literal_Value (Token_Node, UI_From_CC (Character_Code)); - Set_Chars (Token_Node, Token_Name); - - when Tok_Identifier => - Token_Node := New_Node (N_Identifier, Token_Ptr); - Set_Chars (Token_Node, Token_Name); - - when Tok_Real_Literal => - Token_Node := New_Node (N_Real_Literal, Token_Ptr); - Set_Realval (Token_Node, Real_Literal_Value); - - when Tok_Integer_Literal => - Token_Node := New_Node (N_Integer_Literal, Token_Ptr); - Set_Intval (Token_Node, Int_Literal_Value); - - when Tok_String_Literal => - Token_Node := New_Node (N_String_Literal, Token_Ptr); - Set_Has_Wide_Character (Token_Node, Wide_Character_Found); - Set_Strval (Token_Node, String_Literal_Id); - - when Tok_Operator_Symbol => - Token_Node := New_Node (N_Operator_Symbol, Token_Ptr); - Set_Chars (Token_Node, Token_Name); - Set_Strval (Token_Node, String_Literal_Id); - - when others => - null; - end case; - end Post_Scan; - ----------------------- -- Check_End_Of_Line -- ----------------------- @@ -345,6 +306,45 @@ package body Scn is Check_Restriction (No_Obsolescent_Features, New_Node (N_Empty, S)); end Obsolescent_Check; + --------------- + -- Post_Scan -- + --------------- + + procedure Post_Scan is + begin + case Token is + when Tok_Char_Literal => + Token_Node := New_Node (N_Character_Literal, Token_Ptr); + Set_Char_Literal_Value (Token_Node, UI_From_CC (Character_Code)); + Set_Chars (Token_Node, Token_Name); + + when Tok_Identifier => + Token_Node := New_Node (N_Identifier, Token_Ptr); + Set_Chars (Token_Node, Token_Name); + + when Tok_Real_Literal => + Token_Node := New_Node (N_Real_Literal, Token_Ptr); + Set_Realval (Token_Node, Real_Literal_Value); + + when Tok_Integer_Literal => + Token_Node := New_Node (N_Integer_Literal, Token_Ptr); + Set_Intval (Token_Node, Int_Literal_Value); + + when Tok_String_Literal => + Token_Node := New_Node (N_String_Literal, Token_Ptr); + Set_Has_Wide_Character (Token_Node, Wide_Character_Found); + Set_Strval (Token_Node, String_Literal_Id); + + when Tok_Operator_Symbol => + Token_Node := New_Node (N_Operator_Symbol, Token_Ptr); + Set_Chars (Token_Node, Token_Name); + Set_Strval (Token_Node, String_Literal_Id); + + when others => + null; + end case; + end Post_Scan; + ------------------------------ -- Scan_Reserved_Identifier -- ------------------------------ |