-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2008, Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2010, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- The following variable should be a constant, but this is not possible
-- because its type GNAT.Dynamic_Tables.Instance has a component P of
- -- unitialized private type GNAT.Dynamic_Tables.Table_Private and there are
- -- no exported values for this private type.
- -- Warnings are Off because it is never assigned a value.
+ -- unitialized private type GNAT.Dynamic_Tables.Table_Private and there
+ -- are no exported values for this private type. Warnings are Off because
+ -- it is never assigned a value.
pragma Warnings (Off);
No_Mapping : Prep.Symbol_Table.Instance;
while Token /= Tok_End_Of_Line and then Token /= Tok_EOF loop
if Token /= Tok_Minus then
- Error_Msg ("`'-` expected", Token_Ptr);
+ Error_Msg -- CODEFIX
+ ("`'-` expected", Token_Ptr);
Skip_To_End_Of_Line;
goto Scan_Line;
end if;
-- with an underline or a digit.
if Name_Buffer (2) = '_'
- or Name_Buffer (2) in '0' .. '9'
+ or else Name_Buffer (2) in '0' .. '9'
then
Error_Msg ("symbol expected", Token_Ptr + 1);
Skip_To_End_Of_Line;
Scan;
if Token /= Tok_Equal then
- Error_Msg ("`=` expected", Token_Ptr);
+ Error_Msg -- CODEFIX
+ ("`=` expected", Token_Ptr);
Skip_To_End_Of_Line;
goto Scan_Line;
end if;
if Deffile = No_Source_File then
Fail ("definition file """
& Get_Name_String (N)
- & """ cannot be found");
+ & """ not found");
end if;
-- Initialize the preprocessor and set the characteristics of the