gcc/ada/prep.adb

429                     ("`)` expected", Token_Ptr);
443                Symbol_Pos1  := Token_Ptr;
458                      Error_Msg ("identifier `Defined` expected", Token_Ptr);
558                      Error_Msg ("number expected", Token_Ptr);
567                      Symbol_Pos2  := Token_Ptr;
647                         Token_Ptr);
697                Error_Msg ("`(`, NOT or symbol expected", Token_Ptr);
719                  Token_Ptr);
722                Error_Msg ("mixing OR and AND is not allowed", Token_Ptr);
742                   Token_Ptr);
745                Error_Msg ("mixing AND and OR is not allowed", Token_Ptr);
1008                Error_Msg ("identifier expected", Token_Ptr);
1015             for Ptr in Token_Ptr .. Scan_Ptr - 1 loop
1025                  ("`:=` expected", Token_Ptr);
1033                   Ptr : Source_Ptr := Token_Ptr;
1052                   Error_Msg ("extraneous text in definition", Token_Ptr);
1066                   Error_Msg ("extraneous text in definition", Token_Ptr);
1078                Value_Start := Token_Ptr;
1079                Value_End   := Token_Ptr - 1;
1080                Scan_Ptr    := Token_Ptr;
1103                   Error_Msg ("extraneous text in definition", Token_Ptr);
1255                         If_Ptr : constant Source_Ptr := Token_Ptr;
1275                               Token_Ptr);
1307                         Error_Msg ("no IF for this ELSIF", Token_Ptr);
1332                            Token_Ptr);
1358                         Error_Msg ("no IF for this ELSE", Token_Ptr);
1365                           ("duplicate ELSE line", Token_Ptr);
1386                           Token_Ptr;
1398                            Token_Ptr);
1407                         Error_Msg ("no IF for this END", Token_Ptr);
1420                           ("IF expected", Token_Ptr);
1428                              ("`;` Expected", Token_Ptr);
1441                                  Token_Ptr);
1463                           ("IF expected", Token_Ptr);
1480                            Token_Ptr);
1484                         Error_Msg ("IF or `END IF` expected", Token_Ptr);
1514                            Dollar_Ptr : constant Source_Ptr := Token_Ptr;
1522                              and then Token_Ptr = Dollar_Ptr + 1
1578          Output_Line (Start_Of_Processing, Token_Ptr - 1);
1585             if Sinput.Source (Token_Ptr) = ASCII.CR
1586               and then Sinput.Source (Token_Ptr + 1) = ASCII.LF
1588                Start_Of_Processing := Token_Ptr + 2;
1590                Start_Of_Processing := Token_Ptr + 1;