blob: 0ed0fd56f501c08830c2eb32a151360d5c4e3c0c [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];
Bill Wendling14df23b2013-03-25 21:09:49 +0000127 if (CheckAsmLValue(OutputExpr, *this))
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000128 return StmtError(Diag(OutputExpr->getLocStart(),
Bill Wendling14df23b2013-03-25 21:09:49 +0000129 diag::err_asm_invalid_lvalue_in_output)
130 << OutputExpr->getSourceRange());
131
Bill Wendlingd835d942013-03-27 06:06:26 +0000132 if (RequireCompleteType(OutputExpr->getLocStart(), Exprs[i]->getType(),
133 diag::err_dereference_incomplete_type))
134 return StmtError();
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000135
136 OutputConstraintInfos.push_back(Info);
137 }
138
139 SmallVector<TargetInfo::ConstraintInfo, 4> InputConstraintInfos;
140
141 for (unsigned i = NumOutputs, e = NumOutputs + NumInputs; i != e; i++) {
142 StringLiteral *Literal = Constraints[i];
143 if (!Literal->isAscii())
144 return StmtError(Diag(Literal->getLocStart(),diag::err_asm_wide_character)
145 << Literal->getSourceRange());
146
147 StringRef InputName;
148 if (Names[i])
149 InputName = Names[i]->getName();
150
151 TargetInfo::ConstraintInfo Info(Literal->getString(), InputName);
152 if (!Context.getTargetInfo().validateInputConstraint(OutputConstraintInfos.data(),
153 NumOutputs, Info)) {
154 return StmtError(Diag(Literal->getLocStart(),
155 diag::err_asm_invalid_input_constraint)
156 << Info.getConstraintStr());
157 }
158
159 Expr *InputExpr = Exprs[i];
160
161 // Only allow void types for memory constraints.
162 if (Info.allowsMemory() && !Info.allowsRegister()) {
163 if (CheckAsmLValue(InputExpr, *this))
164 return StmtError(Diag(InputExpr->getLocStart(),
165 diag::err_asm_invalid_lvalue_in_input)
166 << Info.getConstraintStr()
167 << InputExpr->getSourceRange());
168 }
169
170 if (Info.allowsRegister()) {
171 if (InputExpr->getType()->isVoidType()) {
172 return StmtError(Diag(InputExpr->getLocStart(),
173 diag::err_asm_invalid_type_in_input)
174 << InputExpr->getType() << Info.getConstraintStr()
175 << InputExpr->getSourceRange());
176 }
177 }
178
179 ExprResult Result = DefaultFunctionArrayLvalueConversion(Exprs[i]);
180 if (Result.isInvalid())
181 return StmtError();
182
183 Exprs[i] = Result.take();
184 InputConstraintInfos.push_back(Info);
Bill Wendling68fd6082012-11-12 06:42:51 +0000185
186 const Type *Ty = Exprs[i]->getType().getTypePtr();
Bill Wendling14df23b2013-03-25 21:09:49 +0000187 if (Ty->isDependentType())
Eric Christopher6ceb3772012-11-12 23:13:34 +0000188 continue;
189
Bill Wendling14df23b2013-03-25 21:09:49 +0000190 if (!Ty->isVoidType() || !Info.allowsMemory())
Bill Wendlingd835d942013-03-27 06:06:26 +0000191 if (RequireCompleteType(InputExpr->getLocStart(), Exprs[i]->getType(),
192 diag::err_dereference_incomplete_type))
193 return StmtError();
Bill Wendling14df23b2013-03-25 21:09:49 +0000194
Bill Wendling68fd6082012-11-12 06:42:51 +0000195 unsigned Size = Context.getTypeSize(Ty);
196 if (!Context.getTargetInfo().validateInputSize(Literal->getString(),
197 Size))
198 return StmtError(Diag(InputExpr->getLocStart(),
199 diag::err_asm_invalid_input_size)
200 << Info.getConstraintStr());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000201 }
202
203 // Check that the clobbers are valid.
204 for (unsigned i = 0; i != NumClobbers; i++) {
205 StringLiteral *Literal = Clobbers[i];
206 if (!Literal->isAscii())
207 return StmtError(Diag(Literal->getLocStart(),diag::err_asm_wide_character)
208 << Literal->getSourceRange());
209
210 StringRef Clobber = Literal->getString();
211
212 if (!Context.getTargetInfo().isValidClobber(Clobber))
213 return StmtError(Diag(Literal->getLocStart(),
214 diag::err_asm_unknown_register_name) << Clobber);
215 }
216
Chad Rosierdf5faf52012-08-25 00:11:56 +0000217 GCCAsmStmt *NS =
218 new (Context) GCCAsmStmt(Context, AsmLoc, IsSimple, IsVolatile, NumOutputs,
219 NumInputs, Names, Constraints, Exprs, AsmString,
220 NumClobbers, Clobbers, RParenLoc);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000221 // Validate the asm string, ensuring it makes sense given the operands we
222 // have.
Chad Rosierdf5faf52012-08-25 00:11:56 +0000223 SmallVector<GCCAsmStmt::AsmStringPiece, 8> Pieces;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000224 unsigned DiagOffs;
225 if (unsigned DiagID = NS->AnalyzeAsmString(Pieces, Context, DiagOffs)) {
226 Diag(getLocationOfStringLiteralByte(AsmString, DiagOffs), DiagID)
227 << AsmString->getSourceRange();
228 return StmtError();
229 }
230
Bill Wendling50d46ca2012-10-25 23:28:48 +0000231 // Validate constraints and modifiers.
232 for (unsigned i = 0, e = Pieces.size(); i != e; ++i) {
233 GCCAsmStmt::AsmStringPiece &Piece = Pieces[i];
234 if (!Piece.isOperand()) continue;
235
236 // Look for the correct constraint index.
237 unsigned Idx = 0;
238 unsigned ConstraintIdx = 0;
239 for (unsigned i = 0, e = NS->getNumOutputs(); i != e; ++i, ++ConstraintIdx) {
240 TargetInfo::ConstraintInfo &Info = OutputConstraintInfos[i];
241 if (Idx == Piece.getOperandNo())
242 break;
243 ++Idx;
244
245 if (Info.isReadWrite()) {
246 if (Idx == Piece.getOperandNo())
247 break;
248 ++Idx;
249 }
250 }
251
252 for (unsigned i = 0, e = NS->getNumInputs(); i != e; ++i, ++ConstraintIdx) {
253 TargetInfo::ConstraintInfo &Info = InputConstraintInfos[i];
254 if (Idx == Piece.getOperandNo())
255 break;
256 ++Idx;
257
258 if (Info.isReadWrite()) {
259 if (Idx == Piece.getOperandNo())
260 break;
261 ++Idx;
262 }
263 }
264
265 // Now that we have the right indexes go ahead and check.
266 StringLiteral *Literal = Constraints[ConstraintIdx];
267 const Type *Ty = Exprs[ConstraintIdx]->getType().getTypePtr();
268 if (Ty->isDependentType() || Ty->isIncompleteType())
269 continue;
270
271 unsigned Size = Context.getTypeSize(Ty);
272 if (!Context.getTargetInfo()
273 .validateConstraintModifier(Literal->getString(), Piece.getModifier(),
274 Size))
275 Diag(Exprs[ConstraintIdx]->getLocStart(),
276 diag::warn_asm_mismatched_size_modifier);
277 }
278
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000279 // Validate tied input operands for type mismatches.
280 for (unsigned i = 0, e = InputConstraintInfos.size(); i != e; ++i) {
281 TargetInfo::ConstraintInfo &Info = InputConstraintInfos[i];
282
283 // If this is a tied constraint, verify that the output and input have
284 // either exactly the same type, or that they are int/ptr operands with the
285 // same size (int/long, int*/long, are ok etc).
286 if (!Info.hasTiedOperand()) continue;
287
288 unsigned TiedTo = Info.getTiedOperand();
289 unsigned InputOpNo = i+NumOutputs;
290 Expr *OutputExpr = Exprs[TiedTo];
291 Expr *InputExpr = Exprs[InputOpNo];
292
293 if (OutputExpr->isTypeDependent() || InputExpr->isTypeDependent())
294 continue;
295
296 QualType InTy = InputExpr->getType();
297 QualType OutTy = OutputExpr->getType();
298 if (Context.hasSameType(InTy, OutTy))
299 continue; // All types can be tied to themselves.
300
301 // Decide if the input and output are in the same domain (integer/ptr or
302 // floating point.
303 enum AsmDomain {
304 AD_Int, AD_FP, AD_Other
305 } InputDomain, OutputDomain;
306
307 if (InTy->isIntegerType() || InTy->isPointerType())
308 InputDomain = AD_Int;
309 else if (InTy->isRealFloatingType())
310 InputDomain = AD_FP;
311 else
312 InputDomain = AD_Other;
313
314 if (OutTy->isIntegerType() || OutTy->isPointerType())
315 OutputDomain = AD_Int;
316 else if (OutTy->isRealFloatingType())
317 OutputDomain = AD_FP;
318 else
319 OutputDomain = AD_Other;
320
321 // They are ok if they are the same size and in the same domain. This
322 // allows tying things like:
323 // void* to int*
324 // void* to int if they are the same size.
325 // double to long double if they are the same size.
326 //
327 uint64_t OutSize = Context.getTypeSize(OutTy);
328 uint64_t InSize = Context.getTypeSize(InTy);
329 if (OutSize == InSize && InputDomain == OutputDomain &&
330 InputDomain != AD_Other)
331 continue;
332
333 // If the smaller input/output operand is not mentioned in the asm string,
334 // then we can promote the smaller one to a larger input and the asm string
335 // won't notice.
336 bool SmallerValueMentioned = false;
337
338 // If this is a reference to the input and if the input was the smaller
339 // one, then we have to reject this asm.
340 if (isOperandMentioned(InputOpNo, Pieces)) {
341 // This is a use in the asm string of the smaller operand. Since we
342 // codegen this by promoting to a wider value, the asm will get printed
343 // "wrong".
344 SmallerValueMentioned |= InSize < OutSize;
345 }
346 if (isOperandMentioned(TiedTo, Pieces)) {
347 // If this is a reference to the output, and if the output is the larger
348 // value, then it's ok because we'll promote the input to the larger type.
349 SmallerValueMentioned |= OutSize < InSize;
350 }
351
352 // If the smaller value wasn't mentioned in the asm string, and if the
353 // output was a register, just extend the shorter one to the size of the
354 // larger one.
355 if (!SmallerValueMentioned && InputDomain != AD_Other &&
356 OutputConstraintInfos[TiedTo].allowsRegister())
357 continue;
358
359 // Either both of the operands were mentioned or the smaller one was
360 // mentioned. One more special case that we'll allow: if the tied input is
361 // integer, unmentioned, and is a constant, then we'll allow truncating it
362 // down to the size of the destination.
363 if (InputDomain == AD_Int && OutputDomain == AD_Int &&
364 !isOperandMentioned(InputOpNo, Pieces) &&
365 InputExpr->isEvaluatable(Context)) {
366 CastKind castKind =
367 (OutTy->isBooleanType() ? CK_IntegralToBoolean : CK_IntegralCast);
368 InputExpr = ImpCastExprToType(InputExpr, OutTy, castKind).take();
369 Exprs[InputOpNo] = InputExpr;
370 NS->setInputExpr(i, InputExpr);
371 continue;
372 }
373
374 Diag(InputExpr->getLocStart(),
375 diag::err_asm_tying_incompatible_types)
376 << InTy << OutTy << OutputExpr->getSourceRange()
377 << InputExpr->getSourceRange();
378 return StmtError();
379 }
380
381 return Owned(NS);
382}
383
Chad Rosier358ab762012-08-22 21:08:06 +0000384// getSpelling - Get the spelling of the AsmTok token.
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000385static StringRef getSpelling(Sema &SemaRef, Token AsmTok) {
386 StringRef Asm;
387 SmallString<512> TokenBuf;
388 TokenBuf.resize(512);
389 bool StringInvalid = false;
390 Asm = SemaRef.PP.getSpelling(AsmTok, TokenBuf, &StringInvalid);
391 assert (!StringInvalid && "Expected valid string!");
392 return Asm;
393}
394
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000395// Build the inline assembly string. Returns true on error.
396static bool buildMSAsmString(Sema &SemaRef,
397 SourceLocation AsmLoc,
398 ArrayRef<Token> AsmToks,
Dmitri Gribenkocfa88f82013-01-12 19:30:44 +0000399 SmallVectorImpl<unsigned> &TokOffsets,
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000400 std::string &AsmString) {
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000401 assert (!AsmToks.empty() && "Didn't expect an empty AsmToks!");
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000402
403 SmallString<512> Asm;
404 for (unsigned i = 0, e = AsmToks.size(); i < e; ++i) {
Bob Wilson40d39e32012-09-24 19:57:55 +0000405 bool isNewAsm = ((i == 0) ||
406 AsmToks[i].isAtStartOfLine() ||
407 AsmToks[i].is(tok::kw_asm));
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000408 if (isNewAsm) {
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000409 if (i != 0)
410 Asm += "\n\t";
411
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000412 if (AsmToks[i].is(tok::kw_asm)) {
413 i++; // Skip __asm
Bob Wilsonb0f6b9c2012-09-24 19:57:59 +0000414 if (i == e) {
415 SemaRef.Diag(AsmLoc, diag::err_asm_empty);
416 return true;
417 }
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000418
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000419 }
420 }
421
Chad Rosierb55e6022012-09-13 00:06:55 +0000422 if (i && AsmToks[i].hasLeadingSpace() && !isNewAsm)
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000423 Asm += ' ';
Chad Rosier4de97162012-09-11 00:51:28 +0000424
425 StringRef Spelling = getSpelling(SemaRef, AsmToks[i]);
426 Asm += Spelling;
Eli Friedman5f1385b2012-10-23 02:43:30 +0000427 TokOffsets.push_back(Asm.size());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000428 }
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000429 AsmString = Asm.str();
Bob Wilsonb0f6b9c2012-09-24 19:57:59 +0000430 return false;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000431}
432
Benjamin Kramerc6f84cf2012-10-20 13:02:06 +0000433namespace {
434
Chad Rosier7fd00b12012-10-18 15:49:40 +0000435class MCAsmParserSemaCallbackImpl : public llvm::MCAsmParserSemaCallback {
Eli Friedman5f1385b2012-10-23 02:43:30 +0000436 Sema &SemaRef;
437 SourceLocation AsmLoc;
438 ArrayRef<Token> AsmToks;
439 ArrayRef<unsigned> TokOffsets;
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000440
441public:
Eli Friedman5f1385b2012-10-23 02:43:30 +0000442 MCAsmParserSemaCallbackImpl(Sema &Ref, SourceLocation Loc,
443 ArrayRef<Token> Toks,
444 ArrayRef<unsigned> Offsets)
445 : SemaRef(Ref), AsmLoc(Loc), AsmToks(Toks), TokOffsets(Offsets) { }
Chad Rosier7fd00b12012-10-18 15:49:40 +0000446 ~MCAsmParserSemaCallbackImpl() {}
447
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000448 void *LookupInlineAsmIdentifier(StringRef Name, void *SrcLoc,
449 unsigned &Length, unsigned &Size,
450 unsigned &Type, bool &IsVarDecl){
Chad Rosier7fd00b12012-10-18 15:49:40 +0000451 SourceLocation Loc = SourceLocation::getFromPtrEncoding(SrcLoc);
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000452
453 NamedDecl *OpDecl = SemaRef.LookupInlineAsmIdentifier(Name, Loc, Length,
454 Size, Type,
Chad Rosier3973f282013-01-10 22:10:16 +0000455 IsVarDecl);
Chad Rosierd052ebf2012-10-18 19:39:37 +0000456 return static_cast<void *>(OpDecl);
Chad Rosier7fd00b12012-10-18 15:49:40 +0000457 }
Eli Friedman5f1385b2012-10-23 02:43:30 +0000458
Chad Rosier802f9372012-10-25 21:49:22 +0000459 bool LookupInlineAsmField(StringRef Base, StringRef Member,
460 unsigned &Offset) {
461 return SemaRef.LookupInlineAsmField(Base, Member, Offset, AsmLoc);
462 }
463
Eli Friedman5f1385b2012-10-23 02:43:30 +0000464 static void MSAsmDiagHandlerCallback(const llvm::SMDiagnostic &D,
465 void *Context) {
466 ((MCAsmParserSemaCallbackImpl*)Context)->MSAsmDiagHandler(D);
467 }
468 void MSAsmDiagHandler(const llvm::SMDiagnostic &D) {
469 // Compute an offset into the inline asm buffer.
470 // FIXME: This isn't right if .macro is involved (but hopefully, no
471 // real-world code does that).
472 const llvm::SourceMgr &LSM = *D.getSourceMgr();
473 const llvm::MemoryBuffer *LBuf =
474 LSM.getMemoryBuffer(LSM.FindBufferContainingLoc(D.getLoc()));
475 unsigned Offset = D.getLoc().getPointer() - LBuf->getBufferStart();
476
477 // Figure out which token that offset points into.
478 const unsigned *OffsetPtr =
479 std::lower_bound(TokOffsets.begin(), TokOffsets.end(), Offset);
480 unsigned TokIndex = OffsetPtr - TokOffsets.begin();
481
482 // If we come up with an answer which seems sane, use it; otherwise,
483 // just point at the __asm keyword.
484 // FIXME: Assert the answer is sane once we handle .macro correctly.
485 SourceLocation Loc = AsmLoc;
486 if (TokIndex < AsmToks.size()) {
487 const Token *Tok = &AsmToks[TokIndex];
488 Loc = Tok->getLocation();
489 Loc = Loc.getLocWithOffset(Offset - (*OffsetPtr - Tok->getLength()));
490 }
491 SemaRef.Diag(Loc, diag::err_inline_ms_asm_parsing) << D.getMessage();
492 }
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000493};
494
Benjamin Kramerc6f84cf2012-10-20 13:02:06 +0000495}
496
Chad Rosier87a9f2b2013-04-19 20:37:49 +0000497// FIXME: Temporary hack until the frontend parser is hooked up to parse
498// variables.
499static bool isIdentifierChar(char c) {
500 return isalnum(c) || c == '_' || c == '$' || c == '.' || c == '@';
501}
502
503static void lexIdentifier(const char *&CurPtr) {
504 while (isIdentifierChar(*CurPtr))
505 ++CurPtr;
506}
507
508static StringRef parseIdentifier(StringRef Identifier) {
509 const char *StartPtr = Identifier.data(), *EndPtr, *CurPtr;
510 EndPtr = StartPtr + Identifier.size();
511 CurPtr = StartPtr;
512 while(CurPtr <= EndPtr) {
513 if (isIdentifierChar(*CurPtr))
514 lexIdentifier(CurPtr);
515 else if (CurPtr[0] == ':' && CurPtr[1] == ':')
516 CurPtr += 2;
517 else
518 break;
519 }
520 return StringRef(StartPtr, CurPtr - StartPtr);
521}
522
Chad Rosierc337d142012-10-18 20:27:06 +0000523NamedDecl *Sema::LookupInlineAsmIdentifier(StringRef Name, SourceLocation Loc,
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000524 unsigned &Length, unsigned &Size,
525 unsigned &Type, bool &IsVarDecl) {
Chad Rosier87a9f2b2013-04-19 20:37:49 +0000526 // FIXME: Temporary hack until the frontend parser is hooked up to parse
527 // variables.
528 StringRef ParsedName = parseIdentifier(Name);
529 assert (ParsedName == Name && "Identifier not parsed correctly!");
530
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000531 Length = 1;
Chad Rosierc337d142012-10-18 20:27:06 +0000532 Size = 0;
Chad Rosierb8b5cbc2013-01-17 19:21:24 +0000533 Type = 0;
Chad Rosier3973f282013-01-10 22:10:16 +0000534 IsVarDecl = false;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000535 LookupResult Result(*this, &Context.Idents.get(Name), Loc,
536 Sema::LookupOrdinaryName);
537
538 if (!LookupName(Result, getCurScope())) {
539 // If we don't find anything, return null; the AsmParser will assume
540 // it is a label of some sort.
541 return 0;
542 }
543
544 if (!Result.isSingleResult()) {
545 // FIXME: Diagnose result.
546 return 0;
547 }
548
Chad Rosiere3faa6e2013-04-01 17:58:03 +0000549 NamedDecl *FoundDecl = Result.getFoundDecl();
550 if (isa<FunctionDecl>(FoundDecl))
551 return FoundDecl;
552 if (VarDecl *Var = dyn_cast<VarDecl>(FoundDecl)) {
Chad Rosiere3faa6e2013-04-01 17:58:03 +0000553 QualType Ty = Var->getType();
Chad Rosierd94a3a02013-04-01 22:02:05 +0000554 Type = Size = Context.getTypeSizeInChars(Ty).getQuantity();
Chad Rosiere3faa6e2013-04-01 17:58:03 +0000555 if (Ty->isArrayType()) {
556 const ArrayType *ATy = Context.getAsArrayType(Ty);
Chad Rosierd94a3a02013-04-01 22:02:05 +0000557 Type = Context.getTypeSizeInChars(ATy->getElementType()).getQuantity();
558 Length = Size / Type;
Chad Rosier3973f282013-01-10 22:10:16 +0000559 }
Chad Rosiere3faa6e2013-04-01 17:58:03 +0000560 IsVarDecl = true;
561 return FoundDecl;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000562 }
563
564 // FIXME: Handle other kinds of results? (FieldDecl, etc.)
565 // FIXME: Diagnose if we find something we can't handle, like a typedef.
566 return 0;
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000567}
Chad Rosier2735df22012-08-22 19:18:30 +0000568
Chad Rosier802f9372012-10-25 21:49:22 +0000569bool Sema::LookupInlineAsmField(StringRef Base, StringRef Member,
570 unsigned &Offset, SourceLocation AsmLoc) {
571 Offset = 0;
572 LookupResult BaseResult(*this, &Context.Idents.get(Base), SourceLocation(),
573 LookupOrdinaryName);
574
575 if (!LookupName(BaseResult, getCurScope()))
576 return true;
577
578 if (!BaseResult.isSingleResult())
579 return true;
580
Chad Rosier802f9372012-10-25 21:49:22 +0000581 const RecordType *RT = 0;
Chad Rosiere3faa6e2013-04-01 17:58:03 +0000582 NamedDecl *FoundDecl = BaseResult.getFoundDecl();
583 if (VarDecl *VD = dyn_cast<VarDecl>(FoundDecl))
Chad Rosier802f9372012-10-25 21:49:22 +0000584 RT = VD->getType()->getAs<RecordType>();
Chad Rosiere3faa6e2013-04-01 17:58:03 +0000585 else if (TypedefDecl *TD = dyn_cast<TypedefDecl>(FoundDecl))
Chad Rosier802f9372012-10-25 21:49:22 +0000586 RT = TD->getUnderlyingType()->getAs<RecordType>();
Chad Rosier802f9372012-10-25 21:49:22 +0000587 if (!RT)
588 return true;
589
590 if (RequireCompleteType(AsmLoc, QualType(RT, 0), 0))
591 return true;
592
593 LookupResult FieldResult(*this, &Context.Idents.get(Member), SourceLocation(),
594 LookupMemberName);
595
596 if (!LookupQualifiedName(FieldResult, RT->getDecl()))
597 return true;
598
599 // FIXME: Handle IndirectFieldDecl?
600 FieldDecl *FD = dyn_cast<FieldDecl>(FieldResult.getFoundDecl());
601 if (!FD)
602 return true;
603
604 const ASTRecordLayout &RL = Context.getASTRecordLayout(RT->getDecl());
605 unsigned i = FD->getFieldIndex();
606 CharUnits Result = Context.toCharUnitsFromBits(RL.getFieldOffset(i));
607 Offset = (unsigned)Result.getQuantity();
608
609 return false;
610}
611
Chad Rosierb55e6022012-09-13 00:06:55 +0000612StmtResult Sema::ActOnMSAsmStmt(SourceLocation AsmLoc, SourceLocation LBraceLoc,
613 ArrayRef<Token> AsmToks,SourceLocation EndLoc) {
Chad Rosiere54cba12012-10-16 21:55:39 +0000614 SmallVector<IdentifierInfo*, 4> Names;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000615 SmallVector<StringRef, 4> ConstraintRefs;
Chad Rosiere54cba12012-10-16 21:55:39 +0000616 SmallVector<Expr*, 4> Exprs;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000617 SmallVector<StringRef, 4> ClobberRefs;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000618
Chad Rosierae073782013-01-24 20:24:34 +0000619 llvm::Triple TheTriple = Context.getTargetInfo().getTriple();
620 llvm::Triple::ArchType ArchTy = TheTriple.getArch();
621 bool UnsupportedArch = ArchTy != llvm::Triple::x86 &&
622 ArchTy != llvm::Triple::x86_64;
623 if (UnsupportedArch)
624 Diag(AsmLoc, diag::err_msasm_unsupported_arch) << TheTriple.getArchName();
625
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000626 // Empty asm statements don't need to instantiate the AsmParser, etc.
Chad Rosierae073782013-01-24 20:24:34 +0000627 if (UnsupportedArch || AsmToks.empty()) {
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000628 StringRef EmptyAsmStr;
629 MSAsmStmt *NS =
630 new (Context) MSAsmStmt(Context, AsmLoc, LBraceLoc, /*IsSimple*/ true,
Chad Rosiere54cba12012-10-16 21:55:39 +0000631 /*IsVolatile*/ true, AsmToks, /*NumOutputs*/ 0,
Chad Rosier7fd00b12012-10-18 15:49:40 +0000632 /*NumInputs*/ 0, Names, ConstraintRefs, Exprs,
633 EmptyAsmStr, ClobberRefs, EndLoc);
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000634 return Owned(NS);
635 }
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000636
Chad Rosier7fd00b12012-10-18 15:49:40 +0000637 std::string AsmString;
Dmitri Gribenkocfa88f82013-01-12 19:30:44 +0000638 SmallVector<unsigned, 8> TokOffsets;
Eli Friedman5f1385b2012-10-23 02:43:30 +0000639 if (buildMSAsmString(*this, AsmLoc, AsmToks, TokOffsets, AsmString))
Bob Wilsonb0f6b9c2012-09-24 19:57:59 +0000640 return StmtError();
Chad Rosier38c71d32012-08-21 21:56:39 +0000641
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000642 // Get the target specific parser.
643 std::string Error;
Chad Rosierae073782013-01-24 20:24:34 +0000644 const std::string &TT = TheTriple.getTriple();
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000645 const llvm::Target *TheTarget(llvm::TargetRegistry::lookupTarget(TT, Error));
646
647 OwningPtr<llvm::MCAsmInfo> MAI(TheTarget->createMCAsmInfo(TT));
648 OwningPtr<llvm::MCRegisterInfo> MRI(TheTarget->createMCRegInfo(TT));
649 OwningPtr<llvm::MCObjectFileInfo> MOFI(new llvm::MCObjectFileInfo());
650 OwningPtr<llvm::MCSubtargetInfo>
651 STI(TheTarget->createMCSubtargetInfo(TT, "", ""));
652
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000653 llvm::SourceMgr SrcMgr;
654 llvm::MCContext Ctx(*MAI, *MRI, MOFI.get(), &SrcMgr);
655 llvm::MemoryBuffer *Buffer =
Chad Rosier324645a2013-04-18 15:45:31 +0000656 llvm::MemoryBuffer::getMemBuffer(AsmString, "<MS inline asm>");
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000657
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000658 // Tell SrcMgr about this buffer, which is what the parser will pick up.
659 SrcMgr.AddNewSourceBuffer(Buffer, llvm::SMLoc());
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000660
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000661 OwningPtr<llvm::MCStreamer> Str(createNullStreamer(Ctx));
662 OwningPtr<llvm::MCAsmParser>
663 Parser(createMCAsmParser(SrcMgr, Ctx, *Str.get(), *MAI));
664 OwningPtr<llvm::MCTargetAsmParser>
665 TargetParser(TheTarget->createMCAsmParser(*STI, *Parser));
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000666
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000667 // Get the instruction descriptor.
668 const llvm::MCInstrInfo *MII = TheTarget->createMCInstrInfo();
669 llvm::MCInstPrinter *IP =
670 TheTarget->createMCInstPrinter(1, *MAI, *MII, *MRI, *STI);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000671
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000672 // Change to the Intel dialect.
673 Parser->setAssemblerDialect(1);
674 Parser->setTargetParser(*TargetParser.get());
675 Parser->setParsingInlineAsm(true);
Chad Rosiercf81cd22012-10-19 17:58:45 +0000676 TargetParser->setParsingInlineAsm(true);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000677
Eli Friedman5f1385b2012-10-23 02:43:30 +0000678 MCAsmParserSemaCallbackImpl MCAPSI(*this, AsmLoc, AsmToks, TokOffsets);
Chad Rosier793c4052012-10-19 20:36:37 +0000679 TargetParser->setSemaCallback(&MCAPSI);
Eli Friedman5f1385b2012-10-23 02:43:30 +0000680 SrcMgr.setDiagHandler(MCAsmParserSemaCallbackImpl::MSAsmDiagHandlerCallback,
681 &MCAPSI);
Chad Rosier793c4052012-10-19 20:36:37 +0000682
Chad Rosier7fd00b12012-10-18 15:49:40 +0000683 unsigned NumOutputs;
684 unsigned NumInputs;
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000685 std::string AsmStringIR;
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000686 SmallVector<std::pair<void *, bool>, 4> OpDecls;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000687 SmallVector<std::string, 4> Constraints;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000688 SmallVector<std::string, 4> Clobbers;
Jim Grosbachd6d864f2013-02-20 22:25:15 +0000689 if (Parser->parseMSInlineAsm(AsmLoc.getPtrEncoding(), AsmStringIR,
Chad Rosierd052ebf2012-10-18 19:39:37 +0000690 NumOutputs, NumInputs, OpDecls, Constraints,
691 Clobbers, MII, IP, MCAPSI))
Chad Rosier7fd00b12012-10-18 15:49:40 +0000692 return StmtError();
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000693
Chad Rosier7fd00b12012-10-18 15:49:40 +0000694 // Build the vector of clobber StringRefs.
695 unsigned NumClobbers = Clobbers.size();
696 ClobberRefs.resize(NumClobbers);
697 for (unsigned i = 0; i != NumClobbers; ++i)
698 ClobberRefs[i] = StringRef(Clobbers[i]);
Chad Rosierd9b56ed2012-10-15 19:56:10 +0000699
Chad Rosier7fd00b12012-10-18 15:49:40 +0000700 // Recast the void pointers and build the vector of constraint StringRefs.
701 unsigned NumExprs = NumOutputs + NumInputs;
Chad Rosier7fd00b12012-10-18 15:49:40 +0000702 Names.resize(NumExprs);
703 ConstraintRefs.resize(NumExprs);
704 Exprs.resize(NumExprs);
705 for (unsigned i = 0, e = NumExprs; i != e; ++i) {
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000706 NamedDecl *OpDecl = static_cast<NamedDecl *>(OpDecls[i].first);
Chad Rosierd052ebf2012-10-18 19:39:37 +0000707 if (!OpDecl)
708 return StmtError();
709
710 DeclarationNameInfo NameInfo(OpDecl->getDeclName(), AsmLoc);
711 ExprResult OpExpr = BuildDeclarationNameExpr(CXXScopeSpec(), NameInfo,
712 OpDecl);
713 if (OpExpr.isInvalid())
714 return StmtError();
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000715
Chad Rosier3973f282013-01-10 22:10:16 +0000716 // Need address of variable.
Chad Rosier4d5dd7c2012-10-23 17:44:40 +0000717 if (OpDecls[i].second)
718 OpExpr = BuildUnaryOp(getCurScope(), AsmLoc, clang::UO_AddrOf,
719 OpExpr.take());
720
Chad Rosierd052ebf2012-10-18 19:39:37 +0000721 Names[i] = OpDecl->getIdentifier();
Chad Rosier7fd00b12012-10-18 15:49:40 +0000722 ConstraintRefs[i] = StringRef(Constraints[i]);
Chad Rosierd052ebf2012-10-18 19:39:37 +0000723 Exprs[i] = OpExpr.take();
Chad Rosieracc22b62012-09-06 19:35:00 +0000724 }
Chad Rosierb55e6022012-09-13 00:06:55 +0000725
Chad Rosier7fd00b12012-10-18 15:49:40 +0000726 bool IsSimple = NumExprs > 0;
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000727 MSAsmStmt *NS =
Chad Rosier7fd00b12012-10-18 15:49:40 +0000728 new (Context) MSAsmStmt(Context, AsmLoc, LBraceLoc, IsSimple,
729 /*IsVolatile*/ true, AsmToks, NumOutputs, NumInputs,
730 Names, ConstraintRefs, Exprs, AsmStringIR,
731 ClobberRefs, EndLoc);
Chad Rosier4b5e48d2012-08-17 21:19:40 +0000732 return Owned(NS);
733}