diff --git a/include/llvm/Instructions.h b/include/llvm/Instructions.h
index d7e52d1d6aa..03ce2467a50 100644
--- a/include/llvm/Instructions.h
+++ b/include/llvm/Instructions.h
@@ -498,6 +498,11 @@ public:
     : UnaryInstruction(Ty, Cast, S, Name, InsertAtEnd) {
   }
 
+  /// isTruncIntCast - Return true if this is a truncating integer cast
+  /// instruction, e.g. a cast from long to uint.
+  bool isTruncIntCast() const;
+  
+  
   virtual CastInst *clone() const;
 
   // Methods for support type inquiry through isa, cast, and dyn_cast:
diff --git a/lib/VMCore/Instructions.cpp b/lib/VMCore/Instructions.cpp
index 393858cd871..8f3633a66b5 100644
--- a/lib/VMCore/Instructions.cpp
+++ b/lib/VMCore/Instructions.cpp
@@ -1151,6 +1151,22 @@ bool ShiftInst::isLogicalShift() const {
   return getOpcode() == Instruction::Shl || getType()->isUnsigned();
 }
 
+//===----------------------------------------------------------------------===//
+//                                CastInst Class
+//===----------------------------------------------------------------------===//
+
+/// isTruncIntCast - Return true if this is a truncating integer cast
+/// instruction, e.g. a cast from long to uint.
+bool CastInst::isTruncIntCast() const {
+  // The dest type has to be integral, the input has to be integer.
+  if (!getType()->isIntegral() || !getOperand(0)->getType()->isInteger())
+    return false;
+
+  // Has to be large to smaller.
+  return getOperand(0)->getType()->getPrimitiveSizeInBits() >
+         getType()->getPrimitiveSizeInBits();
+}
+
 
 //===----------------------------------------------------------------------===//
 //                             SetCondInst Class