-/// ExtractGlobalVariable - If V is a global variable, or a bitcast of one
-/// (possibly constant folded), return it. Otherwise return NULL.
-static GlobalVariable *ExtractGlobalVariable (Value *V) {
- if (GlobalVariable *GV = dyn_cast<GlobalVariable>(V))
- return GV;
- else if (ConstantExpr *CE = dyn_cast<ConstantExpr>(V)) {
- if (CE->getOpcode() == Instruction::BitCast)
- return dyn_cast<GlobalVariable>(CE->getOperand(0));
- else if (CE->getOpcode() == Instruction::GetElementPtr) {
- for (unsigned i = 1, e = CE->getNumOperands(); i != e; ++i)
- if (!CE->getOperand(i)->isNullValue())
- return NULL;
- return dyn_cast<GlobalVariable>(CE->getOperand(0));
- }
- }
- return NULL;
-}
-
-/// ExtractTypeInfo - Extracts the type info from a value.