Narrow long to int if possible for IntSequenceStorage.

Author: fangerer

graalpython/com.oracle.graal.python/src/com/oracle/graal/python/builtins/objects/common/SequenceStorageNodes.java

@@ -1208,6 +1208,20 @@ protected static void doInt(IntSequenceStorage storage, int idx, int value) {
             storage.setIntItemNormalized(idx, value);
         }
 
+        @Specialization(rewriteOn = OverflowException.class)
+        protected static void doIntL(IntSequenceStorage storage, int idx, long value) throws OverflowException {
+            storage.setIntItemNormalized(idx, PInt.intValueExact(value));
+        }
+
+        @Specialization(replaces = "doIntL")
+        protected static void doIntLOvf(IntSequenceStorage storage, int idx, long value) {
+            try {
+                storage.setIntItemNormalized(idx, PInt.intValueExact(value));
+            } catch (OverflowException e) {
+                throw new SequenceStoreException(value);
+            }
+        }
+
         @Specialization(guards = "!value.isNative()")
         protected static void doInt(IntSequenceStorage storage, int idx, PInt value) {
             try {