Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 1 | //===--- Parser.cpp - C Language Family Parser ----------------------------===// |
| 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
Chris Lattner | 0bc735f | 2007-12-29 19:59:25 +0000 | [diff] [blame] | 5 | // This file is distributed under the University of Illinois Open Source |
| 6 | // License. See LICENSE.TXT for details. |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
| 9 | // |
| 10 | // This file implements the Parser interfaces. |
| 11 | // |
| 12 | //===----------------------------------------------------------------------===// |
| 13 | |
| 14 | #include "clang/Parse/Parser.h" |
Daniel Dunbar | e4858a6 | 2008-08-11 03:45:03 +0000 | [diff] [blame] | 15 | #include "clang/Basic/Diagnostic.h" |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 16 | #include "clang/Parse/DeclSpec.h" |
| 17 | #include "clang/Parse/Scope.h" |
| 18 | using namespace clang; |
| 19 | |
| 20 | Parser::Parser(Preprocessor &pp, Action &actions) |
| 21 | : PP(pp), Actions(actions), Diags(PP.getDiagnostics()) { |
| 22 | Tok.setKind(tok::eof); |
| 23 | CurScope = 0; |
Chris Lattner | 9e344c6 | 2007-07-15 00:04:39 +0000 | [diff] [blame] | 24 | NumCachedScopes = 0; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 25 | ParenCount = BracketCount = BraceCount = 0; |
Ted Kremenek | a526c5c | 2008-01-07 19:49:32 +0000 | [diff] [blame] | 26 | ObjCImpDecl = 0; |
Argyrios Kyrtzidis | 4cc18a4 | 2008-06-24 22:12:16 +0000 | [diff] [blame] | 27 | // Instantiate a LexedMethodsForTopClass for all the non-nested classes. |
| 28 | PushTopClassStack(); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 29 | } |
| 30 | |
| 31 | /// Out-of-line virtual destructor to provide home for Action class. |
| 32 | Action::~Action() {} |
| 33 | |
| 34 | |
Chris Lattner | 4fef81d | 2008-08-05 06:19:09 +0000 | [diff] [blame] | 35 | bool Parser::Diag(SourceLocation Loc, unsigned DiagID, |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 36 | const std::string &Msg) { |
Ted Kremenek | 9c728dc | 2007-12-12 22:39:36 +0000 | [diff] [blame] | 37 | Diags.Report(FullSourceLoc(Loc,PP.getSourceManager()), DiagID, &Msg, 1); |
Chris Lattner | 4fef81d | 2008-08-05 06:19:09 +0000 | [diff] [blame] | 38 | return true; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 39 | } |
| 40 | |
Argyrios Kyrtzidis | 897e7a3 | 2008-08-24 12:51:04 +0000 | [diff] [blame] | 41 | bool Parser::Diag(SourceLocation Loc, unsigned DiagID, const std::string &Msg, |
Argyrios Kyrtzidis | a88b509 | 2008-08-24 13:14:02 +0000 | [diff] [blame] | 42 | const SourceRange& Range) { |
Argyrios Kyrtzidis | 897e7a3 | 2008-08-24 12:51:04 +0000 | [diff] [blame] | 43 | Diags.Report(PP.getFullLoc(Loc), DiagID, &Msg, 1, &Range,1); |
| 44 | return true; |
| 45 | } |
| 46 | |
Chris Lattner | 4fef81d | 2008-08-05 06:19:09 +0000 | [diff] [blame] | 47 | bool Parser::Diag(SourceLocation Loc, unsigned DiagID, const SourceRange &R) { |
Chris Lattner | 844cef3 | 2008-07-26 00:16:04 +0000 | [diff] [blame] | 48 | Diags.Report(FullSourceLoc(Loc,PP.getSourceManager()), DiagID, 0, 0, |
| 49 | &R, 1); |
Chris Lattner | 4fef81d | 2008-08-05 06:19:09 +0000 | [diff] [blame] | 50 | return true; |
Chris Lattner | 844cef3 | 2008-07-26 00:16:04 +0000 | [diff] [blame] | 51 | } |
| 52 | |
| 53 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 54 | /// MatchRHSPunctuation - For punctuation with a LHS and RHS (e.g. '['/']'), |
| 55 | /// this helper function matches and consumes the specified RHS token if |
| 56 | /// present. If not present, it emits the specified diagnostic indicating |
| 57 | /// that the parser failed to match the RHS of the token at LHSLoc. LHSName |
| 58 | /// should be the name of the unmatched LHS token. |
| 59 | SourceLocation Parser::MatchRHSPunctuation(tok::TokenKind RHSTok, |
| 60 | SourceLocation LHSLoc) { |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 61 | |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 62 | if (Tok.is(RHSTok)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 63 | return ConsumeAnyToken(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 64 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 65 | SourceLocation R = Tok.getLocation(); |
| 66 | const char *LHSName = "unknown"; |
| 67 | diag::kind DID = diag::err_parse_error; |
| 68 | switch (RHSTok) { |
| 69 | default: break; |
| 70 | case tok::r_paren : LHSName = "("; DID = diag::err_expected_rparen; break; |
| 71 | case tok::r_brace : LHSName = "{"; DID = diag::err_expected_rbrace; break; |
| 72 | case tok::r_square: LHSName = "["; DID = diag::err_expected_rsquare; break; |
| 73 | case tok::greater: LHSName = "<"; DID = diag::err_expected_greater; break; |
| 74 | } |
| 75 | Diag(Tok, DID); |
| 76 | Diag(LHSLoc, diag::err_matching, LHSName); |
| 77 | SkipUntil(RHSTok); |
| 78 | return R; |
| 79 | } |
| 80 | |
| 81 | /// ExpectAndConsume - The parser expects that 'ExpectedTok' is next in the |
| 82 | /// input. If so, it is consumed and false is returned. |
| 83 | /// |
| 84 | /// If the input is malformed, this emits the specified diagnostic. Next, if |
| 85 | /// SkipToTok is specified, it calls SkipUntil(SkipToTok). Finally, true is |
| 86 | /// returned. |
| 87 | bool Parser::ExpectAndConsume(tok::TokenKind ExpectedTok, unsigned DiagID, |
| 88 | const char *Msg, tok::TokenKind SkipToTok) { |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 89 | if (Tok.is(ExpectedTok)) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 90 | ConsumeAnyToken(); |
| 91 | return false; |
| 92 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 93 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 94 | Diag(Tok, DiagID, Msg); |
| 95 | if (SkipToTok != tok::unknown) |
| 96 | SkipUntil(SkipToTok); |
| 97 | return true; |
| 98 | } |
| 99 | |
| 100 | //===----------------------------------------------------------------------===// |
| 101 | // Error recovery. |
| 102 | //===----------------------------------------------------------------------===// |
| 103 | |
| 104 | /// SkipUntil - Read tokens until we get to the specified token, then consume |
Chris Lattner | 012cf46 | 2007-07-24 17:03:04 +0000 | [diff] [blame] | 105 | /// it (unless DontConsume is true). Because we cannot guarantee that the |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 106 | /// token will ever occur, this skips to the next token, or to some likely |
| 107 | /// good stopping point. If StopAtSemi is true, skipping will stop at a ';' |
| 108 | /// character. |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 109 | /// |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 110 | /// If SkipUntil finds the specified token, it returns true, otherwise it |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 111 | /// returns false. |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 112 | bool Parser::SkipUntil(const tok::TokenKind *Toks, unsigned NumToks, |
| 113 | bool StopAtSemi, bool DontConsume) { |
| 114 | // We always want this function to skip at least one token if the first token |
| 115 | // isn't T and if not at EOF. |
| 116 | bool isFirstTokenSkipped = true; |
| 117 | while (1) { |
| 118 | // If we found one of the tokens, stop and return true. |
| 119 | for (unsigned i = 0; i != NumToks; ++i) { |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 120 | if (Tok.is(Toks[i])) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 121 | if (DontConsume) { |
| 122 | // Noop, don't consume the token. |
| 123 | } else { |
| 124 | ConsumeAnyToken(); |
| 125 | } |
| 126 | return true; |
| 127 | } |
| 128 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 129 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 130 | switch (Tok.getKind()) { |
| 131 | case tok::eof: |
| 132 | // Ran out of tokens. |
| 133 | return false; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 134 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 135 | case tok::l_paren: |
| 136 | // Recursively skip properly-nested parens. |
| 137 | ConsumeParen(); |
| 138 | SkipUntil(tok::r_paren, false); |
| 139 | break; |
| 140 | case tok::l_square: |
| 141 | // Recursively skip properly-nested square brackets. |
| 142 | ConsumeBracket(); |
| 143 | SkipUntil(tok::r_square, false); |
| 144 | break; |
| 145 | case tok::l_brace: |
| 146 | // Recursively skip properly-nested braces. |
| 147 | ConsumeBrace(); |
| 148 | SkipUntil(tok::r_brace, false); |
| 149 | break; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 150 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 151 | // Okay, we found a ']' or '}' or ')', which we think should be balanced. |
| 152 | // Since the user wasn't looking for this token (if they were, it would |
| 153 | // already be handled), this isn't balanced. If there is a LHS token at a |
| 154 | // higher level, we will assume that this matches the unbalanced token |
| 155 | // and return it. Otherwise, this is a spurious RHS token, which we skip. |
| 156 | case tok::r_paren: |
| 157 | if (ParenCount && !isFirstTokenSkipped) |
| 158 | return false; // Matches something. |
| 159 | ConsumeParen(); |
| 160 | break; |
| 161 | case tok::r_square: |
| 162 | if (BracketCount && !isFirstTokenSkipped) |
| 163 | return false; // Matches something. |
| 164 | ConsumeBracket(); |
| 165 | break; |
| 166 | case tok::r_brace: |
| 167 | if (BraceCount && !isFirstTokenSkipped) |
| 168 | return false; // Matches something. |
| 169 | ConsumeBrace(); |
| 170 | break; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 171 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 172 | case tok::string_literal: |
| 173 | case tok::wide_string_literal: |
| 174 | ConsumeStringToken(); |
| 175 | break; |
| 176 | case tok::semi: |
| 177 | if (StopAtSemi) |
| 178 | return false; |
| 179 | // FALL THROUGH. |
| 180 | default: |
| 181 | // Skip this token. |
| 182 | ConsumeToken(); |
| 183 | break; |
| 184 | } |
| 185 | isFirstTokenSkipped = false; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 186 | } |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 187 | } |
| 188 | |
| 189 | //===----------------------------------------------------------------------===// |
| 190 | // Scope manipulation |
| 191 | //===----------------------------------------------------------------------===// |
| 192 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 193 | /// EnterScope - Start a new scope. |
| 194 | void Parser::EnterScope(unsigned ScopeFlags) { |
Chris Lattner | 9e344c6 | 2007-07-15 00:04:39 +0000 | [diff] [blame] | 195 | if (NumCachedScopes) { |
| 196 | Scope *N = ScopeCache[--NumCachedScopes]; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 197 | N->Init(CurScope, ScopeFlags); |
| 198 | CurScope = N; |
| 199 | } else { |
| 200 | CurScope = new Scope(CurScope, ScopeFlags); |
| 201 | } |
| 202 | } |
| 203 | |
| 204 | /// ExitScope - Pop a scope off the scope stack. |
| 205 | void Parser::ExitScope() { |
| 206 | assert(CurScope && "Scope imbalance!"); |
| 207 | |
Chris Lattner | 90ae68a | 2007-10-09 20:37:18 +0000 | [diff] [blame] | 208 | // Inform the actions module that this scope is going away if there are any |
| 209 | // decls in it. |
| 210 | if (!CurScope->decl_empty()) |
Steve Naroff | b216c88 | 2007-10-09 22:01:59 +0000 | [diff] [blame] | 211 | Actions.ActOnPopScope(Tok.getLocation(), CurScope); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 212 | |
Chris Lattner | 9e344c6 | 2007-07-15 00:04:39 +0000 | [diff] [blame] | 213 | Scope *OldScope = CurScope; |
| 214 | CurScope = OldScope->getParent(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 215 | |
Chris Lattner | 9e344c6 | 2007-07-15 00:04:39 +0000 | [diff] [blame] | 216 | if (NumCachedScopes == ScopeCacheSize) |
| 217 | delete OldScope; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 218 | else |
Chris Lattner | 9e344c6 | 2007-07-15 00:04:39 +0000 | [diff] [blame] | 219 | ScopeCache[NumCachedScopes++] = OldScope; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 220 | } |
| 221 | |
| 222 | |
| 223 | |
| 224 | |
| 225 | //===----------------------------------------------------------------------===// |
| 226 | // C99 6.9: External Definitions. |
| 227 | //===----------------------------------------------------------------------===// |
| 228 | |
| 229 | Parser::~Parser() { |
| 230 | // If we still have scopes active, delete the scope tree. |
| 231 | delete CurScope; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 232 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 233 | // Free the scope cache. |
Chris Lattner | 9e344c6 | 2007-07-15 00:04:39 +0000 | [diff] [blame] | 234 | for (unsigned i = 0, e = NumCachedScopes; i != e; ++i) |
| 235 | delete ScopeCache[i]; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 236 | } |
| 237 | |
| 238 | /// Initialize - Warm up the parser. |
| 239 | /// |
| 240 | void Parser::Initialize() { |
| 241 | // Prime the lexer look-ahead. |
| 242 | ConsumeToken(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 243 | |
Chris Lattner | 31e0572 | 2007-08-26 06:24:45 +0000 | [diff] [blame] | 244 | // Create the translation unit scope. Install it as the current scope. |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 245 | assert(CurScope == 0 && "A scope is already active?"); |
Chris Lattner | 31e0572 | 2007-08-26 06:24:45 +0000 | [diff] [blame] | 246 | EnterScope(Scope::DeclScope); |
Steve Naroff | b216c88 | 2007-10-09 22:01:59 +0000 | [diff] [blame] | 247 | Actions.ActOnTranslationUnitScope(Tok.getLocation(), CurScope); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 248 | |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 249 | if (Tok.is(tok::eof) && |
Chris Lattner | f726175 | 2007-08-25 05:47:03 +0000 | [diff] [blame] | 250 | !getLang().CPlusPlus) // Empty source file is an extension in C |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 251 | Diag(Tok, diag::ext_empty_source_file); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 252 | |
Chris Lattner | 34870da | 2007-08-29 22:54:08 +0000 | [diff] [blame] | 253 | // Initialization for Objective-C context sensitive keywords recognition. |
Ted Kremenek | a526c5c | 2008-01-07 19:49:32 +0000 | [diff] [blame] | 254 | // Referenced in Parser::ParseObjCTypeQualifierList. |
Chris Lattner | 34870da | 2007-08-29 22:54:08 +0000 | [diff] [blame] | 255 | if (getLang().ObjC1) { |
Ted Kremenek | a526c5c | 2008-01-07 19:49:32 +0000 | [diff] [blame] | 256 | ObjCTypeQuals[objc_in] = &PP.getIdentifierTable().get("in"); |
| 257 | ObjCTypeQuals[objc_out] = &PP.getIdentifierTable().get("out"); |
| 258 | ObjCTypeQuals[objc_inout] = &PP.getIdentifierTable().get("inout"); |
| 259 | ObjCTypeQuals[objc_oneway] = &PP.getIdentifierTable().get("oneway"); |
| 260 | ObjCTypeQuals[objc_bycopy] = &PP.getIdentifierTable().get("bycopy"); |
| 261 | ObjCTypeQuals[objc_byref] = &PP.getIdentifierTable().get("byref"); |
Chris Lattner | 34870da | 2007-08-29 22:54:08 +0000 | [diff] [blame] | 262 | } |
Fariborz Jahanian | d0f97d1 | 2007-08-31 16:11:31 +0000 | [diff] [blame] | 263 | if (getLang().ObjC2) { |
Ted Kremenek | a526c5c | 2008-01-07 19:49:32 +0000 | [diff] [blame] | 264 | ObjCPropertyAttrs[objc_readonly] = &PP.getIdentifierTable().get("readonly"); |
| 265 | ObjCPropertyAttrs[objc_getter] = &PP.getIdentifierTable().get("getter"); |
| 266 | ObjCPropertyAttrs[objc_setter] = &PP.getIdentifierTable().get("setter"); |
| 267 | ObjCPropertyAttrs[objc_assign] = &PP.getIdentifierTable().get("assign"); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 268 | ObjCPropertyAttrs[objc_readwrite] = |
Fariborz Jahanian | d0f97d1 | 2007-08-31 16:11:31 +0000 | [diff] [blame] | 269 | &PP.getIdentifierTable().get("readwrite"); |
Ted Kremenek | a526c5c | 2008-01-07 19:49:32 +0000 | [diff] [blame] | 270 | ObjCPropertyAttrs[objc_retain] = &PP.getIdentifierTable().get("retain"); |
| 271 | ObjCPropertyAttrs[objc_copy] = &PP.getIdentifierTable().get("copy"); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 272 | ObjCPropertyAttrs[objc_nonatomic] = |
Fariborz Jahanian | d0f97d1 | 2007-08-31 16:11:31 +0000 | [diff] [blame] | 273 | &PP.getIdentifierTable().get("nonatomic"); |
| 274 | } |
Daniel Dunbar | 662e8b5 | 2008-08-14 22:04:54 +0000 | [diff] [blame] | 275 | |
| 276 | Ident_super = &PP.getIdentifierTable().get("super"); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 277 | } |
| 278 | |
| 279 | /// ParseTopLevelDecl - Parse one top-level declaration, return whatever the |
| 280 | /// action tells us to. This returns true if the EOF was encountered. |
Steve Naroff | 89307ff | 2007-11-29 23:05:20 +0000 | [diff] [blame] | 281 | bool Parser::ParseTopLevelDecl(DeclTy*& Result) { |
| 282 | Result = 0; |
Chris Lattner | 9299f3f | 2008-08-23 03:19:52 +0000 | [diff] [blame] | 283 | if (Tok.is(tok::eof)) { |
| 284 | Actions.ActOnEndOfTranslationUnit(); |
| 285 | return true; |
| 286 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 287 | |
Steve Naroff | 89307ff | 2007-11-29 23:05:20 +0000 | [diff] [blame] | 288 | Result = ParseExternalDeclaration(); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 289 | return false; |
| 290 | } |
| 291 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 292 | /// ParseTranslationUnit: |
| 293 | /// translation-unit: [C99 6.9] |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 294 | /// external-declaration |
| 295 | /// translation-unit external-declaration |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 296 | void Parser::ParseTranslationUnit() { |
Chris Lattner | a9e8fec | 2008-08-23 02:06:50 +0000 | [diff] [blame] | 297 | Initialize(); // pushes a scope. |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 298 | |
Steve Naroff | 89307ff | 2007-11-29 23:05:20 +0000 | [diff] [blame] | 299 | DeclTy *Res; |
| 300 | while (!ParseTopLevelDecl(Res)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 301 | /*parse them all*/; |
Chris Lattner | 06f5485 | 2008-08-23 02:00:52 +0000 | [diff] [blame] | 302 | |
| 303 | ExitScope(); |
| 304 | assert(CurScope == 0 && "Scope imbalance!"); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 305 | } |
| 306 | |
| 307 | /// ParseExternalDeclaration: |
| 308 | /// external-declaration: [C99 6.9] |
Chris Lattner | c301815 | 2007-08-10 20:57:02 +0000 | [diff] [blame] | 309 | /// function-definition |
| 310 | /// declaration |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 311 | /// [EXT] ';' |
| 312 | /// [GNU] asm-definition |
Chris Lattner | c301815 | 2007-08-10 20:57:02 +0000 | [diff] [blame] | 313 | /// [GNU] __extension__ external-declaration |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 314 | /// [OBJC] objc-class-definition |
| 315 | /// [OBJC] objc-class-declaration |
| 316 | /// [OBJC] objc-alias-declaration |
| 317 | /// [OBJC] objc-protocol-definition |
| 318 | /// [OBJC] objc-method-definition |
| 319 | /// [OBJC] @end |
| 320 | /// |
| 321 | /// [GNU] asm-definition: |
| 322 | /// simple-asm-expr ';' |
| 323 | /// |
| 324 | Parser::DeclTy *Parser::ParseExternalDeclaration() { |
| 325 | switch (Tok.getKind()) { |
| 326 | case tok::semi: |
| 327 | Diag(Tok, diag::ext_top_level_semi); |
| 328 | ConsumeToken(); |
| 329 | // TODO: Invoke action for top-level semicolon. |
| 330 | return 0; |
Chris Lattner | c301815 | 2007-08-10 20:57:02 +0000 | [diff] [blame] | 331 | case tok::kw___extension__: { |
| 332 | ConsumeToken(); |
| 333 | // FIXME: Disable extension warnings. |
| 334 | DeclTy *RV = ParseExternalDeclaration(); |
| 335 | // FIXME: Restore extension warnings. |
| 336 | return RV; |
| 337 | } |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 338 | case tok::kw_asm: { |
| 339 | ExprResult Result = ParseSimpleAsm(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 340 | |
Anders Carlsson | 3f9424f | 2008-02-08 00:23:11 +0000 | [diff] [blame] | 341 | ExpectAndConsume(tok::semi, diag::err_expected_semi_after, |
| 342 | "top-level asm block"); |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 343 | |
| 344 | if (!Result.isInvalid) |
| 345 | return Actions.ActOnFileScopeAsmDecl(Tok.getLocation(), Result.Val); |
Chris Lattner | aec3a1e | 2008-05-27 23:32:43 +0000 | [diff] [blame] | 346 | return 0; |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 347 | } |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 348 | case tok::at: |
| 349 | // @ is not a legal token unless objc is enabled, no need to check. |
Steve Naroff | 2bd42fa | 2007-09-10 20:51:04 +0000 | [diff] [blame] | 350 | return ParseObjCAtDirectives(); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 351 | case tok::minus: |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 352 | case tok::plus: |
Fariborz Jahanian | 60fbca0 | 2007-11-10 16:31:34 +0000 | [diff] [blame] | 353 | if (getLang().ObjC1) |
Steve Naroff | 71c0a95 | 2007-11-13 23:01:27 +0000 | [diff] [blame] | 354 | return ParseObjCMethodDefinition(); |
Fariborz Jahanian | 60fbca0 | 2007-11-10 16:31:34 +0000 | [diff] [blame] | 355 | else { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 356 | Diag(Tok, diag::err_expected_external_declaration); |
| 357 | ConsumeToken(); |
| 358 | } |
| 359 | return 0; |
Chris Lattner | 8f08cb7 | 2007-08-25 06:57:03 +0000 | [diff] [blame] | 360 | case tok::kw_namespace: |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 361 | case tok::kw_typedef: |
Chris Lattner | bae3511 | 2007-08-25 18:15:16 +0000 | [diff] [blame] | 362 | // A function definition cannot start with a these keywords. |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 363 | return ParseDeclaration(Declarator::FileContext); |
| 364 | default: |
| 365 | // We can't tell whether this is a function-definition or declaration yet. |
| 366 | return ParseDeclarationOrFunctionDefinition(); |
| 367 | } |
| 368 | } |
| 369 | |
| 370 | /// ParseDeclarationOrFunctionDefinition - Parse either a function-definition or |
| 371 | /// a declaration. We can't tell which we have until we read up to the |
| 372 | /// compound-statement in function-definition. |
| 373 | /// |
| 374 | /// function-definition: [C99 6.9.1] |
Chris Lattner | a798ebc | 2008-04-05 05:52:15 +0000 | [diff] [blame] | 375 | /// decl-specs declarator declaration-list[opt] compound-statement |
| 376 | /// [C90] function-definition: [C99 6.7.1] - implicit int result |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 377 | /// [C90] decl-specs[opt] declarator declaration-list[opt] compound-statement |
Chris Lattner | a798ebc | 2008-04-05 05:52:15 +0000 | [diff] [blame] | 378 | /// |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 379 | /// declaration: [C99 6.7] |
Chris Lattner | 697e15f | 2007-08-22 06:06:56 +0000 | [diff] [blame] | 380 | /// declaration-specifiers init-declarator-list[opt] ';' |
| 381 | /// [!C99] init-declarator-list ';' [TODO: warn in c99 mode] |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 382 | /// [OMP] threadprivate-directive [TODO] |
| 383 | /// |
| 384 | Parser::DeclTy *Parser::ParseDeclarationOrFunctionDefinition() { |
| 385 | // Parse the common declaration-specifiers piece. |
| 386 | DeclSpec DS; |
| 387 | ParseDeclarationSpecifiers(DS); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 388 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 389 | // C99 6.7.2.3p6: Handle "struct-or-union identifier;", "enum { X };" |
| 390 | // declaration-specifiers init-declarator-list[opt] ';' |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 391 | if (Tok.is(tok::semi)) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 392 | ConsumeToken(); |
| 393 | return Actions.ParsedFreeStandingDeclSpec(CurScope, DS); |
| 394 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 395 | |
Daniel Dunbar | 246e70f | 2008-09-26 04:48:09 +0000 | [diff] [blame] | 396 | // ObjC2 allows prefix attributes on class interfaces and protocols. |
| 397 | // FIXME: This still needs better diagnostics. We should only accept |
| 398 | // attributes here, no types, etc. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 399 | if (getLang().ObjC2 && Tok.is(tok::at)) { |
Steve Naroff | dac269b | 2007-08-20 21:31:48 +0000 | [diff] [blame] | 400 | SourceLocation AtLoc = ConsumeToken(); // the "@" |
Daniel Dunbar | 246e70f | 2008-09-26 04:48:09 +0000 | [diff] [blame] | 401 | if (!Tok.isObjCAtKeyword(tok::objc_interface) && |
| 402 | !Tok.isObjCAtKeyword(tok::objc_protocol)) { |
| 403 | Diag(Tok, diag::err_objc_unexpected_attr); |
Chris Lattner | cb53b36 | 2007-12-27 19:57:00 +0000 | [diff] [blame] | 404 | SkipUntil(tok::semi); // FIXME: better skip? |
| 405 | return 0; |
| 406 | } |
Fariborz Jahanian | 0de2ae2 | 2008-01-02 19:17:38 +0000 | [diff] [blame] | 407 | const char *PrevSpec = 0; |
| 408 | if (DS.SetTypeSpecType(DeclSpec::TST_unspecified, AtLoc, PrevSpec)) |
| 409 | Diag(AtLoc, diag::err_invalid_decl_spec_combination, PrevSpec); |
Daniel Dunbar | 246e70f | 2008-09-26 04:48:09 +0000 | [diff] [blame] | 410 | if (Tok.isObjCAtKeyword(tok::objc_protocol)) |
| 411 | return ParseObjCAtProtocolDeclaration(AtLoc, DS.getAttributes()); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 412 | return ParseObjCAtInterfaceDeclaration(AtLoc, DS.getAttributes()); |
Steve Naroff | dac269b | 2007-08-20 21:31:48 +0000 | [diff] [blame] | 413 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 414 | |
Chris Lattner | c6fdc34 | 2008-01-12 07:05:38 +0000 | [diff] [blame] | 415 | // If the declspec consisted only of 'extern' and we have a string |
| 416 | // literal following it, this must be a C++ linkage specifier like |
| 417 | // 'extern "C"'. |
Chris Lattner | 3c6f6a7 | 2008-01-12 07:08:43 +0000 | [diff] [blame] | 418 | if (Tok.is(tok::string_literal) && getLang().CPlusPlus && |
Chris Lattner | c6fdc34 | 2008-01-12 07:05:38 +0000 | [diff] [blame] | 419 | DS.getStorageClassSpec() == DeclSpec::SCS_extern && |
| 420 | DS.getParsedSpecifiers() == DeclSpec::PQ_StorageClassSpecifier) |
| 421 | return ParseLinkage(Declarator::FileContext); |
| 422 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 423 | // Parse the first declarator. |
| 424 | Declarator DeclaratorInfo(DS, Declarator::FileContext); |
| 425 | ParseDeclarator(DeclaratorInfo); |
| 426 | // Error parsing the declarator? |
| 427 | if (DeclaratorInfo.getIdentifier() == 0) { |
| 428 | // If so, skip until the semi-colon or a }. |
| 429 | SkipUntil(tok::r_brace, true); |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 430 | if (Tok.is(tok::semi)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 431 | ConsumeToken(); |
| 432 | return 0; |
| 433 | } |
| 434 | |
| 435 | // If the declarator is the start of a function definition, handle it. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 436 | if (Tok.is(tok::equal) || // int X()= -> not a function def |
| 437 | Tok.is(tok::comma) || // int X(), -> not a function def |
| 438 | Tok.is(tok::semi) || // int X(); -> not a function def |
| 439 | Tok.is(tok::kw_asm) || // int X() __asm__ -> not a function def |
| 440 | Tok.is(tok::kw___attribute)) { // int X() __attr__ -> not a function def |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 441 | // FALL THROUGH. |
| 442 | } else if (DeclaratorInfo.isFunctionDeclarator() && |
Argyrios Kyrtzidis | cf28c72 | 2008-06-21 10:00:56 +0000 | [diff] [blame] | 443 | (Tok.is(tok::l_brace) || // int X() {} |
| 444 | ( !getLang().CPlusPlus && |
| 445 | isDeclarationSpecifier() ))) { // int X(f) int f; {} |
Steve Naroff | e39bfd0 | 2008-02-14 02:58:32 +0000 | [diff] [blame] | 446 | if (DS.getStorageClassSpec() == DeclSpec::SCS_typedef) { |
| 447 | Diag(Tok, diag::err_function_declared_typedef); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 448 | |
Steve Naroff | e39bfd0 | 2008-02-14 02:58:32 +0000 | [diff] [blame] | 449 | if (Tok.is(tok::l_brace)) { |
| 450 | // This recovery skips the entire function body. It would be nice |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 451 | // to simply call ParseFunctionDefintion() below, however Sema |
Steve Naroff | e39bfd0 | 2008-02-14 02:58:32 +0000 | [diff] [blame] | 452 | // assumes the declarator represents a function, not a typedef. |
| 453 | ConsumeBrace(); |
| 454 | SkipUntil(tok::r_brace, true); |
| 455 | } else { |
| 456 | SkipUntil(tok::semi); |
| 457 | } |
| 458 | return 0; |
| 459 | } |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 460 | return ParseFunctionDefinition(DeclaratorInfo); |
| 461 | } else { |
| 462 | if (DeclaratorInfo.isFunctionDeclarator()) |
| 463 | Diag(Tok, diag::err_expected_fn_body); |
| 464 | else |
| 465 | Diag(Tok, diag::err_expected_after_declarator); |
| 466 | SkipUntil(tok::semi); |
| 467 | return 0; |
| 468 | } |
| 469 | |
| 470 | // Parse the init-declarator-list for a normal declaration. |
| 471 | return ParseInitDeclaratorListAfterFirstDeclarator(DeclaratorInfo); |
| 472 | } |
| 473 | |
| 474 | /// ParseFunctionDefinition - We parsed and verified that the specified |
| 475 | /// Declarator is well formed. If this is a K&R-style function, read the |
| 476 | /// parameters declaration-list, then start the compound-statement. |
| 477 | /// |
Chris Lattner | a798ebc | 2008-04-05 05:52:15 +0000 | [diff] [blame] | 478 | /// function-definition: [C99 6.9.1] |
| 479 | /// decl-specs declarator declaration-list[opt] compound-statement |
| 480 | /// [C90] function-definition: [C99 6.7.1] - implicit int result |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 481 | /// [C90] decl-specs[opt] declarator declaration-list[opt] compound-statement |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 482 | /// |
| 483 | Parser::DeclTy *Parser::ParseFunctionDefinition(Declarator &D) { |
| 484 | const DeclaratorChunk &FnTypeInfo = D.getTypeObject(0); |
| 485 | assert(FnTypeInfo.Kind == DeclaratorChunk::Function && |
| 486 | "This isn't a function declarator!"); |
| 487 | const DeclaratorChunk::FunctionTypeInfo &FTI = FnTypeInfo.Fun; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 488 | |
Chris Lattner | a798ebc | 2008-04-05 05:52:15 +0000 | [diff] [blame] | 489 | // If this is C90 and the declspecs were completely missing, fudge in an |
| 490 | // implicit int. We do this here because this is the only place where |
| 491 | // declaration-specifiers are completely optional in the grammar. |
Chris Lattner | d658b56 | 2008-04-05 06:32:51 +0000 | [diff] [blame] | 492 | if (getLang().ImplicitInt && D.getDeclSpec().getParsedSpecifiers() == 0) { |
Chris Lattner | a798ebc | 2008-04-05 05:52:15 +0000 | [diff] [blame] | 493 | const char *PrevSpec; |
Chris Lattner | 985abd9 | 2008-06-26 06:49:43 +0000 | [diff] [blame] | 494 | D.getMutableDeclSpec().SetTypeSpecType(DeclSpec::TST_int, D.getIdentifierLoc(), |
Chris Lattner | a798ebc | 2008-04-05 05:52:15 +0000 | [diff] [blame] | 495 | PrevSpec); |
| 496 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 497 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 498 | // If this declaration was formed with a K&R-style identifier list for the |
| 499 | // arguments, parse declarations for all of the args next. |
| 500 | // int foo(a,b) int a; float b; {} |
| 501 | if (!FTI.hasPrototype && FTI.NumArgs != 0) |
| 502 | ParseKNRParamDeclarations(D); |
| 503 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 504 | // We should have an opening brace now. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 505 | if (Tok.isNot(tok::l_brace)) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 506 | Diag(Tok, diag::err_expected_fn_body); |
| 507 | |
| 508 | // Skip over garbage, until we get to '{'. Don't eat the '{'. |
| 509 | SkipUntil(tok::l_brace, true, true); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 510 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 511 | // If we didn't find the '{', bail out. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 512 | if (Tok.isNot(tok::l_brace)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 513 | return 0; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 514 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 515 | |
Chris Lattner | b652cea | 2007-10-09 17:14:05 +0000 | [diff] [blame] | 516 | SourceLocation BraceLoc = Tok.getLocation(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 517 | |
Chris Lattner | b652cea | 2007-10-09 17:14:05 +0000 | [diff] [blame] | 518 | // Enter a scope for the function body. |
| 519 | EnterScope(Scope::FnScope|Scope::DeclScope); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 520 | |
Chris Lattner | b652cea | 2007-10-09 17:14:05 +0000 | [diff] [blame] | 521 | // Tell the actions module that we have entered a function definition with the |
| 522 | // specified Declarator for the function. |
| 523 | DeclTy *Res = Actions.ActOnStartOfFunctionDef(CurScope, D); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 524 | |
| 525 | return ParseFunctionStatementBody(Res, BraceLoc, BraceLoc); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 526 | } |
| 527 | |
| 528 | /// ParseKNRParamDeclarations - Parse 'declaration-list[opt]' which provides |
| 529 | /// types for a function with a K&R-style identifier list for arguments. |
| 530 | void Parser::ParseKNRParamDeclarations(Declarator &D) { |
| 531 | // We know that the top-level of this declarator is a function. |
| 532 | DeclaratorChunk::FunctionTypeInfo &FTI = D.getTypeObject(0).Fun; |
| 533 | |
Chris Lattner | 0442108 | 2008-04-08 04:40:51 +0000 | [diff] [blame] | 534 | // Enter function-declaration scope, limiting any declarators to the |
| 535 | // function prototype scope, including parameter declarators. |
Eli Friedman | 6e33dd5 | 2008-05-20 09:10:20 +0000 | [diff] [blame] | 536 | EnterScope(Scope::FnScope|Scope::DeclScope); |
Chris Lattner | 0442108 | 2008-04-08 04:40:51 +0000 | [diff] [blame] | 537 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 538 | // Read all the argument declarations. |
| 539 | while (isDeclarationSpecifier()) { |
| 540 | SourceLocation DSStart = Tok.getLocation(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 541 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 542 | // Parse the common declaration-specifiers piece. |
| 543 | DeclSpec DS; |
| 544 | ParseDeclarationSpecifiers(DS); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 545 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 546 | // C99 6.9.1p6: 'each declaration in the declaration list shall have at |
| 547 | // least one declarator'. |
| 548 | // NOTE: GCC just makes this an ext-warn. It's not clear what it does with |
| 549 | // the declarations though. It's trivial to ignore them, really hard to do |
| 550 | // anything else with them. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 551 | if (Tok.is(tok::semi)) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 552 | Diag(DSStart, diag::err_declaration_does_not_declare_param); |
| 553 | ConsumeToken(); |
| 554 | continue; |
| 555 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 556 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 557 | // C99 6.9.1p6: Declarations shall contain no storage-class specifiers other |
| 558 | // than register. |
| 559 | if (DS.getStorageClassSpec() != DeclSpec::SCS_unspecified && |
| 560 | DS.getStorageClassSpec() != DeclSpec::SCS_register) { |
| 561 | Diag(DS.getStorageClassSpecLoc(), |
| 562 | diag::err_invalid_storage_class_in_func_decl); |
| 563 | DS.ClearStorageClassSpecs(); |
| 564 | } |
| 565 | if (DS.isThreadSpecified()) { |
| 566 | Diag(DS.getThreadSpecLoc(), |
| 567 | diag::err_invalid_storage_class_in_func_decl); |
| 568 | DS.ClearStorageClassSpecs(); |
| 569 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 570 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 571 | // Parse the first declarator attached to this declspec. |
| 572 | Declarator ParmDeclarator(DS, Declarator::KNRTypeListContext); |
| 573 | ParseDeclarator(ParmDeclarator); |
| 574 | |
| 575 | // Handle the full declarator list. |
| 576 | while (1) { |
| 577 | DeclTy *AttrList; |
| 578 | // If attributes are present, parse them. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 579 | if (Tok.is(tok::kw___attribute)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 580 | // FIXME: attach attributes too. |
| 581 | AttrList = ParseAttributes(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 582 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 583 | // Ask the actions module to compute the type for this declarator. |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 584 | Action::DeclTy *Param = |
Chris Lattner | 0442108 | 2008-04-08 04:40:51 +0000 | [diff] [blame] | 585 | Actions.ActOnParamDeclarator(CurScope, ParmDeclarator); |
Steve Naroff | 2bd42fa | 2007-09-10 20:51:04 +0000 | [diff] [blame] | 586 | |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 587 | if (Param && |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 588 | // A missing identifier has already been diagnosed. |
| 589 | ParmDeclarator.getIdentifier()) { |
| 590 | |
| 591 | // Scan the argument list looking for the correct param to apply this |
| 592 | // type. |
| 593 | for (unsigned i = 0; ; ++i) { |
| 594 | // C99 6.9.1p6: those declarators shall declare only identifiers from |
| 595 | // the identifier list. |
| 596 | if (i == FTI.NumArgs) { |
| 597 | Diag(ParmDeclarator.getIdentifierLoc(), diag::err_no_matching_param, |
| 598 | ParmDeclarator.getIdentifier()->getName()); |
| 599 | break; |
| 600 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 601 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 602 | if (FTI.ArgInfo[i].Ident == ParmDeclarator.getIdentifier()) { |
| 603 | // Reject redefinitions of parameters. |
Chris Lattner | 0442108 | 2008-04-08 04:40:51 +0000 | [diff] [blame] | 604 | if (FTI.ArgInfo[i].Param) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 605 | Diag(ParmDeclarator.getIdentifierLoc(), |
| 606 | diag::err_param_redefinition, |
| 607 | ParmDeclarator.getIdentifier()->getName()); |
| 608 | } else { |
Chris Lattner | 0442108 | 2008-04-08 04:40:51 +0000 | [diff] [blame] | 609 | FTI.ArgInfo[i].Param = Param; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 610 | } |
| 611 | break; |
| 612 | } |
| 613 | } |
| 614 | } |
| 615 | |
| 616 | // If we don't have a comma, it is either the end of the list (a ';') or |
| 617 | // an error, bail out. |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 618 | if (Tok.isNot(tok::comma)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 619 | break; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 620 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 621 | // Consume the comma. |
| 622 | ConsumeToken(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 623 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 624 | // Parse the next declarator. |
| 625 | ParmDeclarator.clear(); |
| 626 | ParseDeclarator(ParmDeclarator); |
| 627 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 628 | |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 629 | if (Tok.is(tok::semi)) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 630 | ConsumeToken(); |
| 631 | } else { |
| 632 | Diag(Tok, diag::err_parse_error); |
| 633 | // Skip to end of block or statement |
| 634 | SkipUntil(tok::semi, true); |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 635 | if (Tok.is(tok::semi)) |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 636 | ConsumeToken(); |
| 637 | } |
| 638 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 639 | |
Chris Lattner | 0442108 | 2008-04-08 04:40:51 +0000 | [diff] [blame] | 640 | // Leave prototype scope. |
| 641 | ExitScope(); |
| 642 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 643 | // The actions module must verify that all arguments were declared. |
| 644 | } |
| 645 | |
| 646 | |
| 647 | /// ParseAsmStringLiteral - This is just a normal string-literal, but is not |
| 648 | /// allowed to be a wide string, and is not subject to character translation. |
| 649 | /// |
| 650 | /// [GNU] asm-string-literal: |
| 651 | /// string-literal |
| 652 | /// |
Anders Carlsson | 6a0ef4b | 2007-11-20 19:21:03 +0000 | [diff] [blame] | 653 | Parser::ExprResult Parser::ParseAsmStringLiteral() { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 654 | if (!isTokenStringLiteral()) { |
| 655 | Diag(Tok, diag::err_expected_string_literal); |
Anders Carlsson | 6a0ef4b | 2007-11-20 19:21:03 +0000 | [diff] [blame] | 656 | return true; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 657 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 658 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 659 | ExprResult Res = ParseStringLiteralExpression(); |
Anders Carlsson | 6a0ef4b | 2007-11-20 19:21:03 +0000 | [diff] [blame] | 660 | if (Res.isInvalid) return true; |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 661 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 662 | // TODO: Diagnose: wide string literal in 'asm' |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 663 | |
Anders Carlsson | 6a0ef4b | 2007-11-20 19:21:03 +0000 | [diff] [blame] | 664 | return Res; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 665 | } |
| 666 | |
| 667 | /// ParseSimpleAsm |
| 668 | /// |
| 669 | /// [GNU] simple-asm-expr: |
| 670 | /// 'asm' '(' asm-string-literal ')' |
| 671 | /// |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 672 | Parser::ExprResult Parser::ParseSimpleAsm() { |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 673 | assert(Tok.is(tok::kw_asm) && "Not an asm!"); |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 674 | SourceLocation Loc = ConsumeToken(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 675 | |
Chris Lattner | 0007322 | 2007-10-09 17:23:58 +0000 | [diff] [blame] | 676 | if (Tok.isNot(tok::l_paren)) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 677 | Diag(Tok, diag::err_expected_lparen_after, "asm"); |
Chris Lattner | aec3a1e | 2008-05-27 23:32:43 +0000 | [diff] [blame] | 678 | return true; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 679 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 680 | |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 681 | ConsumeParen(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 682 | |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 683 | ExprResult Result = ParseAsmStringLiteral(); |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 684 | |
Daniel Dunbar | a80f874 | 2008-08-05 01:35:17 +0000 | [diff] [blame] | 685 | if (Result.isInvalid) { |
| 686 | SkipUntil(tok::r_paren); |
| 687 | } else { |
| 688 | MatchRHSPunctuation(tok::r_paren, Loc); |
| 689 | } |
Mike Stump | a6f0177 | 2008-06-19 19:28:49 +0000 | [diff] [blame] | 690 | |
Anders Carlsson | dfab6cb | 2008-02-08 00:33:21 +0000 | [diff] [blame] | 691 | return Result; |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 692 | } |
| 693 | |