Add the byval attribute
[oota-llvm.git] / lib / VMCore / Verifier.cpp
1 //===-- Verifier.cpp - Implement the Module Verifier -------------*- C++ -*-==//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file was developed by the LLVM research group and is distributed under
6 // the University of Illinois Open Source License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 //
10 // This file defines the function verifier interface, that can be used for some
11 // sanity checking of input to the system.
12 //
13 // Note that this does not provide full `Java style' security and verifications,
14 // instead it just tries to ensure that code is well-formed.
15 //
16 //  * Both of a binary operator's parameters are of the same type
17 //  * Verify that the indices of mem access instructions match other operands
18 //  * Verify that arithmetic and other things are only performed on first-class
19 //    types.  Verify that shifts & logicals only happen on integrals f.e.
20 //  * All of the constants in a switch statement are of the correct type
21 //  * The code is in valid SSA form
22 //  * It should be illegal to put a label into any other type (like a structure)
23 //    or to return one. [except constant arrays!]
24 //  * Only phi nodes can be self referential: 'add int %0, %0 ; <int>:0' is bad
25 //  * PHI nodes must have an entry for each predecessor, with no extras.
26 //  * PHI nodes must be the first thing in a basic block, all grouped together
27 //  * PHI nodes must have at least one entry
28 //  * All basic blocks should only end with terminator insts, not contain them
29 //  * The entry node to a function must not have predecessors
30 //  * All Instructions must be embedded into a basic block
31 //  * Functions cannot take a void-typed parameter
32 //  * Verify that a function's argument list agrees with it's declared type.
33 //  * It is illegal to specify a name for a void value.
34 //  * It is illegal to have a internal global value with no initializer
35 //  * It is illegal to have a ret instruction that returns a value that does not
36 //    agree with the function return value type.
37 //  * Function call argument types match the function prototype
38 //  * All other things that are tested by asserts spread about the code...
39 //
40 //===----------------------------------------------------------------------===//
41
42 #include "llvm/Analysis/Verifier.h"
43 #include "llvm/Assembly/Writer.h"
44 #include "llvm/CallingConv.h"
45 #include "llvm/Constants.h"
46 #include "llvm/Pass.h"
47 #include "llvm/Module.h"
48 #include "llvm/ModuleProvider.h"
49 #include "llvm/ParameterAttributes.h"
50 #include "llvm/DerivedTypes.h"
51 #include "llvm/InlineAsm.h"
52 #include "llvm/Instructions.h"
53 #include "llvm/Intrinsics.h"
54 #include "llvm/PassManager.h"
55 #include "llvm/Analysis/Dominators.h"
56 #include "llvm/Support/CFG.h"
57 #include "llvm/Support/InstVisitor.h"
58 #include "llvm/Support/Streams.h"
59 #include "llvm/ADT/SmallPtrSet.h"
60 #include "llvm/ADT/SmallVector.h"
61 #include "llvm/ADT/StringExtras.h"
62 #include "llvm/ADT/STLExtras.h"
63 #include "llvm/Support/Compiler.h"
64 #include <algorithm>
65 #include <sstream>
66 #include <cstdarg>
67 using namespace llvm;
68
69 namespace {  // Anonymous namespace for class
70
71   struct VISIBILITY_HIDDEN
72      Verifier : public FunctionPass, InstVisitor<Verifier> {
73     static char ID; // Pass ID, replacement for typeid
74     bool Broken;          // Is this module found to be broken?
75     bool RealPass;        // Are we not being run by a PassManager?
76     VerifierFailureAction action;
77                           // What to do if verification fails.
78     Module *Mod;          // Module we are verifying right now
79     DominatorTree *DT; // Dominator Tree, caution can be null!
80     std::stringstream msgs;  // A stringstream to collect messages
81
82     /// InstInThisBlock - when verifying a basic block, keep track of all of the
83     /// instructions we have seen so far.  This allows us to do efficient
84     /// dominance checks for the case when an instruction has an operand that is
85     /// an instruction in the same block.
86     SmallPtrSet<Instruction*, 16> InstsInThisBlock;
87
88     Verifier()
89       : FunctionPass((intptr_t)&ID), 
90       Broken(false), RealPass(true), action(AbortProcessAction),
91       DT(0), msgs( std::ios::app | std::ios::out ) {}
92     Verifier( VerifierFailureAction ctn )
93       : FunctionPass((intptr_t)&ID), 
94       Broken(false), RealPass(true), action(ctn), DT(0),
95       msgs( std::ios::app | std::ios::out ) {}
96     Verifier(bool AB )
97       : FunctionPass((intptr_t)&ID), 
98       Broken(false), RealPass(true),
99       action( AB ? AbortProcessAction : PrintMessageAction), DT(0),
100       msgs( std::ios::app | std::ios::out ) {}
101     Verifier(DominatorTree &dt)
102       : FunctionPass((intptr_t)&ID), 
103       Broken(false), RealPass(false), action(PrintMessageAction),
104       DT(&dt), msgs( std::ios::app | std::ios::out ) {}
105
106
107     bool doInitialization(Module &M) {
108       Mod = &M;
109       verifyTypeSymbolTable(M.getTypeSymbolTable());
110
111       // If this is a real pass, in a pass manager, we must abort before
112       // returning back to the pass manager, or else the pass manager may try to
113       // run other passes on the broken module.
114       if (RealPass)
115         return abortIfBroken();
116       return false;
117     }
118
119     bool runOnFunction(Function &F) {
120       // Get dominator information if we are being run by PassManager
121       if (RealPass) DT = &getAnalysis<DominatorTree>();
122
123       Mod = F.getParent();
124
125       visit(F);
126       InstsInThisBlock.clear();
127
128       // If this is a real pass, in a pass manager, we must abort before
129       // returning back to the pass manager, or else the pass manager may try to
130       // run other passes on the broken module.
131       if (RealPass)
132         return abortIfBroken();
133
134       return false;
135     }
136
137     bool doFinalization(Module &M) {
138       // Scan through, checking all of the external function's linkage now...
139       for (Module::iterator I = M.begin(), E = M.end(); I != E; ++I) {
140         visitGlobalValue(*I);
141
142         // Check to make sure function prototypes are okay.
143         if (I->isDeclaration()) visitFunction(*I);
144       }
145
146       for (Module::global_iterator I = M.global_begin(), E = M.global_end(); 
147            I != E; ++I)
148         visitGlobalVariable(*I);
149
150       for (Module::alias_iterator I = M.alias_begin(), E = M.alias_end(); 
151            I != E; ++I)
152         visitGlobalAlias(*I);
153
154       // If the module is broken, abort at this time.
155       return abortIfBroken();
156     }
157
158     virtual void getAnalysisUsage(AnalysisUsage &AU) const {
159       AU.setPreservesAll();
160       if (RealPass)
161         AU.addRequired<DominatorTree>();
162     }
163
164     /// abortIfBroken - If the module is broken and we are supposed to abort on
165     /// this condition, do so.
166     ///
167     bool abortIfBroken() {
168       if (Broken) {
169         msgs << "Broken module found, ";
170         switch (action) {
171           case AbortProcessAction:
172             msgs << "compilation aborted!\n";
173             cerr << msgs.str();
174             abort();
175           case PrintMessageAction:
176             msgs << "verification continues.\n";
177             cerr << msgs.str();
178             return false;
179           case ReturnStatusAction:
180             msgs << "compilation terminated.\n";
181             return Broken;
182         }
183       }
184       return false;
185     }
186
187
188     // Verification methods...
189     void verifyTypeSymbolTable(TypeSymbolTable &ST);
190     void visitGlobalValue(GlobalValue &GV);
191     void visitGlobalVariable(GlobalVariable &GV);
192     void visitGlobalAlias(GlobalAlias &GA);
193     void visitFunction(Function &F);
194     void visitBasicBlock(BasicBlock &BB);
195     void visitTruncInst(TruncInst &I);
196     void visitZExtInst(ZExtInst &I);
197     void visitSExtInst(SExtInst &I);
198     void visitFPTruncInst(FPTruncInst &I);
199     void visitFPExtInst(FPExtInst &I);
200     void visitFPToUIInst(FPToUIInst &I);
201     void visitFPToSIInst(FPToSIInst &I);
202     void visitUIToFPInst(UIToFPInst &I);
203     void visitSIToFPInst(SIToFPInst &I);
204     void visitIntToPtrInst(IntToPtrInst &I);
205     void visitPtrToIntInst(PtrToIntInst &I);
206     void visitBitCastInst(BitCastInst &I);
207     void visitPHINode(PHINode &PN);
208     void visitBinaryOperator(BinaryOperator &B);
209     void visitICmpInst(ICmpInst &IC);
210     void visitFCmpInst(FCmpInst &FC);
211     void visitExtractElementInst(ExtractElementInst &EI);
212     void visitInsertElementInst(InsertElementInst &EI);
213     void visitShuffleVectorInst(ShuffleVectorInst &EI);
214     void visitVAArgInst(VAArgInst &VAA) { visitInstruction(VAA); }
215     void visitCallInst(CallInst &CI);
216     void visitGetElementPtrInst(GetElementPtrInst &GEP);
217     void visitLoadInst(LoadInst &LI);
218     void visitStoreInst(StoreInst &SI);
219     void visitInstruction(Instruction &I);
220     void visitTerminatorInst(TerminatorInst &I);
221     void visitReturnInst(ReturnInst &RI);
222     void visitSwitchInst(SwitchInst &SI);
223     void visitSelectInst(SelectInst &SI);
224     void visitUserOp1(Instruction &I);
225     void visitUserOp2(Instruction &I) { visitUserOp1(I); }
226     void visitIntrinsicFunctionCall(Intrinsic::ID ID, CallInst &CI);
227
228     void VerifyIntrinsicPrototype(Intrinsic::ID ID, Function *F, ...);
229
230     void WriteValue(const Value *V) {
231       if (!V) return;
232       if (isa<Instruction>(V)) {
233         msgs << *V;
234       } else {
235         WriteAsOperand(msgs, V, true, Mod);
236         msgs << "\n";
237       }
238     }
239
240     void WriteType(const Type* T ) {
241       if ( !T ) return;
242       WriteTypeSymbolic(msgs, T, Mod );
243     }
244
245
246     // CheckFailed - A check failed, so print out the condition and the message
247     // that failed.  This provides a nice place to put a breakpoint if you want
248     // to see why something is not correct.
249     void CheckFailed(const std::string &Message,
250                      const Value *V1 = 0, const Value *V2 = 0,
251                      const Value *V3 = 0, const Value *V4 = 0) {
252       msgs << Message << "\n";
253       WriteValue(V1);
254       WriteValue(V2);
255       WriteValue(V3);
256       WriteValue(V4);
257       Broken = true;
258     }
259
260     void CheckFailed( const std::string& Message, const Value* V1,
261                       const Type* T2, const Value* V3 = 0 ) {
262       msgs << Message << "\n";
263       WriteValue(V1);
264       WriteType(T2);
265       WriteValue(V3);
266       Broken = true;
267     }
268   };
269
270   char Verifier::ID = 0;
271   RegisterPass<Verifier> X("verify", "Module Verifier");
272 } // End anonymous namespace
273
274
275 // Assert - We know that cond should be true, if not print an error message.
276 #define Assert(C, M) \
277   do { if (!(C)) { CheckFailed(M); return; } } while (0)
278 #define Assert1(C, M, V1) \
279   do { if (!(C)) { CheckFailed(M, V1); return; } } while (0)
280 #define Assert2(C, M, V1, V2) \
281   do { if (!(C)) { CheckFailed(M, V1, V2); return; } } while (0)
282 #define Assert3(C, M, V1, V2, V3) \
283   do { if (!(C)) { CheckFailed(M, V1, V2, V3); return; } } while (0)
284 #define Assert4(C, M, V1, V2, V3, V4) \
285   do { if (!(C)) { CheckFailed(M, V1, V2, V3, V4); return; } } while (0)
286
287
288 void Verifier::visitGlobalValue(GlobalValue &GV) {
289   Assert1(!GV.isDeclaration() ||
290           GV.hasExternalLinkage() ||
291           GV.hasDLLImportLinkage() ||
292           GV.hasExternalWeakLinkage() ||
293           (isa<GlobalAlias>(GV) &&
294            (GV.hasInternalLinkage() || GV.hasWeakLinkage())),
295   "Global is external, but doesn't have external or dllimport or weak linkage!",
296           &GV);
297
298   Assert1(!GV.hasDLLImportLinkage() || GV.isDeclaration(),
299           "Global is marked as dllimport, but not external", &GV);
300   
301   Assert1(!GV.hasAppendingLinkage() || isa<GlobalVariable>(GV),
302           "Only global variables can have appending linkage!", &GV);
303
304   if (GV.hasAppendingLinkage()) {
305     GlobalVariable &GVar = cast<GlobalVariable>(GV);
306     Assert1(isa<ArrayType>(GVar.getType()->getElementType()),
307             "Only global arrays can have appending linkage!", &GV);
308   }
309 }
310
311 void Verifier::visitGlobalVariable(GlobalVariable &GV) {
312   if (GV.hasInitializer())
313     Assert1(GV.getInitializer()->getType() == GV.getType()->getElementType(),
314             "Global variable initializer type does not match global "
315             "variable type!", &GV);
316
317   visitGlobalValue(GV);
318 }
319
320 void Verifier::visitGlobalAlias(GlobalAlias &GA) {
321   Assert1(!GA.getName().empty(),
322           "Alias name cannot be empty!", &GA);
323   Assert1(GA.hasExternalLinkage() || GA.hasInternalLinkage() ||
324           GA.hasWeakLinkage(),
325           "Alias should have external or external weak linkage!", &GA);
326   Assert1(GA.getType() == GA.getAliasee()->getType(),
327           "Alias and aliasee types should match!", &GA);
328   
329   if (!isa<GlobalValue>(GA.getAliasee())) {
330     const ConstantExpr *CE = dyn_cast<ConstantExpr>(GA.getAliasee());
331     Assert1(CE && CE->getOpcode() == Instruction::BitCast &&
332             isa<GlobalValue>(CE->getOperand(0)),
333             "Aliasee should be either GlobalValue or bitcast of GlobalValue",
334             &GA);
335   }
336   
337   visitGlobalValue(GA);
338 }
339
340 void Verifier::verifyTypeSymbolTable(TypeSymbolTable &ST) {
341 }
342
343 // visitFunction - Verify that a function is ok.
344 //
345 void Verifier::visitFunction(Function &F) {
346   // Check function arguments.
347   const FunctionType *FT = F.getFunctionType();
348   unsigned NumArgs = F.getArgumentList().size();
349
350   Assert2(FT->getNumParams() == NumArgs,
351           "# formal arguments must match # of arguments for function type!",
352           &F, FT);
353   Assert1(F.getReturnType()->isFirstClassType() ||
354           F.getReturnType() == Type::VoidTy,
355           "Functions cannot return aggregate values!", &F);
356
357   Assert1(!FT->isStructReturn() ||
358           (FT->getReturnType() == Type::VoidTy && 
359            FT->getNumParams() > 0 && isa<PointerType>(FT->getParamType(0))),
360           "Invalid struct-return function!", &F);
361
362   if (const ParamAttrsList *Attrs = FT->getParamAttrs()) {
363     unsigned Idx = 1;
364     for (FunctionType::param_iterator I = FT->param_begin(), 
365          E = FT->param_end(); I != E; ++I, ++Idx) {
366       if (Attrs->paramHasAttr(Idx, ParamAttr::ZExt) ||
367           Attrs->paramHasAttr(Idx, ParamAttr::SExt))
368         Assert1(FT->getParamType(Idx-1)->isInteger(),
369                 "Attribute ZExt should only apply to Integer type!", &F);
370       if (Attrs->paramHasAttr(Idx, ParamAttr::NoAlias))
371         Assert1(isa<PointerType>(FT->getParamType(Idx-1)),
372                 "Attribute NoAlias should only apply to Pointer type!", &F);
373       if (Attrs->paramHasAttr(Idx, ParamAttr::ByVal))
374         Assert1(isa<PointerType>(FT->getParamType(Idx-1)),
375                 "Attribute ByVal should only apply to Pointer type!", &F);
376     }
377   }
378
379   // Check that this function meets the restrictions on this calling convention.
380   switch (F.getCallingConv()) {
381   default:
382     break;
383   case CallingConv::C:
384     break;
385   case CallingConv::Fast:
386   case CallingConv::Cold:
387   case CallingConv::X86_FastCall:
388     Assert1(!F.isVarArg(),
389             "Varargs functions must have C calling conventions!", &F);
390     break;
391   }
392   
393   // Check that the argument values match the function type for this function...
394   unsigned i = 0;
395   for (Function::arg_iterator I = F.arg_begin(), E = F.arg_end();
396        I != E; ++I, ++i) {
397     Assert2(I->getType() == FT->getParamType(i),
398             "Argument value does not match function argument type!",
399             I, FT->getParamType(i));
400     // Make sure no aggregates are passed by value.
401     Assert1(I->getType()->isFirstClassType(),
402             "Functions cannot take aggregates as arguments by value!", I);
403    }
404
405   if (!F.isDeclaration()) {
406     // Verify that this function (which has a body) is not named "llvm.*".  It
407     // is not legal to define intrinsics.
408     if (F.getName().size() >= 5)
409       Assert1(F.getName().substr(0, 5) != "llvm.",
410               "llvm intrinsics cannot be defined!", &F);
411     
412     // Check the entry node
413     BasicBlock *Entry = &F.getEntryBlock();
414     Assert1(pred_begin(Entry) == pred_end(Entry),
415             "Entry block to function must not have predecessors!", Entry);
416   }
417 }
418
419
420 // verifyBasicBlock - Verify that a basic block is well formed...
421 //
422 void Verifier::visitBasicBlock(BasicBlock &BB) {
423   InstsInThisBlock.clear();
424
425   // Ensure that basic blocks have terminators!
426   Assert1(BB.getTerminator(), "Basic Block does not have terminator!", &BB);
427
428   // Check constraints that this basic block imposes on all of the PHI nodes in
429   // it.
430   if (isa<PHINode>(BB.front())) {
431     SmallVector<BasicBlock*, 8> Preds(pred_begin(&BB), pred_end(&BB));
432     SmallVector<std::pair<BasicBlock*, Value*>, 8> Values;
433     std::sort(Preds.begin(), Preds.end());
434     PHINode *PN;
435     for (BasicBlock::iterator I = BB.begin(); (PN = dyn_cast<PHINode>(I));++I) {
436
437       // Ensure that PHI nodes have at least one entry!
438       Assert1(PN->getNumIncomingValues() != 0,
439               "PHI nodes must have at least one entry.  If the block is dead, "
440               "the PHI should be removed!", PN);
441       Assert1(PN->getNumIncomingValues() == Preds.size(),
442               "PHINode should have one entry for each predecessor of its "
443               "parent basic block!", PN);
444
445       // Get and sort all incoming values in the PHI node...
446       Values.clear();
447       Values.reserve(PN->getNumIncomingValues());
448       for (unsigned i = 0, e = PN->getNumIncomingValues(); i != e; ++i)
449         Values.push_back(std::make_pair(PN->getIncomingBlock(i),
450                                         PN->getIncomingValue(i)));
451       std::sort(Values.begin(), Values.end());
452
453       for (unsigned i = 0, e = Values.size(); i != e; ++i) {
454         // Check to make sure that if there is more than one entry for a
455         // particular basic block in this PHI node, that the incoming values are
456         // all identical.
457         //
458         Assert4(i == 0 || Values[i].first  != Values[i-1].first ||
459                 Values[i].second == Values[i-1].second,
460                 "PHI node has multiple entries for the same basic block with "
461                 "different incoming values!", PN, Values[i].first,
462                 Values[i].second, Values[i-1].second);
463
464         // Check to make sure that the predecessors and PHI node entries are
465         // matched up.
466         Assert3(Values[i].first == Preds[i],
467                 "PHI node entries do not match predecessors!", PN,
468                 Values[i].first, Preds[i]);
469       }
470     }
471   }
472 }
473
474 void Verifier::visitTerminatorInst(TerminatorInst &I) {
475   // Ensure that terminators only exist at the end of the basic block.
476   Assert1(&I == I.getParent()->getTerminator(),
477           "Terminator found in the middle of a basic block!", I.getParent());
478   visitInstruction(I);
479 }
480
481 void Verifier::visitReturnInst(ReturnInst &RI) {
482   Function *F = RI.getParent()->getParent();
483   if (RI.getNumOperands() == 0)
484     Assert2(F->getReturnType() == Type::VoidTy,
485             "Found return instr that returns void in Function of non-void "
486             "return type!", &RI, F->getReturnType());
487   else
488     Assert2(F->getReturnType() == RI.getOperand(0)->getType(),
489             "Function return type does not match operand "
490             "type of return inst!", &RI, F->getReturnType());
491
492   // Check to make sure that the return value has necessary properties for
493   // terminators...
494   visitTerminatorInst(RI);
495 }
496
497 void Verifier::visitSwitchInst(SwitchInst &SI) {
498   // Check to make sure that all of the constants in the switch instruction
499   // have the same type as the switched-on value.
500   const Type *SwitchTy = SI.getCondition()->getType();
501   for (unsigned i = 1, e = SI.getNumCases(); i != e; ++i)
502     Assert1(SI.getCaseValue(i)->getType() == SwitchTy,
503             "Switch constants must all be same type as switch value!", &SI);
504
505   visitTerminatorInst(SI);
506 }
507
508 void Verifier::visitSelectInst(SelectInst &SI) {
509   Assert1(SI.getCondition()->getType() == Type::Int1Ty,
510           "Select condition type must be bool!", &SI);
511   Assert1(SI.getTrueValue()->getType() == SI.getFalseValue()->getType(),
512           "Select values must have identical types!", &SI);
513   Assert1(SI.getTrueValue()->getType() == SI.getType(),
514           "Select values must have same type as select instruction!", &SI);
515   visitInstruction(SI);
516 }
517
518
519 /// visitUserOp1 - User defined operators shouldn't live beyond the lifetime of
520 /// a pass, if any exist, it's an error.
521 ///
522 void Verifier::visitUserOp1(Instruction &I) {
523   Assert1(0, "User-defined operators should not live outside of a pass!", &I);
524 }
525
526 void Verifier::visitTruncInst(TruncInst &I) {
527   // Get the source and destination types
528   const Type *SrcTy = I.getOperand(0)->getType();
529   const Type *DestTy = I.getType();
530
531   // Get the size of the types in bits, we'll need this later
532   unsigned SrcBitSize = SrcTy->getPrimitiveSizeInBits();
533   unsigned DestBitSize = DestTy->getPrimitiveSizeInBits();
534
535   Assert1(SrcTy->isInteger(), "Trunc only operates on integer", &I);
536   Assert1(DestTy->isInteger(), "Trunc only produces integer", &I);
537   Assert1(SrcBitSize > DestBitSize,"DestTy too big for Trunc", &I);
538
539   visitInstruction(I);
540 }
541
542 void Verifier::visitZExtInst(ZExtInst &I) {
543   // Get the source and destination types
544   const Type *SrcTy = I.getOperand(0)->getType();
545   const Type *DestTy = I.getType();
546
547   // Get the size of the types in bits, we'll need this later
548   Assert1(SrcTy->isInteger(), "ZExt only operates on integer", &I);
549   Assert1(DestTy->isInteger(), "ZExt only produces an integer", &I);
550   unsigned SrcBitSize = SrcTy->getPrimitiveSizeInBits();
551   unsigned DestBitSize = DestTy->getPrimitiveSizeInBits();
552
553   Assert1(SrcBitSize < DestBitSize,"Type too small for ZExt", &I);
554
555   visitInstruction(I);
556 }
557
558 void Verifier::visitSExtInst(SExtInst &I) {
559   // Get the source and destination types
560   const Type *SrcTy = I.getOperand(0)->getType();
561   const Type *DestTy = I.getType();
562
563   // Get the size of the types in bits, we'll need this later
564   unsigned SrcBitSize = SrcTy->getPrimitiveSizeInBits();
565   unsigned DestBitSize = DestTy->getPrimitiveSizeInBits();
566
567   Assert1(SrcTy->isInteger(), "SExt only operates on integer", &I);
568   Assert1(DestTy->isInteger(), "SExt only produces an integer", &I);
569   Assert1(SrcBitSize < DestBitSize,"Type too small for SExt", &I);
570
571   visitInstruction(I);
572 }
573
574 void Verifier::visitFPTruncInst(FPTruncInst &I) {
575   // Get the source and destination types
576   const Type *SrcTy = I.getOperand(0)->getType();
577   const Type *DestTy = I.getType();
578   // Get the size of the types in bits, we'll need this later
579   unsigned SrcBitSize = SrcTy->getPrimitiveSizeInBits();
580   unsigned DestBitSize = DestTy->getPrimitiveSizeInBits();
581
582   Assert1(SrcTy->isFloatingPoint(),"FPTrunc only operates on FP", &I);
583   Assert1(DestTy->isFloatingPoint(),"FPTrunc only produces an FP", &I);
584   Assert1(SrcBitSize > DestBitSize,"DestTy too big for FPTrunc", &I);
585
586   visitInstruction(I);
587 }
588
589 void Verifier::visitFPExtInst(FPExtInst &I) {
590   // Get the source and destination types
591   const Type *SrcTy = I.getOperand(0)->getType();
592   const Type *DestTy = I.getType();
593
594   // Get the size of the types in bits, we'll need this later
595   unsigned SrcBitSize = SrcTy->getPrimitiveSizeInBits();
596   unsigned DestBitSize = DestTy->getPrimitiveSizeInBits();
597
598   Assert1(SrcTy->isFloatingPoint(),"FPExt only operates on FP", &I);
599   Assert1(DestTy->isFloatingPoint(),"FPExt only produces an FP", &I);
600   Assert1(SrcBitSize < DestBitSize,"DestTy too small for FPExt", &I);
601
602   visitInstruction(I);
603 }
604
605 void Verifier::visitUIToFPInst(UIToFPInst &I) {
606   // Get the source and destination types
607   const Type *SrcTy = I.getOperand(0)->getType();
608   const Type *DestTy = I.getType();
609
610   Assert1(SrcTy->isInteger(),"UInt2FP source must be integral", &I);
611   Assert1(DestTy->isFloatingPoint(),"UInt2FP result must be FP", &I);
612
613   visitInstruction(I);
614 }
615
616 void Verifier::visitSIToFPInst(SIToFPInst &I) {
617   // Get the source and destination types
618   const Type *SrcTy = I.getOperand(0)->getType();
619   const Type *DestTy = I.getType();
620
621   Assert1(SrcTy->isInteger(),"SInt2FP source must be integral", &I);
622   Assert1(DestTy->isFloatingPoint(),"SInt2FP result must be FP", &I);
623
624   visitInstruction(I);
625 }
626
627 void Verifier::visitFPToUIInst(FPToUIInst &I) {
628   // Get the source and destination types
629   const Type *SrcTy = I.getOperand(0)->getType();
630   const Type *DestTy = I.getType();
631
632   Assert1(SrcTy->isFloatingPoint(),"FP2UInt source must be FP", &I);
633   Assert1(DestTy->isInteger(),"FP2UInt result must be integral", &I);
634
635   visitInstruction(I);
636 }
637
638 void Verifier::visitFPToSIInst(FPToSIInst &I) {
639   // Get the source and destination types
640   const Type *SrcTy = I.getOperand(0)->getType();
641   const Type *DestTy = I.getType();
642
643   Assert1(SrcTy->isFloatingPoint(),"FPToSI source must be FP", &I);
644   Assert1(DestTy->isInteger(),"FP2ToI result must be integral", &I);
645
646   visitInstruction(I);
647 }
648
649 void Verifier::visitPtrToIntInst(PtrToIntInst &I) {
650   // Get the source and destination types
651   const Type *SrcTy = I.getOperand(0)->getType();
652   const Type *DestTy = I.getType();
653
654   Assert1(isa<PointerType>(SrcTy), "PtrToInt source must be pointer", &I);
655   Assert1(DestTy->isInteger(), "PtrToInt result must be integral", &I);
656
657   visitInstruction(I);
658 }
659
660 void Verifier::visitIntToPtrInst(IntToPtrInst &I) {
661   // Get the source and destination types
662   const Type *SrcTy = I.getOperand(0)->getType();
663   const Type *DestTy = I.getType();
664
665   Assert1(SrcTy->isInteger(), "IntToPtr source must be an integral", &I);
666   Assert1(isa<PointerType>(DestTy), "IntToPtr result must be a pointer",&I);
667
668   visitInstruction(I);
669 }
670
671 void Verifier::visitBitCastInst(BitCastInst &I) {
672   // Get the source and destination types
673   const Type *SrcTy = I.getOperand(0)->getType();
674   const Type *DestTy = I.getType();
675
676   // Get the size of the types in bits, we'll need this later
677   unsigned SrcBitSize = SrcTy->getPrimitiveSizeInBits();
678   unsigned DestBitSize = DestTy->getPrimitiveSizeInBits();
679
680   // BitCast implies a no-op cast of type only. No bits change.
681   // However, you can't cast pointers to anything but pointers.
682   Assert1(isa<PointerType>(DestTy) == isa<PointerType>(DestTy),
683           "Bitcast requires both operands to be pointer or neither", &I);
684   Assert1(SrcBitSize == DestBitSize, "Bitcast requies types of same width", &I);
685
686   visitInstruction(I);
687 }
688
689 /// visitPHINode - Ensure that a PHI node is well formed.
690 ///
691 void Verifier::visitPHINode(PHINode &PN) {
692   // Ensure that the PHI nodes are all grouped together at the top of the block.
693   // This can be tested by checking whether the instruction before this is
694   // either nonexistent (because this is begin()) or is a PHI node.  If not,
695   // then there is some other instruction before a PHI.
696   Assert2(&PN == &PN.getParent()->front() || 
697           isa<PHINode>(--BasicBlock::iterator(&PN)),
698           "PHI nodes not grouped at top of basic block!",
699           &PN, PN.getParent());
700
701   // Check that all of the operands of the PHI node have the same type as the
702   // result.
703   for (unsigned i = 0, e = PN.getNumIncomingValues(); i != e; ++i)
704     Assert1(PN.getType() == PN.getIncomingValue(i)->getType(),
705             "PHI node operands are not the same type as the result!", &PN);
706
707   // All other PHI node constraints are checked in the visitBasicBlock method.
708
709   visitInstruction(PN);
710 }
711
712 void Verifier::visitCallInst(CallInst &CI) {
713   Assert1(isa<PointerType>(CI.getOperand(0)->getType()),
714           "Called function must be a pointer!", &CI);
715   const PointerType *FPTy = cast<PointerType>(CI.getOperand(0)->getType());
716   Assert1(isa<FunctionType>(FPTy->getElementType()),
717           "Called function is not pointer to function type!", &CI);
718
719   const FunctionType *FTy = cast<FunctionType>(FPTy->getElementType());
720
721   // Verify that the correct number of arguments are being passed
722   if (FTy->isVarArg())
723     Assert1(CI.getNumOperands()-1 >= FTy->getNumParams(),
724             "Called function requires more parameters than were provided!",&CI);
725   else
726     Assert1(CI.getNumOperands()-1 == FTy->getNumParams(),
727             "Incorrect number of arguments passed to called function!", &CI);
728
729   // Verify that all arguments to the call match the function type...
730   for (unsigned i = 0, e = FTy->getNumParams(); i != e; ++i)
731     Assert3(CI.getOperand(i+1)->getType() == FTy->getParamType(i),
732             "Call parameter type does not match function signature!",
733             CI.getOperand(i+1), FTy->getParamType(i), &CI);
734
735   if (Function *F = CI.getCalledFunction())
736     if (Intrinsic::ID ID = (Intrinsic::ID)F->getIntrinsicID())
737       visitIntrinsicFunctionCall(ID, CI);
738
739   visitInstruction(CI);
740 }
741
742 /// visitBinaryOperator - Check that both arguments to the binary operator are
743 /// of the same type!
744 ///
745 void Verifier::visitBinaryOperator(BinaryOperator &B) {
746   Assert1(B.getOperand(0)->getType() == B.getOperand(1)->getType(),
747           "Both operands to a binary operator are not of the same type!", &B);
748
749   switch (B.getOpcode()) {
750   // Check that logical operators are only used with integral operands.
751   case Instruction::And:
752   case Instruction::Or:
753   case Instruction::Xor:
754     Assert1(B.getType()->isInteger() ||
755             (isa<VectorType>(B.getType()) && 
756              cast<VectorType>(B.getType())->getElementType()->isInteger()),
757             "Logical operators only work with integral types!", &B);
758     Assert1(B.getType() == B.getOperand(0)->getType(),
759             "Logical operators must have same type for operands and result!",
760             &B);
761     break;
762   case Instruction::Shl:
763   case Instruction::LShr:
764   case Instruction::AShr:
765     Assert1(B.getType()->isInteger(),
766             "Shift must return an integer result!", &B);
767     Assert1(B.getType() == B.getOperand(0)->getType(),
768             "Shift return type must be same as operands!", &B);
769     /* FALL THROUGH */
770   default:
771     // Arithmetic operators only work on integer or fp values
772     Assert1(B.getType() == B.getOperand(0)->getType(),
773             "Arithmetic operators must have same type for operands and result!",
774             &B);
775     Assert1(B.getType()->isInteger() || B.getType()->isFloatingPoint() ||
776             isa<VectorType>(B.getType()),
777             "Arithmetic operators must have integer, fp, or vector type!", &B);
778     break;
779   }
780
781   visitInstruction(B);
782 }
783
784 void Verifier::visitICmpInst(ICmpInst& IC) {
785   // Check that the operands are the same type
786   const Type* Op0Ty = IC.getOperand(0)->getType();
787   const Type* Op1Ty = IC.getOperand(1)->getType();
788   Assert1(Op0Ty == Op1Ty,
789           "Both operands to ICmp instruction are not of the same type!", &IC);
790   // Check that the operands are the right type
791   Assert1(Op0Ty->isInteger() || isa<PointerType>(Op0Ty),
792           "Invalid operand types for ICmp instruction", &IC);
793   visitInstruction(IC);
794 }
795
796 void Verifier::visitFCmpInst(FCmpInst& FC) {
797   // Check that the operands are the same type
798   const Type* Op0Ty = FC.getOperand(0)->getType();
799   const Type* Op1Ty = FC.getOperand(1)->getType();
800   Assert1(Op0Ty == Op1Ty,
801           "Both operands to FCmp instruction are not of the same type!", &FC);
802   // Check that the operands are the right type
803   Assert1(Op0Ty->isFloatingPoint(),
804           "Invalid operand types for FCmp instruction", &FC);
805   visitInstruction(FC);
806 }
807
808 void Verifier::visitExtractElementInst(ExtractElementInst &EI) {
809   Assert1(ExtractElementInst::isValidOperands(EI.getOperand(0),
810                                               EI.getOperand(1)),
811           "Invalid extractelement operands!", &EI);
812   visitInstruction(EI);
813 }
814
815 void Verifier::visitInsertElementInst(InsertElementInst &IE) {
816   Assert1(InsertElementInst::isValidOperands(IE.getOperand(0),
817                                              IE.getOperand(1),
818                                              IE.getOperand(2)),
819           "Invalid insertelement operands!", &IE);
820   visitInstruction(IE);
821 }
822
823 void Verifier::visitShuffleVectorInst(ShuffleVectorInst &SV) {
824   Assert1(ShuffleVectorInst::isValidOperands(SV.getOperand(0), SV.getOperand(1),
825                                              SV.getOperand(2)),
826           "Invalid shufflevector operands!", &SV);
827   Assert1(SV.getType() == SV.getOperand(0)->getType(),
828           "Result of shufflevector must match first operand type!", &SV);
829   
830   // Check to see if Mask is valid.
831   if (const ConstantVector *MV = dyn_cast<ConstantVector>(SV.getOperand(2))) {
832     for (unsigned i = 0, e = MV->getNumOperands(); i != e; ++i) {
833       Assert1(isa<ConstantInt>(MV->getOperand(i)) ||
834               isa<UndefValue>(MV->getOperand(i)),
835               "Invalid shufflevector shuffle mask!", &SV);
836     }
837   } else {
838     Assert1(isa<UndefValue>(SV.getOperand(2)) || 
839             isa<ConstantAggregateZero>(SV.getOperand(2)),
840             "Invalid shufflevector shuffle mask!", &SV);
841   }
842   
843   visitInstruction(SV);
844 }
845
846 void Verifier::visitGetElementPtrInst(GetElementPtrInst &GEP) {
847   SmallVector<Value*, 16> Idxs(GEP.idx_begin(), GEP.idx_end());
848   const Type *ElTy =
849     GetElementPtrInst::getIndexedType(GEP.getOperand(0)->getType(),
850                                       &Idxs[0], Idxs.size(), true);
851   Assert1(ElTy, "Invalid indices for GEP pointer type!", &GEP);
852   Assert2(isa<PointerType>(GEP.getType()) &&
853           cast<PointerType>(GEP.getType())->getElementType() == ElTy,
854           "GEP is not of right type for indices!", &GEP, ElTy);
855   visitInstruction(GEP);
856 }
857
858 void Verifier::visitLoadInst(LoadInst &LI) {
859   const Type *ElTy =
860     cast<PointerType>(LI.getOperand(0)->getType())->getElementType();
861   Assert2(ElTy == LI.getType(),
862           "Load result type does not match pointer operand type!", &LI, ElTy);
863   visitInstruction(LI);
864 }
865
866 void Verifier::visitStoreInst(StoreInst &SI) {
867   const Type *ElTy =
868     cast<PointerType>(SI.getOperand(1)->getType())->getElementType();
869   Assert2(ElTy == SI.getOperand(0)->getType(),
870           "Stored value type does not match pointer operand type!", &SI, ElTy);
871   visitInstruction(SI);
872 }
873
874
875 /// verifyInstruction - Verify that an instruction is well formed.
876 ///
877 void Verifier::visitInstruction(Instruction &I) {
878   BasicBlock *BB = I.getParent();
879   Assert1(BB, "Instruction not embedded in basic block!", &I);
880
881   if (!isa<PHINode>(I)) {   // Check that non-phi nodes are not self referential
882     for (Value::use_iterator UI = I.use_begin(), UE = I.use_end();
883          UI != UE; ++UI)
884       Assert1(*UI != (User*)&I ||
885               !DT->dominates(&BB->getParent()->getEntryBlock(), BB),
886               "Only PHI nodes may reference their own value!", &I);
887   }
888
889   // Check that void typed values don't have names
890   Assert1(I.getType() != Type::VoidTy || !I.hasName(),
891           "Instruction has a name, but provides a void value!", &I);
892
893   // Check that the return value of the instruction is either void or a legal
894   // value type.
895   Assert1(I.getType() == Type::VoidTy || I.getType()->isFirstClassType(),
896           "Instruction returns a non-scalar type!", &I);
897
898   // Check that all uses of the instruction, if they are instructions
899   // themselves, actually have parent basic blocks.  If the use is not an
900   // instruction, it is an error!
901   for (User::use_iterator UI = I.use_begin(), UE = I.use_end();
902        UI != UE; ++UI) {
903     Assert1(isa<Instruction>(*UI), "Use of instruction is not an instruction!",
904             *UI);
905     Instruction *Used = cast<Instruction>(*UI);
906     Assert2(Used->getParent() != 0, "Instruction referencing instruction not"
907             " embeded in a basic block!", &I, Used);
908   }
909
910   for (unsigned i = 0, e = I.getNumOperands(); i != e; ++i) {
911     Assert1(I.getOperand(i) != 0, "Instruction has null operand!", &I);
912
913     // Check to make sure that only first-class-values are operands to
914     // instructions.
915     Assert1(I.getOperand(i)->getType()->isFirstClassType(),
916             "Instruction operands must be first-class values!", &I);
917   
918     if (Function *F = dyn_cast<Function>(I.getOperand(i))) {
919       // Check to make sure that the "address of" an intrinsic function is never
920       // taken.
921       Assert1(!F->isIntrinsic() || (i == 0 && isa<CallInst>(I)),
922               "Cannot take the address of an intrinsic!", &I);
923       Assert1(F->getParent() == Mod, "Referencing function in another module!",
924               &I);
925     } else if (BasicBlock *OpBB = dyn_cast<BasicBlock>(I.getOperand(i))) {
926       Assert1(OpBB->getParent() == BB->getParent(),
927               "Referring to a basic block in another function!", &I);
928     } else if (Argument *OpArg = dyn_cast<Argument>(I.getOperand(i))) {
929       Assert1(OpArg->getParent() == BB->getParent(),
930               "Referring to an argument in another function!", &I);
931     } else if (GlobalValue *GV = dyn_cast<GlobalValue>(I.getOperand(i))) {
932       Assert1(GV->getParent() == Mod, "Referencing global in another module!",
933               &I);
934     } else if (Instruction *Op = dyn_cast<Instruction>(I.getOperand(i))) {
935       BasicBlock *OpBlock = Op->getParent();
936
937       // Check that a definition dominates all of its uses.
938       if (!isa<PHINode>(I)) {
939         // Invoke results are only usable in the normal destination, not in the
940         // exceptional destination.
941         if (InvokeInst *II = dyn_cast<InvokeInst>(Op)) {
942           OpBlock = II->getNormalDest();
943           
944           Assert2(OpBlock != II->getUnwindDest(),
945                   "No uses of invoke possible due to dominance structure!",
946                   Op, II);
947           
948           // If the normal successor of an invoke instruction has multiple
949           // predecessors, then the normal edge from the invoke is critical, so
950           // the invoke value can only be live if the destination block
951           // dominates all of it's predecessors (other than the invoke) or if
952           // the invoke value is only used by a phi in the successor.
953           if (!OpBlock->getSinglePredecessor() &&
954               DT->dominates(&BB->getParent()->getEntryBlock(), BB)) {
955             // The first case we allow is if the use is a PHI operand in the
956             // normal block, and if that PHI operand corresponds to the invoke's
957             // block.
958             bool Bad = true;
959             if (PHINode *PN = dyn_cast<PHINode>(&I))
960               if (PN->getParent() == OpBlock &&
961                   PN->getIncomingBlock(i/2) == Op->getParent())
962                 Bad = false;
963             
964             // If it is used by something non-phi, then the other case is that
965             // 'OpBlock' dominates all of its predecessors other than the
966             // invoke.  In this case, the invoke value can still be used.
967             if (Bad) {
968               Bad = false;
969               for (pred_iterator PI = pred_begin(OpBlock),
970                    E = pred_end(OpBlock); PI != E; ++PI) {
971                 if (*PI != II->getParent() && !DT->dominates(OpBlock, *PI)) {
972                   Bad = true;
973                   break;
974                 }
975               }
976             }
977             Assert2(!Bad,
978                     "Invoke value defined on critical edge but not dead!", &I,
979                     Op);
980           }
981         } else if (OpBlock == BB) {
982           // If they are in the same basic block, make sure that the definition
983           // comes before the use.
984           Assert2(InstsInThisBlock.count(Op) ||
985                   !DT->dominates(&BB->getParent()->getEntryBlock(), BB),
986                   "Instruction does not dominate all uses!", Op, &I);
987         }
988
989         // Definition must dominate use unless use is unreachable!
990         Assert2(DT->dominates(OpBlock, BB) ||
991                 !DT->dominates(&BB->getParent()->getEntryBlock(), BB),
992                 "Instruction does not dominate all uses!", Op, &I);
993       } else {
994         // PHI nodes are more difficult than other nodes because they actually
995         // "use" the value in the predecessor basic blocks they correspond to.
996         BasicBlock *PredBB = cast<BasicBlock>(I.getOperand(i+1));
997         Assert2(DT->dominates(OpBlock, PredBB) ||
998                 !DT->dominates(&BB->getParent()->getEntryBlock(), PredBB),
999                 "Instruction does not dominate all uses!", Op, &I);
1000       }
1001     } else if (isa<InlineAsm>(I.getOperand(i))) {
1002       Assert1(i == 0 && isa<CallInst>(I),
1003               "Cannot take the address of an inline asm!", &I);
1004     }
1005   }
1006   InstsInThisBlock.insert(&I);
1007 }
1008
1009 /// visitIntrinsicFunction - Allow intrinsics to be verified in different ways.
1010 ///
1011 void Verifier::visitIntrinsicFunctionCall(Intrinsic::ID ID, CallInst &CI) {
1012   Function *IF = CI.getCalledFunction();
1013   Assert1(IF->isDeclaration(), "Intrinsic functions should never be defined!",
1014           IF);
1015   
1016 #define GET_INTRINSIC_VERIFIER
1017 #include "llvm/Intrinsics.gen"
1018 #undef GET_INTRINSIC_VERIFIER
1019 }
1020
1021 /// VerifyIntrinsicPrototype - TableGen emits calls to this function into
1022 /// Intrinsics.gen.  This implements a little state machine that verifies the
1023 /// prototype of intrinsics.
1024 void Verifier::VerifyIntrinsicPrototype(Intrinsic::ID ID, Function *F, ...) {
1025   va_list VA;
1026   va_start(VA, F);
1027   
1028   const FunctionType *FTy = F->getFunctionType();
1029   
1030   // For overloaded intrinsics, the Suffix of the function name must match the
1031   // types of the arguments. This variable keeps track of the expected
1032   // suffix, to be checked at the end.
1033   std::string Suffix;
1034
1035   // Note that "arg#0" is the return type.
1036   for (unsigned ArgNo = 0; 1; ++ArgNo) {
1037     int TypeID = va_arg(VA, int);
1038
1039     if (TypeID == -2) {
1040       break;
1041     }
1042
1043     if (TypeID == -1) {
1044       if (ArgNo != FTy->getNumParams()+1)
1045         CheckFailed("Intrinsic prototype has too many arguments!", F);
1046       break;
1047     }
1048
1049     if (ArgNo == FTy->getNumParams()+1) {
1050       CheckFailed("Intrinsic prototype has too few arguments!", F);
1051       break;
1052     }
1053     
1054     const Type *Ty;
1055     if (ArgNo == 0)
1056       Ty = FTy->getReturnType();
1057     else
1058       Ty = FTy->getParamType(ArgNo-1);
1059     
1060     if (TypeID != Ty->getTypeID()) {
1061       if (ArgNo == 0)
1062         CheckFailed("Intrinsic prototype has incorrect result type!", F);
1063       else
1064         CheckFailed("Intrinsic parameter #" + utostr(ArgNo-1) + " is wrong!",F);
1065       break;
1066     }
1067
1068     if (TypeID == Type::IntegerTyID) {
1069       unsigned ExpectedBits = (unsigned) va_arg(VA, int);
1070       unsigned GotBits = cast<IntegerType>(Ty)->getBitWidth();
1071       if (ExpectedBits == 0) {
1072         Suffix += ".i" + utostr(GotBits);
1073       } else if (GotBits != ExpectedBits) {
1074         std::string bitmsg = " Expected " + utostr(ExpectedBits) + " but got "+
1075                              utostr(GotBits) + " bits.";
1076         if (ArgNo == 0)
1077           CheckFailed("Intrinsic prototype has incorrect integer result width!"
1078                       + bitmsg, F);
1079         else
1080           CheckFailed("Intrinsic parameter #" + utostr(ArgNo-1) + " has "
1081                       "incorrect integer width!" + bitmsg, F);
1082         break;
1083       }
1084       // Check some constraints on various intrinsics.
1085       switch (ID) {
1086         default: break; // Not everything needs to be checked.
1087         case Intrinsic::bswap:
1088           if (GotBits < 16 || GotBits % 16 != 0)
1089             CheckFailed("Intrinsic requires even byte width argument", F);
1090           /* FALL THROUGH */
1091         case Intrinsic::part_set:
1092         case Intrinsic::part_select:
1093           if (ArgNo == 1) {
1094             unsigned ResultBits = 
1095               cast<IntegerType>(FTy->getReturnType())->getBitWidth();
1096             if (GotBits != ResultBits)
1097               CheckFailed("Intrinsic requires the bit widths of the first "
1098                           "parameter and the result to match", F);
1099           }
1100           break;
1101       }
1102     } else if (TypeID == Type::VectorTyID) {
1103       // If this is a packed argument, verify the number and type of elements.
1104       const VectorType *PTy = cast<VectorType>(Ty);
1105       int ElemTy = va_arg(VA, int);
1106       if (ElemTy != PTy->getElementType()->getTypeID()) {
1107         CheckFailed("Intrinsic prototype has incorrect vector element type!",
1108                     F);
1109         break;
1110       }
1111       if (ElemTy == Type::IntegerTyID) {
1112         unsigned NumBits = (unsigned)va_arg(VA, int);
1113         unsigned ExpectedBits = 
1114           cast<IntegerType>(PTy->getElementType())->getBitWidth();
1115         if (NumBits != ExpectedBits) {
1116           CheckFailed("Intrinsic prototype has incorrect vector element type!",
1117                       F);
1118           break;
1119         }
1120       }
1121       if ((unsigned)va_arg(VA, int) != PTy->getNumElements()) {
1122         CheckFailed("Intrinsic prototype has incorrect number of "
1123                     "vector elements!",F);
1124           break;
1125       }
1126     }
1127   }
1128
1129   va_end(VA);
1130
1131   // If we computed a Suffix then the intrinsic is overloaded and we need to 
1132   // make sure that the name of the function is correct. We add the suffix to
1133   // the name of the intrinsic and compare against the given function name. If
1134   // they are not the same, the function name is invalid. This ensures that
1135   // overloading of intrinsics uses a sane and consistent naming convention.
1136   if (!Suffix.empty()) {
1137     std::string Name(Intrinsic::getName(ID));
1138     if (Name + Suffix != F->getName())
1139       CheckFailed("Overloaded intrinsic has incorrect suffix: '" +
1140                   F->getName().substr(Name.length()) + "'. It should be '" +
1141                   Suffix + "'", F);
1142   }
1143 }
1144
1145
1146 //===----------------------------------------------------------------------===//
1147 //  Implement the public interfaces to this file...
1148 //===----------------------------------------------------------------------===//
1149
1150 FunctionPass *llvm::createVerifierPass(VerifierFailureAction action) {
1151   return new Verifier(action);
1152 }
1153
1154
1155 // verifyFunction - Create
1156 bool llvm::verifyFunction(const Function &f, VerifierFailureAction action) {
1157   Function &F = const_cast<Function&>(f);
1158   assert(!F.isDeclaration() && "Cannot verify external functions");
1159
1160   FunctionPassManager FPM(new ExistingModuleProvider(F.getParent()));
1161   Verifier *V = new Verifier(action);
1162   FPM.add(V);
1163   FPM.run(F);
1164   return V->Broken;
1165 }
1166
1167 /// verifyModule - Check a module for errors, printing messages on stderr.
1168 /// Return true if the module is corrupt.
1169 ///
1170 bool llvm::verifyModule(const Module &M, VerifierFailureAction action,
1171                         std::string *ErrorInfo) {
1172   PassManager PM;
1173   Verifier *V = new Verifier(action);
1174   PM.add(V);
1175   PM.run((Module&)M);
1176   
1177   if (ErrorInfo && V->Broken)
1178     *ErrorInfo = V->msgs.str();
1179   return V->Broken;
1180 }
1181
1182 // vim: sw=2