blob: 3e9606e467cd4fec1ee0950286b5a619a7d04b28 [file] [log] [blame]
Chad Rosier3d45a772012-08-17 21:27:25 +00001//===--- SemaStmtAsm.cpp - Semantic Analysis for Asm Statements -----------===//
Chad Rosier4b5e48d2012-08-17 21:19:40 +00002//
3// The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9//
10// This file implements semantic analysis for inline asm statements.
11//
12//===----------------------------------------------------------------------===//
13
14#include "clang/Sema/SemaInternal.h"
Chad Rosier802f9372012-10-25 21:49:22 +000015#include "clang/AST/RecordLayout.h"
Chad Rosier4b5e48d2012-08-17 21:19:40 +000016#include "clang/AST/TypeLoc.h"
Chad Rosier4b5e48d2012-08-17 21:19:40 +000017#include "clang/Basic/TargetInfo.h"
Chandler Carruth55fc8732012-12-04 09:13:33 +000018#include "clang/Lex/Preprocessor.h"
19#include "clang/Sema/Initialization.h"
20#include "clang/Sema/Lookup.h"
21#include "clang/Sema/Scope.h"
22#include "clang/Sema/ScopeInfo.h"
Chad Rosier4b5e48d2012-08-17 21:19:40 +000023#include "llvm/ADT/ArrayRef.h"
24#include "llvm/ADT/BitVector.h"
25#include "llvm/ADT/SmallString.h"
26#include "llvm/MC/MCAsmInfo.h"
27#include "llvm/MC/MCContext.h"
Chad Rosier4b5e48d2012-08-17 21:19:40 +000028#include "llvm/MC/MCObjectFileInfo.h"
Chandler Carruth55fc8732012-12-04 09:13:33 +000029#include "llvm/MC/MCParser/MCAsmParser.h"
Chad Rosier4b5e48d2012-08-17 21:19:40 +000030#include "llvm/MC/MCRegisterInfo.h"
31#include "llvm/MC/MCStreamer.h"
32#include "llvm/MC/MCSubtargetInfo.h"
33#include "llvm/MC/MCTargetAsmParser.h"
Chad Rosier4b5e48d2012-08-17 21:19:40 +000034#include "llvm/Support/SourceMgr.h"
35#include "llvm/Support/TargetRegistry.h"
36#include "llvm/Support/TargetSelect.h"
37using namespace clang;
38using namespace sema;
39
40/// CheckAsmLValue - GNU C has an extremely ugly extension whereby they silently
41/// ignore "noop" casts in places where an lvalue is required by an inline asm.
42/// We emulate this behavior when -fheinous-gnu-extensions is specified, but
43/// provide a strong guidance to not use it.
44///
45/// This method checks to see if the argument is an acceptable l-value and
46/// returns false if it is a case we can handle.
47static bool CheckAsmLValue(const Expr *E, Sema &S) {
48 // Type dependent expressions will be checked during instantiation.
49 if (E->isTypeDependent())
50 return false;
51
52 if (E->isLValue())
53 return false; // Cool, this is an lvalue.
54
55 // Okay, this is not an lvalue, but perhaps it is the result of a cast that we
56 // are supposed to allow.
57 const Expr *E2 = E->IgnoreParenNoopCasts(S.Context);
58 if (E != E2 && E2->isLValue()) {
59 if (!S.getLangOpts().HeinousExtensions)
60 S.Diag(E2->getLocStart(), diag::err_invalid_asm_cast_lvalue)
61 << E->getSourceRange();
62 else
63 S.Diag(E2->getLocStart(), diag::warn_invalid_asm_cast_lvalue)
64 << E->getSourceRange();
65 // Accept, even if we emitted an error diagnostic.
66 return false;
67 }
68
69 // None of the above, just randomly invalid non-lvalue.
70 return true;
71}
72
73/// isOperandMentioned - Return true if the specified operand # is mentioned
74/// anywhere in the decomposed asm string.
75static bool isOperandMentioned(unsigned OpNo,
Chad Rosierdf5faf52012-08-25 00:11:56 +000076 ArrayRef<GCCAsmStmt::AsmStringPiece> AsmStrPieces) {
Chad Rosier4b5e48d2012-08-17 21:19:40 +000077 for (unsigned p = 0, e = AsmStrPieces.size(); p != e; ++p) {
Chad Rosierdf5faf52012-08-25 00:11:56 +000078 const GCCAsmStmt::AsmStringPiece &Piece = AsmStrPieces[p];
Chad Rosier4b5e48d2012-08-17 21:19:40 +000079 if (!Piece.isOperand()) continue;
80
81 // If this is a reference to the input and if the input was the smaller
82 // one, then we have to reject this asm.
83 if (Piece.getOperandNo() == OpNo)
84 return true;
85 }
86 return false;
87}
88
Chad Rosierdf5faf52012-08-25 00:11:56 +000089StmtResult Sema::ActOnGCCAsmStmt(SourceLocation AsmLoc, bool IsSimple,
90 bool IsVolatile, unsigned NumOutputs,
91 unsigned NumInputs, IdentifierInfo **Names,
92 MultiExprArg constraints, MultiExprArg exprs,
93 Expr *asmString, MultiExprArg clobbers,
94 SourceLocation RParenLoc) {
Chad Rosier4b5e48d2012-08-17 21:19:40 +000095 unsigned NumClobbers = clobbers.size();
96 StringLiteral **Constraints =
Benjamin Kramer5354e772012-08-23 23:38:35 +000097 reinterpret_cast<StringLiteral**>(constraints.data());
98 Expr **Exprs = exprs.data();
Chad Rosier4b5e48d2012-08-17 21:19:40 +000099 StringLiteral *AsmString = cast<StringLiteral>(asmString);
Benjamin Kramer5354e772012-08-23 23:38:35 +0000100 StringLiteral **Clobbers = reinterpret_cast<StringLiteral**>(clobbers.data());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000101
102 SmallVector<TargetInfo::ConstraintInfo, 4> OutputConstraintInfos;
103
104 // The parser verifies that there is a string literal here.
105 if (!AsmString->isAscii())
106 return StmtError(Diag(AsmString->getLocStart(),diag::err_asm_wide_character)
107 << AsmString->getSourceRange());
108
109 for (unsigned i = 0; i != NumOutputs; i++) {
110 StringLiteral *Literal = Constraints[i];
111 if (!Literal->isAscii())
112 return StmtError(Diag(Literal->getLocStart(),diag::err_asm_wide_character)
113 << Literal->getSourceRange());
114
115 StringRef OutputName;
116 if (Names[i])
117 OutputName = Names[i]->getName();
118
119 TargetInfo::ConstraintInfo Info(Literal->getString(), OutputName);
120 if (!Context.getTargetInfo().validateOutputConstraint(Info))
121 return StmtError(Diag(Literal->getLocStart(),
122 diag::err_asm_invalid_output_constraint)
123 << Info.getConstraintStr());
124
125 // Check that the output exprs are valid lvalues.
126 Expr *OutputExpr = Exprs[i];
127 if (CheckAsmLValue(OutputExpr, *this)) {
128 return StmtError(Diag(OutputExpr->getLocStart(),
129 diag::err_asm_invalid_lvalue_in_output)
130 << OutputExpr->getSourceRange());
131 }
132
133 OutputConstraintInfos.push_back(Info);
134 }
135
136 SmallVector<TargetInfo::ConstraintInfo, 4> InputConstraintInfos;
137
138 for (unsigned i = NumOutputs, e = NumOutputs + NumInputs; i != e; i++) {
139 StringLiteral *Literal = Constraints[i];
140 if (!Literal->isAscii())
141 return StmtError(Diag(Literal->getLocStart(),diag::err_asm_wide_character)
142 << Literal->getSourceRange());
143
144 StringRef InputName;
145 if (Names[i])
146 InputName = Names[i]->getName();
147
148 TargetInfo::ConstraintInfo Info(Literal->getString(), InputName);
149 if (!Context.getTargetInfo().validateInputConstraint(OutputConstraintInfos.data(),
150 NumOutputs, Info)) {
151 return StmtError(Diag(Literal->getLocStart(),
152 diag::err_asm_invalid_input_constraint)
153 << Info.getConstraintStr());
154 }
155
156 Expr *InputExpr = Exprs[i];
157
158 // Only allow void types for memory constraints.
159 if (Info.allowsMemory() && !Info.allowsRegister()) {
160 if (CheckAsmLValue(InputExpr, *this))
161 return StmtError(Diag(InputExpr->getLocStart(),
162 diag::err_asm_invalid_lvalue_in_input)
163 << Info.getConstraintStr()
164 << InputExpr->getSourceRange());
165 }
166
167 if (Info.allowsRegister()) {
168 if (InputExpr->getType()->isVoidType()) {
169 return StmtError(Diag(InputExpr->getLocStart(),
170 diag::err_asm_invalid_type_in_input)
171 << InputExpr->getType() << Info.getConstraintStr()
172 << InputExpr->getSourceRange());
173 }
174 }
175
176 ExprResult Result = DefaultFunctionArrayLvalueConversion(Exprs[i]);
177 if (Result.isInvalid())
178 return StmtError();
179
180 Exprs[i] = Result.take();
181 InputConstraintInfos.push_back(Info);
Bill Wendling68fd6082012-11-12 06:42:51 +0000182
183 const Type *Ty = Exprs[i]->getType().getTypePtr();
Eric Christopher6ceb3772012-11-12 23:13:34 +0000184 if (Ty->isDependentType() || Ty->isIncompleteType())
185 continue;
186
Bill Wendling68fd6082012-11-12 06:42:51 +0000187 unsigned Size = Context.getTypeSize(Ty);
188 if (!Context.getTargetInfo().validateInputSize(Literal->getString(),
189 Size))
190 return StmtError(Diag(InputExpr->getLocStart(),
191 diag::err_asm_invalid_input_size)
192 << Info.getConstraintStr());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000193 }
194
195 // Check that the clobbers are valid.
196 for (unsigned i = 0; i != NumClobbers; i++) {
197 StringLiteral *Literal = Clobbers[i];
198 if (!Literal->isAscii())
199 return StmtError(Diag(Literal->getLocStart(),diag::err_asm_wide_character)
200 << Literal->getSourceRange());
201
202 StringRef Clobber = Literal->getString();
203
204 if (!Context.getTargetInfo().isValidClobber(Clobber))
205 return StmtError(Diag(Literal->getLocStart(),
206 diag::err_asm_unknown_register_name) << Clobber);
207 }
208
Chad Rosierdf5faf52012-08-25 00:11:56 +0000209 GCCAsmStmt *NS =
210 new (Context) GCCAsmStmt(Context, AsmLoc, IsSimple, IsVolatile, NumOutputs,
211 NumInputs, Names, Constraints, Exprs, AsmString,
212 NumClobbers, Clobbers, RParenLoc);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000213 // Validate the asm string, ensuring it makes sense given the operands we
214 // have.
Chad Rosierdf5faf52012-08-25 00:11:56 +0000215 SmallVector<GCCAsmStmt::AsmStringPiece, 8> Pieces;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000216 unsigned DiagOffs;
217 if (unsigned DiagID = NS->AnalyzeAsmString(Pieces, Context, DiagOffs)) {
218 Diag(getLocationOfStringLiteralByte(AsmString, DiagOffs), DiagID)
219 << AsmString->getSourceRange();
220 return StmtError();
221 }
222
Bill Wendling50d46ca2012-10-25 23:28:48 +0000223 // Validate constraints and modifiers.
224 for (unsigned i = 0, e = Pieces.size(); i != e; ++i) {
225 GCCAsmStmt::AsmStringPiece &Piece = Pieces[i];
226 if (!Piece.isOperand()) continue;
227
228 // Look for the correct constraint index.
229 unsigned Idx = 0;
230 unsigned ConstraintIdx = 0;
231 for (unsigned i = 0, e = NS->getNumOutputs(); i != e; ++i, ++ConstraintIdx) {
232 TargetInfo::ConstraintInfo &Info = OutputConstraintInfos[i];
233 if (Idx == Piece.getOperandNo())
234 break;
235 ++Idx;
236
237 if (Info.isReadWrite()) {
238 if (Idx == Piece.getOperandNo())
239 break;
240 ++Idx;
241 }
242 }
243
244 for (unsigned i = 0, e = NS->getNumInputs(); i != e; ++i, ++ConstraintIdx) {
245 TargetInfo::ConstraintInfo &Info = InputConstraintInfos[i];
246 if (Idx == Piece.getOperandNo())
247 break;
248 ++Idx;
249
250 if (Info.isReadWrite()) {
251 if (Idx == Piece.getOperandNo())
252 break;
253 ++Idx;
254 }
255 }
256
257 // Now that we have the right indexes go ahead and check.
258 StringLiteral *Literal = Constraints[ConstraintIdx];
259 const Type *Ty = Exprs[ConstraintIdx]->getType().getTypePtr();
260 if (Ty->isDependentType() || Ty->isIncompleteType())
261 continue;
262
263 unsigned Size = Context.getTypeSize(Ty);
264 if (!Context.getTargetInfo()
265 .validateConstraintModifier(Literal->getString(), Piece.getModifier(),
266 Size))
267 Diag(Exprs[ConstraintIdx]->getLocStart(),
268 diag::warn_asm_mismatched_size_modifier);
269 }
270
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000271 // Validate tied input operands for type mismatches.
272 for (unsigned i = 0, e = InputConstraintInfos.size(); i != e; ++i) {
273 TargetInfo::ConstraintInfo &Info = InputConstraintInfos[i];
274
275 // If this is a tied constraint, verify that the output and input have
276 // either exactly the same type, or that they are int/ptr operands with the
277 // same size (int/long, int*/long, are ok etc).
278 if (!Info.hasTiedOperand()) continue;
279
280 unsigned TiedTo = Info.getTiedOperand();
281 unsigned InputOpNo = i+NumOutputs;
282 Expr *OutputExpr = Exprs[TiedTo];
283 Expr *InputExpr = Exprs[InputOpNo];
284
285 if (OutputExpr->isTypeDependent() || InputExpr->isTypeDependent())
286 continue;
287
288 QualType InTy = InputExpr->getType();
289 QualType OutTy = OutputExpr->getType();
290 if (Context.hasSameType(InTy, OutTy))
291 continue; // All types can be tied to themselves.
292
293 // Decide if the input and output are in the same domain (integer/ptr or
294 // floating point.
295 enum AsmDomain {
296 AD_Int, AD_FP, AD_Other
297 } InputDomain, OutputDomain;
298
299 if (InTy->isIntegerType() || InTy->isPointerType())
300 InputDomain = AD_Int;
301 else if (InTy->isRealFloatingType())
302 InputDomain = AD_FP;
303 else
304 InputDomain = AD_Other;
305
306 if (OutTy->isIntegerType() || OutTy->isPointerType())
307 OutputDomain = AD_Int;
308 else if (OutTy->isRealFloatingType())
309 OutputDomain = AD_FP;
310 else
311 OutputDomain = AD_Other;
312
313 // They are ok if they are the same size and in the same domain. This
314 // allows tying things like:
315 // void* to int*
316 // void* to int if they are the same size.
317 // double to long double if they are the same size.
318 //
319 uint64_t OutSize = Context.getTypeSize(OutTy);
320 uint64_t InSize = Context.getTypeSize(InTy);
321 if (OutSize == InSize && InputDomain == OutputDomain &&
322 InputDomain != AD_Other)
323 continue;
324
325 // If the smaller input/output operand is not mentioned in the asm string,
326 // then we can promote the smaller one to a larger input and the asm string
327 // won't notice.
328 bool SmallerValueMentioned = false;
329
330 // If this is a reference to the input and if the input was the smaller
331 // one, then we have to reject this asm.
332 if (isOperandMentioned(InputOpNo, Pieces)) {
333 // This is a use in the asm string of the smaller operand. Since we
334 // codegen this by promoting to a wider value, the asm will get printed
335 // "wrong".
336 SmallerValueMentioned |= InSize < OutSize;
337 }
338 if (isOperandMentioned(TiedTo, Pieces)) {
339 // If this is a reference to the output, and if the output is the larger
340 // value, then it's ok because we'll promote the input to the larger type.
341 SmallerValueMentioned |= OutSize < InSize;
342 }
343
344 // If the smaller value wasn't mentioned in the asm string, and if the
345 // output was a register, just extend the shorter one to the size of the
346 // larger one.
347 if (!SmallerValueMentioned && InputDomain != AD_Other &&
348 OutputConstraintInfos[TiedTo].allowsRegister())
349 continue;
350
351 // Either both of the operands were mentioned or the smaller one was
352 // mentioned. One more special case that we'll allow: if the tied input is
353 // integer, unmentioned, and is a constant, then we'll allow truncating it
354 // down to the size of the destination.
355 if (InputDomain == AD_Int && OutputDomain == AD_Int &&
356 !isOperandMentioned(InputOpNo, Pieces) &&
357 InputExpr->isEvaluatable(Context)) {
358 CastKind castKind =
359 (OutTy->isBooleanType() ? CK_IntegralToBoolean : CK_IntegralCast);
360 InputExpr = ImpCastExprToType(InputExpr, OutTy, castKind).take();
361 Exprs[InputOpNo] = InputExpr;
362 NS->setInputExpr(i, InputExpr);
363 continue;
364 }
365
366 Diag(InputExpr->getLocStart(),
367 diag::err_asm_tying_incompatible_types)
368 << InTy << OutTy << OutputExpr->getSourceRange()
369 << InputExpr->getSourceRange();
370 return StmtError();
371 }
372
373 return Owned(NS);
374}
375
Chad Rosier358ab762012-08-22 21:08:06 +0000376// getSpelling - Get the spelling of the AsmTok token.
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000377static StringRef getSpelling(Sema &SemaRef, Token AsmTok) {
378 StringRef Asm;
379 SmallString<512> TokenBuf;
380 TokenBuf.resize(512);
381 bool StringInvalid = false;
382 Asm = SemaRef.PP.getSpelling(AsmTok, TokenBuf, &StringInvalid);
383 assert (!StringInvalid && "Expected valid string!");
384 return Asm;
385}
386
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000387// Build the inline assembly string. Returns true on error.
388static bool buildMSAsmString(Sema &SemaRef,
389 SourceLocation AsmLoc,
390 ArrayRef<Token> AsmToks,
Dmitri Gribenkocfa88f82013-01-12 19:30:44 +0000391 SmallVectorImpl<unsigned> &TokOffsets,
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000392 std::string &AsmString) {
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000393 assert (!AsmToks.empty() && "Didn't expect an empty AsmToks!");
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000394
395 SmallString<512> Asm;
396 for (unsigned i = 0, e = AsmToks.size(); i < e; ++i) {
Bob Wilson40d39e32012-09-24 19:57:55 +0000397 bool isNewAsm = ((i == 0) ||
398 AsmToks[i].isAtStartOfLine() ||
399 AsmToks[i].is(tok::kw_asm));
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000400 if (isNewAsm) {
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000401 if (i != 0)
402 Asm += "\n\t";
403
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000404 if (AsmToks[i].is(tok::kw_asm)) {
405 i++; // Skip __asm
Bob Wilsonb0f6b9c2012-09-24 19:57:59 +0000406 if (i == e) {
407 SemaRef.Diag(AsmLoc, diag::err_asm_empty);
408 return true;
409 }
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000410
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000411 }
412 }
413
Chad Rosierb55e6022012-09-13 00:06:55 +0000414 if (i && AsmToks[i].hasLeadingSpace() && !isNewAsm)
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000415 Asm += ' ';
Chad Rosier4de97162012-09-11 00:51:28 +0000416
417 StringRef Spelling = getSpelling(SemaRef, AsmToks[i]);
418 Asm += Spelling;
Eli Friedman5f1385b2012-10-23 02:43:30 +0000419 TokOffsets.push_back(Asm.size());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000420 }
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000421 AsmString = Asm.str();
Bob Wilsonb0f6b9c2012-09-24 19:57:59 +0000422 return false;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000423}
424
Benjamin Kramerc6f84cf2012-10-20 13:02:06 +0000425namespace {
426
Chad Rosier7fd00b12012-10-18 15:49:40 +0000427class MCAsmParserSemaCallbackImpl : public llvm::MCAsmParserSemaCallback {
Eli Friedman5f1385b2012-10-23 02:43:30 +0000428 Sema &SemaRef;
429 SourceLocation AsmLoc;
430 ArrayRef<Token> AsmToks;
431 ArrayRef<unsigned> TokOffsets;
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000432
433public:
Eli Friedman5f1385b2012-10-23 02:43:30 +0000434 MCAsmParserSemaCallbackImpl(Sema &Ref, SourceLocation Loc,
435 ArrayRef<Token> Toks,
436 ArrayRef<unsigned> Offsets)
437 : SemaRef(Ref), AsmLoc(Loc), AsmToks(Toks), TokOffsets(Offsets) { }
Chad Rosier7fd00b12012-10-18 15:49:40 +0000438 ~MCAsmParserSemaCallbackImpl() {}
439
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000440 void *LookupInlineAsmIdentifier(StringRef Name, void *SrcLoc,
441 unsigned &Length, unsigned &Size,
442 unsigned &Type, bool &IsVarDecl){
Chad Rosier7fd00b12012-10-18 15:49:40 +0000443 SourceLocation Loc = SourceLocation::getFromPtrEncoding(SrcLoc);
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000444
445 NamedDecl *OpDecl = SemaRef.LookupInlineAsmIdentifier(Name, Loc, Length,
446 Size, Type,
Chad Rosier3973f282013-01-10 22:10:16 +0000447 IsVarDecl);
Chad Rosierd052ebf2012-10-18 19:39:37 +0000448 return static_cast<void *>(OpDecl);
Chad Rosier7fd00b12012-10-18 15:49:40 +0000449 }
Eli Friedman5f1385b2012-10-23 02:43:30 +0000450
Chad Rosier802f9372012-10-25 21:49:22 +0000451 bool LookupInlineAsmField(StringRef Base, StringRef Member,
452 unsigned &Offset) {
453 return SemaRef.LookupInlineAsmField(Base, Member, Offset, AsmLoc);
454 }
455
Eli Friedman5f1385b2012-10-23 02:43:30 +0000456 static void MSAsmDiagHandlerCallback(const llvm::SMDiagnostic &D,
457 void *Context) {
458 ((MCAsmParserSemaCallbackImpl*)Context)->MSAsmDiagHandler(D);
459 }
460 void MSAsmDiagHandler(const llvm::SMDiagnostic &D) {
461 // Compute an offset into the inline asm buffer.
462 // FIXME: This isn't right if .macro is involved (but hopefully, no
463 // real-world code does that).
464 const llvm::SourceMgr &LSM = *D.getSourceMgr();
465 const llvm::MemoryBuffer *LBuf =
466 LSM.getMemoryBuffer(LSM.FindBufferContainingLoc(D.getLoc()));
467 unsigned Offset = D.getLoc().getPointer() - LBuf->getBufferStart();
468
469 // Figure out which token that offset points into.
470 const unsigned *OffsetPtr =
471 std::lower_bound(TokOffsets.begin(), TokOffsets.end(), Offset);
472 unsigned TokIndex = OffsetPtr - TokOffsets.begin();
473
474 // If we come up with an answer which seems sane, use it; otherwise,
475 // just point at the __asm keyword.
476 // FIXME: Assert the answer is sane once we handle .macro correctly.
477 SourceLocation Loc = AsmLoc;
478 if (TokIndex < AsmToks.size()) {
479 const Token *Tok = &AsmToks[TokIndex];
480 Loc = Tok->getLocation();
481 Loc = Loc.getLocWithOffset(Offset - (*OffsetPtr - Tok->getLength()));
482 }
483 SemaRef.Diag(Loc, diag::err_inline_ms_asm_parsing) << D.getMessage();
484 }
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000485};
486
Benjamin Kramerc6f84cf2012-10-20 13:02:06 +0000487}
488
Chad Rosierc337d142012-10-18 20:27:06 +0000489NamedDecl *Sema::LookupInlineAsmIdentifier(StringRef Name, SourceLocation Loc,
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000490 unsigned &Length, unsigned &Size,
491 unsigned &Type, bool &IsVarDecl) {
492 Length = 1;
Chad Rosierc337d142012-10-18 20:27:06 +0000493 Size = 0;
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000494 Type = 0;
Chad Rosier3973f282013-01-10 22:10:16 +0000495 IsVarDecl = false;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000496 LookupResult Result(*this, &Context.Idents.get(Name), Loc,
497 Sema::LookupOrdinaryName);
498
499 if (!LookupName(Result, getCurScope())) {
500 // If we don't find anything, return null; the AsmParser will assume
501 // it is a label of some sort.
502 return 0;
503 }
504
505 if (!Result.isSingleResult()) {
506 // FIXME: Diagnose result.
507 return 0;
508 }
509
510 NamedDecl *ND = Result.getFoundDecl();
511 if (isa<VarDecl>(ND) || isa<FunctionDecl>(ND)) {
Chad Rosier3973f282013-01-10 22:10:16 +0000512 if (VarDecl *Var = dyn_cast<VarDecl>(ND)) {
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000513 Type = Context.getTypeInfo(Var->getType()).first;
514 QualType Ty = Var->getType();
515 if (Ty->isArrayType()) {
516 const ArrayType *ATy = Context.getAsArrayType(Ty);
517 Length = Type / Context.getTypeInfo(ATy->getElementType()).first;
518 Type /= Length; // Type is in terms of a single element.
519 }
520 Type /= 8; // Type is in terms of bits, but we want bytes.
521 Size = Length * Type;
Chad Rosier3973f282013-01-10 22:10:16 +0000522 IsVarDecl = true;
523 }
Chad Rosier7fd00b12012-10-18 15:49:40 +0000524 return ND;
525 }
526
527 // FIXME: Handle other kinds of results? (FieldDecl, etc.)
528 // FIXME: Diagnose if we find something we can't handle, like a typedef.
529 return 0;
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000530}
Chad Rosier2735df22012-08-22 19:18:30 +0000531
Chad Rosier802f9372012-10-25 21:49:22 +0000532bool Sema::LookupInlineAsmField(StringRef Base, StringRef Member,
533 unsigned &Offset, SourceLocation AsmLoc) {
534 Offset = 0;
535 LookupResult BaseResult(*this, &Context.Idents.get(Base), SourceLocation(),
536 LookupOrdinaryName);
537
538 if (!LookupName(BaseResult, getCurScope()))
539 return true;
540
541 if (!BaseResult.isSingleResult())
542 return true;
543
544 NamedDecl *FoundDecl = BaseResult.getFoundDecl();
545 const RecordType *RT = 0;
546 if (VarDecl *VD = dyn_cast<VarDecl>(FoundDecl)) {
547 RT = VD->getType()->getAs<RecordType>();
548 } else if (TypedefDecl *TD = dyn_cast<TypedefDecl>(FoundDecl)) {
549 RT = TD->getUnderlyingType()->getAs<RecordType>();
550 }
551 if (!RT)
552 return true;
553
554 if (RequireCompleteType(AsmLoc, QualType(RT, 0), 0))
555 return true;
556
557 LookupResult FieldResult(*this, &Context.Idents.get(Member), SourceLocation(),
558 LookupMemberName);
559
560 if (!LookupQualifiedName(FieldResult, RT->getDecl()))
561 return true;
562
563 // FIXME: Handle IndirectFieldDecl?
564 FieldDecl *FD = dyn_cast<FieldDecl>(FieldResult.getFoundDecl());
565 if (!FD)
566 return true;
567
568 const ASTRecordLayout &RL = Context.getASTRecordLayout(RT->getDecl());
569 unsigned i = FD->getFieldIndex();
570 CharUnits Result = Context.toCharUnitsFromBits(RL.getFieldOffset(i));
571 Offset = (unsigned)Result.getQuantity();
572
573 return false;
574}
575
Chad Rosierb55e6022012-09-13 00:06:55 +0000576StmtResult Sema::ActOnMSAsmStmt(SourceLocation AsmLoc, SourceLocation LBraceLoc,
577 ArrayRef<Token> AsmToks,SourceLocation EndLoc) {
Chad Rosiere54cba12012-10-16 21:55:39 +0000578 SmallVector<IdentifierInfo*, 4> Names;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000579 SmallVector<StringRef, 4> ConstraintRefs;
Chad Rosiere54cba12012-10-16 21:55:39 +0000580 SmallVector<Expr*, 4> Exprs;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000581 SmallVector<StringRef, 4> ClobberRefs;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000582
Chad Rosierae073782013-01-24 20:24:34 +0000583 llvm::Triple TheTriple = Context.getTargetInfo().getTriple();
584 llvm::Triple::ArchType ArchTy = TheTriple.getArch();
585 bool UnsupportedArch = ArchTy != llvm::Triple::x86 &&
586 ArchTy != llvm::Triple::x86_64;
587 if (UnsupportedArch)
588 Diag(AsmLoc, diag::err_msasm_unsupported_arch) << TheTriple.getArchName();
589
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000590 // Empty asm statements don't need to instantiate the AsmParser, etc.
Chad Rosierae073782013-01-24 20:24:34 +0000591 if (UnsupportedArch || AsmToks.empty()) {
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000592 StringRef EmptyAsmStr;
593 MSAsmStmt *NS =
594 new (Context) MSAsmStmt(Context, AsmLoc, LBraceLoc, /*IsSimple*/ true,
Chad Rosiere54cba12012-10-16 21:55:39 +0000595 /*IsVolatile*/ true, AsmToks, /*NumOutputs*/ 0,
Chad Rosier7fd00b12012-10-18 15:49:40 +0000596 /*NumInputs*/ 0, Names, ConstraintRefs, Exprs,
597 EmptyAsmStr, ClobberRefs, EndLoc);
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000598 return Owned(NS);
599 }
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000600
Chad Rosier7fd00b12012-10-18 15:49:40 +0000601 std::string AsmString;
Dmitri Gribenkocfa88f82013-01-12 19:30:44 +0000602 SmallVector<unsigned, 8> TokOffsets;
Eli Friedman5f1385b2012-10-23 02:43:30 +0000603 if (buildMSAsmString(*this, AsmLoc, AsmToks, TokOffsets, AsmString))
Bob Wilsonb0f6b9c2012-09-24 19:57:59 +0000604 return StmtError();
Chad Rosier38c71d32012-08-21 21:56:39 +0000605
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000606 // Get the target specific parser.
607 std::string Error;
Chad Rosierae073782013-01-24 20:24:34 +0000608 const std::string &TT = TheTriple.getTriple();
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000609 const llvm::Target *TheTarget(llvm::TargetRegistry::lookupTarget(TT, Error));
610
611 OwningPtr<llvm::MCAsmInfo> MAI(TheTarget->createMCAsmInfo(TT));
612 OwningPtr<llvm::MCRegisterInfo> MRI(TheTarget->createMCRegInfo(TT));
613 OwningPtr<llvm::MCObjectFileInfo> MOFI(new llvm::MCObjectFileInfo());
614 OwningPtr<llvm::MCSubtargetInfo>
615 STI(TheTarget->createMCSubtargetInfo(TT, "", ""));
616
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000617 llvm::SourceMgr SrcMgr;
618 llvm::MCContext Ctx(*MAI, *MRI, MOFI.get(), &SrcMgr);
619 llvm::MemoryBuffer *Buffer =
620 llvm::MemoryBuffer::getMemBuffer(AsmString, "<inline asm>");
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000621
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000622 // Tell SrcMgr about this buffer, which is what the parser will pick up.
623 SrcMgr.AddNewSourceBuffer(Buffer, llvm::SMLoc());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000624
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000625 OwningPtr<llvm::MCStreamer> Str(createNullStreamer(Ctx));
626 OwningPtr<llvm::MCAsmParser>
627 Parser(createMCAsmParser(SrcMgr, Ctx, *Str.get(), *MAI));
628 OwningPtr<llvm::MCTargetAsmParser>
629 TargetParser(TheTarget->createMCAsmParser(*STI, *Parser));
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000630
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000631 // Get the instruction descriptor.
632 const llvm::MCInstrInfo *MII = TheTarget->createMCInstrInfo();
633 llvm::MCInstPrinter *IP =
634 TheTarget->createMCInstPrinter(1, *MAI, *MII, *MRI, *STI);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000635
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000636 // Change to the Intel dialect.
637 Parser->setAssemblerDialect(1);
638 Parser->setTargetParser(*TargetParser.get());
639 Parser->setParsingInlineAsm(true);
Chad Rosiercf81cd22012-10-19 17:58:45 +0000640 TargetParser->setParsingInlineAsm(true);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000641
Eli Friedman5f1385b2012-10-23 02:43:30 +0000642 MCAsmParserSemaCallbackImpl MCAPSI(*this, AsmLoc, AsmToks, TokOffsets);
Chad Rosier793c4052012-10-19 20:36:37 +0000643 TargetParser->setSemaCallback(&MCAPSI);
Eli Friedman5f1385b2012-10-23 02:43:30 +0000644 SrcMgr.setDiagHandler(MCAsmParserSemaCallbackImpl::MSAsmDiagHandlerCallback,
645 &MCAPSI);
Chad Rosier793c4052012-10-19 20:36:37 +0000646
Chad Rosier7fd00b12012-10-18 15:49:40 +0000647 unsigned NumOutputs;
648 unsigned NumInputs;
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000649 std::string AsmStringIR;
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000650 SmallVector<std::pair<void *, bool>, 4> OpDecls;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000651 SmallVector<std::string, 4> Constraints;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000652 SmallVector<std::string, 4> Clobbers;
Jim Grosbachd6d864f2013-02-20 22:25:15 +0000653 if (Parser->parseMSInlineAsm(AsmLoc.getPtrEncoding(), AsmStringIR,
Chad Rosierd052ebf2012-10-18 19:39:37 +0000654 NumOutputs, NumInputs, OpDecls, Constraints,
655 Clobbers, MII, IP, MCAPSI))
Chad Rosier7fd00b12012-10-18 15:49:40 +0000656 return StmtError();
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000657
Chad Rosier7fd00b12012-10-18 15:49:40 +0000658 // Build the vector of clobber StringRefs.
659 unsigned NumClobbers = Clobbers.size();
660 ClobberRefs.resize(NumClobbers);
661 for (unsigned i = 0; i != NumClobbers; ++i)
662 ClobberRefs[i] = StringRef(Clobbers[i]);
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000663
Chad Rosier7fd00b12012-10-18 15:49:40 +0000664 // Recast the void pointers and build the vector of constraint StringRefs.
665 unsigned NumExprs = NumOutputs + NumInputs;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000666 Names.resize(NumExprs);
667 ConstraintRefs.resize(NumExprs);
668 Exprs.resize(NumExprs);
669 for (unsigned i = 0, e = NumExprs; i != e; ++i) {
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000670 NamedDecl *OpDecl = static_cast<NamedDecl *>(OpDecls[i].first);
Chad Rosierd052ebf2012-10-18 19:39:37 +0000671 if (!OpDecl)
672 return StmtError();
673
674 DeclarationNameInfo NameInfo(OpDecl->getDeclName(), AsmLoc);
675 ExprResult OpExpr = BuildDeclarationNameExpr(CXXScopeSpec(), NameInfo,
676 OpDecl);
677 if (OpExpr.isInvalid())
678 return StmtError();
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000679
Chad Rosier3973f282013-01-10 22:10:16 +0000680 // Need address of variable.
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000681 if (OpDecls[i].second)
682 OpExpr = BuildUnaryOp(getCurScope(), AsmLoc, clang::UO_AddrOf,
683 OpExpr.take());
684
Chad Rosierd052ebf2012-10-18 19:39:37 +0000685 Names[i] = OpDecl->getIdentifier();
Chad Rosier7fd00b12012-10-18 15:49:40 +0000686 ConstraintRefs[i] = StringRef(Constraints[i]);
Chad Rosierd052ebf2012-10-18 19:39:37 +0000687 Exprs[i] = OpExpr.take();
Chad Rosieracc22b62012-09-06 19:35:00 +0000688 }
Chad Rosierb55e6022012-09-13 00:06:55 +0000689
Chad Rosier7fd00b12012-10-18 15:49:40 +0000690 bool IsSimple = NumExprs > 0;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000691 MSAsmStmt *NS =
Chad Rosier7fd00b12012-10-18 15:49:40 +0000692 new (Context) MSAsmStmt(Context, AsmLoc, LBraceLoc, IsSimple,
693 /*IsVolatile*/ true, AsmToks, NumOutputs, NumInputs,
694 Names, ConstraintRefs, Exprs, AsmStringIR,
695 ClobberRefs, EndLoc);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000696 return Owned(NS);
697}