FIX: better handling large number tuple multiplication

related to: Oldes/Rebol-issues#1974

Author: Oldes

src/core/t-tuple.c

@@ -226,10 +226,20 @@
 			case A_ADD:	v += a; break;
 			case A_SUBTRACT: v -= a; break;
 			case A_MULTIPLY:
-				if (IS_DECIMAL(arg) || IS_PERCENT(arg))
+				if ( v == 0 ) break;
+				if (IS_DECIMAL(arg) || IS_PERCENT(arg)) {
+					if (dec > 255.0) {
+						*vp = (REBYTE)255;
+						continue;
+					}
 					v=(REBI64)(v*dec);
-				else
+				} else {
+					if (a > 255) {
+						*vp = (REBYTE)255;
+						continue;
+					}
 					v *= a;
+				}
 				break;
 			case A_DIVIDE:
 				if (IS_DECIMAL(arg) || IS_PERCENT(arg)) {

src/tests/units/tuple-test.r3

@@ -19,6 +19,9 @@ Rebol [
 
 	--test-- "tuple multiply"
 	--assert (1.1.1 * 2147483648.0)          == 255.255.255
+	--assert (1.1.1 * 4.656612873077e+100)   == 255.255.255
+	--assert (1.1.1 * 4656612873077)         == 255.255.255
+	--assert (0.0.0 * 4656612873077)         == 0.0.0
 
 ===end-group===