Fixed the dynamic generation of the list of subdirectories to compile.
[oota-llvm.git] / lib / VMCore / Constants.cpp
index 20f99134892976e8b25d04574b09715276648482..2a9af77ef6adbef39f758a63c8bc2dced5af85ac 100644 (file)
@@ -1,4 +1,11 @@
 //===-- Constants.cpp - Implement Constant nodes --------------------------===//
+// 
+//                     The LLVM Compiler Infrastructure
+//
+// This file was developed by the LLVM research group and is distributed under
+// the University of Illinois Open Source License. See LICENSE.TXT for details.
+// 
+//===----------------------------------------------------------------------===//
 //
 // This file implements the Constant* classes...
 //
@@ -12,6 +19,7 @@
 #include "llvm/Module.h"
 #include "Support/StringExtras.h"
 #include <algorithm>
+using namespace llvm;
 
 ConstantBool *ConstantBool::True  = new ConstantBool(true);
 ConstantBool *ConstantBool::False = new ConstantBool(false);
@@ -59,25 +67,57 @@ void Constant::destroyConstantImpl() {
 // Static constructor to create a '0' constant of arbitrary type...
 Constant *Constant::getNullValue(const Type *Ty) {
   switch (Ty->getPrimitiveID()) {
-  case Type::BoolTyID:   return ConstantBool::get(false);
-  case Type::SByteTyID:
-  case Type::ShortTyID:
-  case Type::IntTyID:
-  case Type::LongTyID:   return ConstantSInt::get(Ty, 0);
-
-  case Type::UByteTyID:
-  case Type::UShortTyID:
-  case Type::UIntTyID:
-  case Type::ULongTyID:  return ConstantUInt::get(Ty, 0);
+  case Type::BoolTyID: {
+    static Constant *NullBool = ConstantBool::get(false);
+    return NullBool;
+  }
+  case Type::SByteTyID: {
+    static Constant *NullSByte = ConstantSInt::get(Type::SByteTy, 0);
+    return NullSByte;
+  }
+  case Type::UByteTyID: {
+    static Constant *NullUByte = ConstantUInt::get(Type::UByteTy, 0);
+    return NullUByte;
+  }
+  case Type::ShortTyID: {
+    static Constant *NullShort = ConstantSInt::get(Type::ShortTy, 0);
+    return NullShort;
+  }
+  case Type::UShortTyID: {
+    static Constant *NullUShort = ConstantUInt::get(Type::UShortTy, 0);
+    return NullUShort;
+  }
+  case Type::IntTyID: {
+    static Constant *NullInt = ConstantSInt::get(Type::IntTy, 0);
+    return NullInt;
+  }
+  case Type::UIntTyID: {
+    static Constant *NullUInt = ConstantUInt::get(Type::UIntTy, 0);
+    return NullUInt;
+  }
+  case Type::LongTyID: {
+    static Constant *NullLong = ConstantSInt::get(Type::LongTy, 0);
+    return NullLong;
+  }
+  case Type::ULongTyID: {
+    static Constant *NullULong = ConstantUInt::get(Type::ULongTy, 0);
+    return NullULong;
+  }
 
-  case Type::FloatTyID:
-  case Type::DoubleTyID: return ConstantFP::get(Ty, 0);
+  case Type::FloatTyID: {
+    static Constant *NullFloat = ConstantFP::get(Type::FloatTy, 0);
+    return NullFloat;
+  }
+  case Type::DoubleTyID: {
+    static Constant *NullDouble = ConstantFP::get(Type::DoubleTy, 0);
+    return NullDouble;
+  }
 
   case Type::PointerTyID: 
     return ConstantPointerNull::get(cast<PointerType>(Ty));
+
   case Type::StructTyID: {
     const StructType *ST = cast<StructType>(Ty);
-
     const StructType::ElementTypes &ETs = ST->getElementTypes();
     std::vector<Constant*> Elements;
     Elements.resize(ETs.size());
@@ -229,7 +269,7 @@ ConstantStruct::ConstantStruct(const StructType *T,
   Operands.reserve(V.size());
   for (unsigned i = 0, e = V.size(); i != e; ++i) {
     assert((V[i]->getType() == ETypes[i] ||
-            (ETypes[i]->isAbstract() &&
+            ((ETypes[i]->isAbstract() || V[i]->getType()->isAbstract()) &&
              ETypes[i]->getPrimitiveID()==V[i]->getType()->getPrimitiveID())) &&
            "Initializer for struct element doesn't match struct element type!");
     Operands.push_back(Use(V[i], this));
@@ -237,7 +277,7 @@ ConstantStruct::ConstantStruct(const StructType *T,
 }
 
 ConstantPointerRef::ConstantPointerRef(GlobalValue *GV)
-  : ConstantPointer(GV->getType()) {
+  : Constant(GV->getType()) {
   Operands.push_back(Use(GV, this));
 }
 
@@ -296,8 +336,15 @@ bool ConstantArray::classof(const Constant *CPV) {
 bool ConstantStruct::classof(const Constant *CPV) {
   return isa<StructType>(CPV->getType()) && !isa<ConstantExpr>(CPV);
 }
-bool ConstantPointer::classof(const Constant *CPV) {
-  return (isa<PointerType>(CPV->getType()) && !isa<ConstantExpr>(CPV));
+
+bool ConstantPointerNull::classof(const Constant *CPV) {
+  return isa<PointerType>(CPV->getType()) && !isa<ConstantExpr>(CPV) &&
+         CPV->getNumOperands() == 0;
+}
+
+bool ConstantPointerRef::classof(const Constant *CPV) {
+  return isa<PointerType>(CPV->getType()) && !isa<ConstantExpr>(CPV) &&
+         CPV->getNumOperands() == 1;
 }
 
 
@@ -454,6 +501,13 @@ void ConstantExpr::replaceUsesOfWithOnConstant(Value *From, Value *ToV,
   } else if (getOpcode() == Instruction::Cast) {
     assert(getOperand(0) == From && "Cast only has one use!");
     Replacement = ConstantExpr::getCast(To, getType());
+  } else if (getOpcode() == Instruction::Shl ||
+             getOpcode() == Instruction::Shr) {
+    Constant *C1 = getOperand(0);
+    Constant *C2 = getOperand(1);
+    if (C1 == From) C1 = To;
+    if (C2 == From) C2 = To;
+    Replacement = ConstantExpr::getShift(getOpcode(), C1, C2);
   } else if (getNumOperands() == 2) {
     Constant *C1 = getOperand(0);
     Constant *C2 = getOperand(1);
@@ -485,26 +539,39 @@ void ConstantExpr::replaceUsesOfWithOnConstant(Value *From, Value *ToV,
 // something strange that needs to be done to interface to the ctor for the
 // constant.
 //
-template<class ConstantClass, class TypeClass, class ValType>
-struct ConstantCreator {
-  static ConstantClass *create(const TypeClass *Ty, const ValType &V) {
-    return new ConstantClass(Ty, V);
-  }
-};
+namespace llvm {
+  template<class ConstantClass, class TypeClass, class ValType>
+  struct ConstantCreator {
+    static ConstantClass *create(const TypeClass *Ty, const ValType &V) {
+      return new ConstantClass(Ty, V);
+    }
+  };
+  
+  template<class ConstantClass, class TypeClass>
+  struct ConvertConstantType {
+    static void convert(ConstantClass *OldC, const TypeClass *NewTy) {
+      assert(0 && "This type cannot be converted!\n");
+      abort();
+    }
+  };
+}
 
 namespace {
   template<class ValType, class TypeClass, class ConstantClass>
-  class ValueMap {
-  protected:
-    typedef std::pair<const TypeClass*, ValType> ConstHashKey;
-    std::map<ConstHashKey, ConstantClass *> Map;
+  class ValueMap : public AbstractTypeUser {
+    typedef std::pair<const TypeClass*, ValType> MapKey;
+    typedef std::map<MapKey, ConstantClass *> MapTy;
+    typedef typename MapTy::iterator MapIterator;
+    MapTy Map;
+
+    typedef std::map<const TypeClass*, MapIterator> AbstractTypeMapTy;
+    AbstractTypeMapTy AbstractTypeMap;
   public:
     // getOrCreate - Return the specified constant from the map, creating it if
     // necessary.
     ConstantClass *getOrCreate(const TypeClass *Ty, const ValType &V) {
-      ConstHashKey Lookup(Ty, V);
-      typename std::map<ConstHashKey,ConstantClass *>::iterator I =
-        Map.lower_bound(Lookup);
+      MapKey Lookup(Ty, V);
+      MapIterator I = Map.lower_bound(Lookup);
       if (I != Map.end() && I->first == Lookup)
         return I->second;  // Is it in the map?
 
@@ -512,20 +579,105 @@ namespace {
       ConstantClass *Result =
         ConstantCreator<ConstantClass,TypeClass,ValType>::create(Ty, V);
 
-      Map.insert(I, std::make_pair(ConstHashKey(Ty, V), Result));
+
+      /// FIXME: why does this assert fail when loading 176.gcc?
+      //assert(Result->getType() == Ty && "Type specified is not correct!");
+      I = Map.insert(I, std::make_pair(MapKey(Ty, V), Result));
+
+      // If the type of the constant is abstract, make sure that an entry exists
+      // for it in the AbstractTypeMap.
+      if (Ty->isAbstract()) {
+        typename AbstractTypeMapTy::iterator TI =
+          AbstractTypeMap.lower_bound(Ty);
+
+        if (TI == AbstractTypeMap.end() || TI->first != Ty) {
+          // Add ourselves to the ATU list of the type.
+          cast<DerivedType>(Ty)->addAbstractTypeUser(this);
+
+          AbstractTypeMap.insert(TI, std::make_pair(Ty, I));
+        }
+      }
       return Result;
     }
     
     void remove(ConstantClass *CP) {
-      // FIXME: This could be sped up a LOT.  If this gets to be a performance
-      // problem, someone should look at this.
-      for (typename std::map<ConstHashKey, ConstantClass*>::iterator
-             I = Map.begin(), E = Map.end(); I != E; ++I)
-        if (I->second == CP) {
-          Map.erase(I);
-          return;
+      // FIXME: This should not use a linear scan.  If this gets to be a
+      // performance problem, someone should look at this.
+      MapIterator I = Map.begin();
+      for (MapIterator E = Map.end(); I != E && I->second != CP; ++I)
+        /* empty */;
+      
+      assert(I != Map.end() && "Constant not found in constant table!");
+
+      // Now that we found the entry, make sure this isn't the entry that
+      // the AbstractTypeMap points to.
+      const TypeClass *Ty = I->first.first;
+      if (Ty->isAbstract()) {
+        assert(AbstractTypeMap.count(Ty) &&
+               "Abstract type not in AbstractTypeMap?");
+        MapIterator &ATMEntryIt = AbstractTypeMap[Ty];
+        if (ATMEntryIt == I) {
+          // Yes, we are removing the representative entry for this type.
+          // See if there are any other entries of the same type.
+          MapIterator TmpIt = ATMEntryIt;
+          
+          // First check the entry before this one...
+          if (TmpIt != Map.begin()) {
+            --TmpIt;
+            if (TmpIt->first.first != Ty) // Not the same type, move back...
+              ++TmpIt;
+          }
+          
+          // If we didn't find the same type, try to move forward...
+          if (TmpIt == ATMEntryIt) {
+            ++TmpIt;
+            if (TmpIt == Map.end() || TmpIt->first.first != Ty)
+              --TmpIt;   // No entry afterwards with the same type
+          }
+
+          // If there is another entry in the map of the same abstract type,
+          // update the AbstractTypeMap entry now.
+          if (TmpIt != ATMEntryIt) {
+            ATMEntryIt = TmpIt;
+          } else {
+            // Otherwise, we are removing the last instance of this type
+            // from the table.  Remove from the ATM, and from user list.
+            cast<DerivedType>(Ty)->removeAbstractTypeUser(this);
+            AbstractTypeMap.erase(Ty);
+          }
         }
-      assert(0 && "Constant not found in constant table!");
+      }
+      
+      Map.erase(I);
+    }
+
+    void refineAbstractType(const DerivedType *OldTy, const Type *NewTy) {
+      typename AbstractTypeMapTy::iterator I = 
+        AbstractTypeMap.find(cast<TypeClass>(OldTy));
+
+      assert(I != AbstractTypeMap.end() &&
+             "Abstract type not in AbstractTypeMap?");
+
+      // Convert a constant at a time until the last one is gone.  The last one
+      // leaving will remove() itself, causing the AbstractTypeMapEntry to be
+      // eliminated eventually.
+      do {
+        ConvertConstantType<ConstantClass,
+                            TypeClass>::convert(I->second->second,
+                                                cast<TypeClass>(NewTy));
+
+        I = AbstractTypeMap.find(cast<TypeClass>(OldTy));
+      } while (I != AbstractTypeMap.end());
+    }
+
+    // If the type became concrete without being refined to any other existing
+    // type, we just remove ourselves from the ATU list.
+    void typeBecameConcrete(const DerivedType *AbsTy) {
+      AbsTy->removeAbstractTypeUser(this);
+    }
+
+    void dump() const {
+      std::cerr << "Constant.cpp: ValueMap\n";
     }
   };
 }
@@ -561,6 +713,22 @@ ConstantFP *ConstantFP::get(const Type *Ty, double V) {
 
 //---- ConstantArray::get() implementation...
 //
+namespace llvm {
+  template<>
+  struct ConvertConstantType<ConstantArray, ArrayType> {
+    static void convert(ConstantArray *OldC, const ArrayType *NewTy) {
+      // Make everyone now use a constant of the new type...
+      std::vector<Constant*> C;
+      for (unsigned i = 0, e = OldC->getNumOperands(); i != e; ++i)
+        C.push_back(cast<Constant>(OldC->getOperand(i)));
+      Constant *New = ConstantArray::get(NewTy, C);
+      assert(New != OldC && "Didn't replace constant??");
+      OldC->uncheckedReplaceAllUsesWith(New);
+      OldC->destroyConstant();    // This constant is now dead, destroy it.
+    }
+  };
+}
+
 static ValueMap<std::vector<Constant*>, ArrayType,
                 ConstantArray> ArrayConstants;
 
@@ -576,26 +744,6 @@ void ConstantArray::destroyConstant() {
   destroyConstantImpl();
 }
 
-/// refineAbstractType - If this callback is invoked, then this constant is of a
-/// derived type, change all users to use a concrete constant of the new type.
-///
-void ConstantArray::refineAbstractType(const DerivedType *OldTy,
-                                       const Type *NewTy) {
-  Value::refineAbstractType(OldTy, NewTy);
-  if (OldTy == NewTy) return;
-
-  // Make everyone now use a constant of the new type...
-  std::vector<Constant*> C;
-  for (unsigned i = 0, e = getNumOperands(); i != e; ++i)
-    C.push_back(cast<Constant>(getOperand(i)));
-  Constant *New = ConstantArray::get(cast<ArrayType>(NewTy), C);
-  if (New != this) {
-    uncheckedReplaceAllUsesWith(New);
-    destroyConstant();    // This constant is now dead, destroy it.
-  }
-}
-
-
 // ConstantArray::get(const string&) - Return an array that is initialized to
 // contain the specified string.  A null terminator is added to the specified
 // string so that it may be used in a natural way...
@@ -630,6 +778,24 @@ std::string ConstantArray::getAsString() const {
 
 //---- ConstantStruct::get() implementation...
 //
+
+namespace llvm {
+  template<>
+  struct ConvertConstantType<ConstantStruct, StructType> {
+    static void convert(ConstantStruct *OldC, const StructType *NewTy) {
+      // Make everyone now use a constant of the new type...
+      std::vector<Constant*> C;
+      for (unsigned i = 0, e = OldC->getNumOperands(); i != e; ++i)
+        C.push_back(cast<Constant>(OldC->getOperand(i)));
+      Constant *New = ConstantStruct::get(NewTy, C);
+      assert(New != OldC && "Didn't replace constant??");
+      
+      OldC->uncheckedReplaceAllUsesWith(New);
+      OldC->destroyConstant();    // This constant is now dead, destroy it.
+    }
+  };
+}
+
 static ValueMap<std::vector<Constant*>, StructType, 
                 ConstantStruct> StructConstants;
 
@@ -645,36 +811,29 @@ void ConstantStruct::destroyConstant() {
   destroyConstantImpl();
 }
 
-/// refineAbstractType - If this callback is invoked, then this constant is of a
-/// derived type, change all users to use a concrete constant of the new type.
-///
-void ConstantStruct::refineAbstractType(const DerivedType *OldTy,
-                                        const Type *NewTy) {
-  Value::refineAbstractType(OldTy, NewTy);
-  if (OldTy == NewTy) return;
-
-  // Make everyone now use a constant of the new type...
-  std::vector<Constant*> C;
-  for (unsigned i = 0, e = getNumOperands(); i != e; ++i)
-    C.push_back(cast<Constant>(getOperand(i)));
-  Constant *New = ConstantStruct::get(cast<StructType>(NewTy), C);
-  if (New != this) {
-    uncheckedReplaceAllUsesWith(New);
-    destroyConstant();    // This constant is now dead, destroy it.
-  }
-}
-
-
 //---- ConstantPointerNull::get() implementation...
 //
 
-// ConstantPointerNull does not take extra "value" argument...
-template<class ValType>
-struct ConstantCreator<ConstantPointerNull, PointerType, ValType> {
-  static ConstantPointerNull *create(const PointerType *Ty, const ValType &V){
-    return new ConstantPointerNull(Ty);
-  }
-};
+namespace llvm {
+  // ConstantPointerNull does not take extra "value" argument...
+  template<class ValType>
+  struct ConstantCreator<ConstantPointerNull, PointerType, ValType> {
+    static ConstantPointerNull *create(const PointerType *Ty, const ValType &V){
+      return new ConstantPointerNull(Ty);
+    }
+  };
+
+  template<>
+  struct ConvertConstantType<ConstantPointerNull, PointerType> {
+    static void convert(ConstantPointerNull *OldC, const PointerType *NewTy) {
+      // Make everyone now use a constant of the new type...
+      Constant *New = ConstantPointerNull::get(NewTy);
+      assert(New != OldC && "Didn't replace constant??");
+      OldC->uncheckedReplaceAllUsesWith(New);
+      OldC->destroyConstant();     // This constant is now dead, destroy it.
+    }
+  };
+}
 
 static ValueMap<char, PointerType, ConstantPointerNull> NullPtrConstants;
 
@@ -689,25 +848,6 @@ void ConstantPointerNull::destroyConstant() {
   destroyConstantImpl();
 }
 
-/// refineAbstractType - If this callback is invoked, then this constant is of a
-/// derived type, change all users to use a concrete constant of the new type.
-///
-void ConstantPointerNull::refineAbstractType(const DerivedType *OldTy,
-                                             const Type *NewTy) {
-  Value::refineAbstractType(OldTy, NewTy);
-  if (OldTy == NewTy) return;
-
-  // Make everyone now use a constant of the new type...
-  Constant *New = ConstantPointerNull::get(cast<PointerType>(NewTy));
-  if (New != this) {
-    uncheckedReplaceAllUsesWith(New);
-    
-    // This constant is now dead, destroy it.
-    destroyConstant();
-  }
-}
-
-
 
 //---- ConstantPointerRef::get() implementation...
 //
@@ -730,32 +870,65 @@ void ConstantPointerRef::destroyConstant() {
 //
 typedef std::pair<unsigned, std::vector<Constant*> > ExprMapKeyType;
 
-template<>
-struct ConstantCreator<ConstantExpr, Type, ExprMapKeyType> {
-  static ConstantExpr *create(const Type *Ty, const ExprMapKeyType &V) {
-    if (V.first == Instruction::Cast)
-      return new ConstantExpr(Instruction::Cast, V.second[0], Ty);
-    if ((V.first >= Instruction::BinaryOpsBegin &&
-         V.first < Instruction::BinaryOpsEnd) ||
-        V.first == Instruction::Shl || V.first == Instruction::Shr)
-      return new ConstantExpr(V.first, V.second[0], V.second[1]);
-    
-    assert(V.first == Instruction::GetElementPtr && "Invalid ConstantExpr!");
-    
-    // Check that the indices list is valid...
-    std::vector<Value*> ValIdxList(V.second.begin()+1, V.second.end());
-    const Type *DestTy = GetElementPtrInst::getIndexedType(Ty, ValIdxList,
-                                                           true);
-    assert(DestTy && "Invalid index list for GetElementPtr expression");
-    
-    std::vector<Constant*> IdxList(V.second.begin()+1, V.second.end());
-    return new ConstantExpr(V.second[0], IdxList, PointerType::get(DestTy));
-  }
-};
+namespace llvm {
+  template<>
+  struct ConstantCreator<ConstantExpr, Type, ExprMapKeyType> {
+    static ConstantExpr *create(const Type *Ty, const ExprMapKeyType &V) {
+      if (V.first == Instruction::Cast)
+        return new ConstantExpr(Instruction::Cast, V.second[0], Ty);
+      if ((V.first >= Instruction::BinaryOpsBegin &&
+           V.first < Instruction::BinaryOpsEnd) ||
+          V.first == Instruction::Shl || V.first == Instruction::Shr)
+        return new ConstantExpr(V.first, V.second[0], V.second[1]);
+      
+      assert(V.first == Instruction::GetElementPtr && "Invalid ConstantExpr!");
+      
+      std::vector<Constant*> IdxList(V.second.begin()+1, V.second.end());
+      return new ConstantExpr(V.second[0], IdxList, Ty);
+    }
+  };
+
+  template<>
+  struct ConvertConstantType<ConstantExpr, Type> {
+    static void convert(ConstantExpr *OldC, const Type *NewTy) {
+      Constant *New;
+      switch (OldC->getOpcode()) {
+      case Instruction::Cast:
+        New = ConstantExpr::getCast(OldC->getOperand(0), NewTy);
+        break;
+      case Instruction::Shl:
+      case Instruction::Shr:
+        New = ConstantExpr::getShiftTy(NewTy, OldC->getOpcode(),
+                                     OldC->getOperand(0), OldC->getOperand(1));
+        break;
+      default:
+        assert(OldC->getOpcode() >= Instruction::BinaryOpsBegin &&
+               OldC->getOpcode() < Instruction::BinaryOpsEnd);
+        New = ConstantExpr::getTy(NewTy, OldC->getOpcode(), OldC->getOperand(0),
+                                  OldC->getOperand(1));
+        break;
+      case Instruction::GetElementPtr:
+        // Make everyone now use a constant of the new type... 
+        std::vector<Constant*> C;
+        for (unsigned i = 1, e = OldC->getNumOperands(); i != e; ++i)
+          C.push_back(cast<Constant>(OldC->getOperand(i)));
+        New = ConstantExpr::getGetElementPtrTy(NewTy, OldC->getOperand(0), C);
+        break;
+      }
+      
+      assert(New != OldC && "Didn't replace constant??");
+      OldC->uncheckedReplaceAllUsesWith(New);
+      OldC->destroyConstant();    // This constant is now dead, destroy it.
+    }
+  };
+} // end namespace llvm
+
 
 static ValueMap<ExprMapKeyType, Type, ConstantExpr> ExprConstants;
 
 Constant *ConstantExpr::getCast(Constant *C, const Type *Ty) {
+  assert(Ty->isFirstClassType() && "Cannot cast to an aggregate type!");
+
   if (Constant *FC = ConstantFoldCastInstruction(C, Ty))
     return FC;          // Fold a few common cases...
 
@@ -765,24 +938,27 @@ Constant *ConstantExpr::getCast(Constant *C, const Type *Ty) {
   return ExprConstants.getOrCreate(Ty, Key);
 }
 
-Constant *ConstantExpr::get(unsigned Opcode, Constant *C1, Constant *C2) {
+Constant *ConstantExpr::getTy(const Type *ReqTy, unsigned Opcode,
+                              Constant *C1, Constant *C2) {
   // Check the operands for consistency first
   assert((Opcode >= Instruction::BinaryOpsBegin &&
           Opcode < Instruction::BinaryOpsEnd) &&
          "Invalid opcode in binary constant expression");
   assert(C1->getType() == C2->getType() &&
          "Operand types in binary constant expression should match");
-  
-  if (Constant *FC = ConstantFoldBinaryInstruction(Opcode, C1, C2))
-    return FC;          // Fold a few common cases...
+
+  if (ReqTy == C1->getType())
+    if (Constant *FC = ConstantFoldBinaryInstruction(Opcode, C1, C2))
+      return FC;          // Fold a few common cases...
 
   std::vector<Constant*> argVec(1, C1); argVec.push_back(C2);
   ExprMapKeyType Key = std::make_pair(Opcode, argVec);
-  return ExprConstants.getOrCreate(C1->getType(), Key);
+  return ExprConstants.getOrCreate(ReqTy, Key);
 }
 
 /// getShift - Return a shift left or shift right constant expr
-Constant *ConstantExpr::getShift(unsigned Opcode, Constant *C1, Constant *C2) {
+Constant *ConstantExpr::getShiftTy(const Type *ReqTy, unsigned Opcode,
+                                   Constant *C1, Constant *C2) {
   // Check the operands for consistency first
   assert((Opcode == Instruction::Shl ||
           Opcode == Instruction::Shr) &&
@@ -796,26 +972,47 @@ Constant *ConstantExpr::getShift(unsigned Opcode, Constant *C1, Constant *C2) {
   // Look up the constant in the table first to ensure uniqueness
   std::vector<Constant*> argVec(1, C1); argVec.push_back(C2);
   ExprMapKeyType Key = std::make_pair(Opcode, argVec);
-  return ExprConstants.getOrCreate(C1->getType(), Key);
+  return ExprConstants.getOrCreate(ReqTy, Key);
 }
 
 
-Constant *ConstantExpr::getGetElementPtr(Constant *C,
-                                         const std::vector<Constant*> &IdxList){
+Constant *ConstantExpr::getGetElementPtrTy(const Type *ReqTy, Constant *C,
+                                        const std::vector<Constant*> &IdxList) {
   if (Constant *FC = ConstantFoldGetElementPtr(C, IdxList))
     return FC;          // Fold a few common cases...
-  const Type *Ty = C->getType();
-  assert(isa<PointerType>(Ty) &&
+  assert(isa<PointerType>(C->getType()) &&
          "Non-pointer type for constant GetElementPtr expression");
 
   // Look up the constant in the table first to ensure uniqueness
   std::vector<Constant*> argVec(1, C);
   argVec.insert(argVec.end(), IdxList.begin(), IdxList.end());
-  
   const ExprMapKeyType &Key = std::make_pair(Instruction::GetElementPtr,argVec);
-  return ExprConstants.getOrCreate(Ty, Key);
+  return ExprConstants.getOrCreate(ReqTy, Key);
 }
 
+Constant *ConstantExpr::getGetElementPtr(Constant *C,
+                                         const std::vector<Constant*> &IdxList){
+  // Get the result type of the getelementptr!
+  std::vector<Value*> VIdxList(IdxList.begin(), IdxList.end());
+
+  const Type *Ty = GetElementPtrInst::getIndexedType(C->getType(), VIdxList,
+                                                     true);
+  assert(Ty && "GEP indices invalid!");
+
+  if (C->isNullValue()) {
+    bool isNull = true;
+    for (unsigned i = 0, e = IdxList.size(); i != e; ++i)
+      if (!IdxList[i]->isNullValue()) {
+        isNull = false;
+        break;
+      }
+    if (isNull) return ConstantPointerNull::get(PointerType::get(Ty));
+  }
+
+  return getGetElementPtrTy(PointerType::get(Ty), C, IdxList);
+}
+
+
 // destroyConstant - Remove the constant from the constant table...
 //
 void ConstantExpr::destroyConstant() {
@@ -823,44 +1020,6 @@ void ConstantExpr::destroyConstant() {
   destroyConstantImpl();
 }
 
-/// refineAbstractType - If this callback is invoked, then this constant is of a
-/// derived type, change all users to use a concrete constant of the new type.
-///
-void ConstantExpr::refineAbstractType(const DerivedType *OldTy,
-                                      const Type *NewTy) {
-  Value::refineAbstractType(OldTy, NewTy);
-  if (OldTy == NewTy) return;
-
-  // FIXME: These need to use a lower-level implementation method, because the
-  // ::get methods intuit the type of the result based on the types of the
-  // operands.  The operand types may not have had their types resolved yet.
-  //
-  Constant *New;
-  if (getOpcode() == Instruction::Cast) {
-    New = getCast(getOperand(0), NewTy);
-  } else if (getOpcode() >= Instruction::BinaryOpsBegin &&
-             getOpcode() < Instruction::BinaryOpsEnd) {
-    New = get(getOpcode(), getOperand(0), getOperand(0));
-  } else if (getOpcode() == Instruction::Shl || getOpcode() ==Instruction::Shr){
-    New = getShift(getOpcode(), getOperand(0), getOperand(0));
-  } else {
-    assert(getOpcode() == Instruction::GetElementPtr);
-
-    // Make everyone now use a constant of the new type...
-    std::vector<Constant*> C;
-    for (unsigned i = 1, e = getNumOperands(); i != e; ++i)
-      C.push_back(cast<Constant>(getOperand(i)));
-    New = ConstantExpr::getGetElementPtr(getOperand(0), C);
-  }
-  if (New != this) {
-    uncheckedReplaceAllUsesWith(New);
-    destroyConstant();    // This constant is now dead, destroy it.
-  }
-}
-
-
-
-
 const char *ConstantExpr::getOpcodeName() const {
   return Instruction::getOpcodeName(getOpcode());
 }
@@ -886,3 +1045,4 @@ unsigned Constant::mutateReferences(Value *OldV, Value *NewV) {
     return NumReplaced;
   }
 }
+