fix: 数组长度定义异常原值抛出并保留错误类型

crates/oxide_builtins/src/error.rs

@@ -71,6 +71,31 @@ pub fn create_error<H: VmHost>(host: &mut H, msg: &str) -> JsValue {
     create_kind_error(host, "Error", msg)
 }
 
+/// 错误文本的 kind 前缀表：`(kind 名, 前缀)`，供文本恢复与 `define` 通道共用。
+/// `Error` 排在末位，避免在匹配更具体的子类前缀之前抢先命中。
+const KIND_PREFIXES: [(&str, &str); 7] = [
+    ("TypeError", "TypeError: "),
+    ("ReferenceError", "ReferenceError: "),
+    ("RangeError", "RangeError: "),
+    ("SyntaxError", "SyntaxError: "),
+    ("URIError", "URIError: "),
+    ("EvalError", "EvalError: "),
+    ("Error", "Error: "),
+];
+
+/// 拆分错误文本的 kind 前缀：`"RangeError: msg"` 返回 `Some(("RangeError", "msg"))`，
+/// 无已知前缀返回 `None`。文本可带 `"uncaught "` 包装。
+///
+/// # 注意事项
+/// - 仅在错误文本通道（kind 前缀约定）内使用；kind 名与创建入口的映射保持
+///   单向，调用方不得据此改写原始异常值。
+pub fn split_kinded(text: &str) -> Option<(&'static str, &str)> {
+    let text = text.strip_prefix("uncaught ").unwrap_or(text);
+    KIND_PREFIXES
+        .iter()
+        .find_map(|(kind, prefix)| text.strip_prefix(prefix).map(|rest| (*kind, rest)))
+}
+
 /// 从错误文本（形如 `TypeError: msg` / `ReferenceError: msg`）解析类型前缀并创建
 /// 对应 kind 的错误对象；无前缀时创建普通 Error。
 ///
@@ -78,23 +103,10 @@ pub fn create_error<H: VmHost>(host: &mut H, msg: &str) -> JsValue {
 /// 异常传播链中错误对象被降级为文本（error_text 输出、`last_uncaught_value` 被
 /// 嵌套覆盖后的兜底路径）时，据此恢复错误类型，避免全部塌缩成普通 Error。
 pub fn create_from_text<H: VmHost>(host: &mut H, text: &str) -> JsValue {
-    let text = text.strip_prefix("uncaught ").unwrap_or(text);
-    for (kind, prefix) in [
-        ("TypeError", "TypeError: "),
-        ("ReferenceError", "ReferenceError: "),
-        ("RangeError", "RangeError: "),
-        ("SyntaxError", "SyntaxError: "),
-        ("URIError", "URIError: "),
-        ("EvalError", "EvalError: "),
-    ] {
-        if let Some(msg) = text.strip_prefix(prefix) {
-            return create_kind_error(host, kind, msg);
-        }
+    match split_kinded(text) {
+        Some((kind, msg)) => create_kind_error(host, kind, msg),
+        None => create_error(host, text.strip_prefix("uncaught ").unwrap_or(text)),
     }
-    if let Some(msg) = text.strip_prefix("Error: ") {
-        return create_kind_error(host, "Error", msg);
-    }
-    create_error(host, text)
 }
 
 /// 创建一个带指定 message 的 ReferenceError 对象。
@@ -110,11 +122,12 @@ pub fn create_range_error<H: VmHost>(host: &mut H, msg: &str) -> JsValue {
 /// 从 `defineProperty` 通道的错误文本恢复异常对象。
 ///
 /// 数组 length 的 `ArraySetLength` 非法值以 `"RangeError: "` 前缀标记 kind，
-/// 须保留为 RangeError；其余 define 失败（非可配置收窄、不可扩展、accessor
-/// 冲突等）统一投影为 TypeError。
+/// 强转期 `ToPrimitive`/`ToNumber` 失败以 `"TypeError: "` 前缀标记，两者均须保留
+/// kind；其余 define 失败（非可配置收窄、不可扩展、accessor 冲突等）为无前缀
+/// 文本，统一投影为 TypeError。
 pub fn create_define_failure<H: VmHost>(host: &mut H, msg: &str) -> JsValue {
-    match msg.strip_prefix("RangeError: ") {
-        Some(rest) => create_range_error(host, rest),
+    match split_kinded(msg) {
+        Some((kind, rest)) => create_kind_error(host, kind, rest),
         None => create_type_error(host, msg),
     }
 }

crates/oxide_builtins/src/object.rs

@@ -848,6 +848,11 @@ pub fn object_define_property<H: VmHost>(vm: &mut H, args: &[u8]) -> NativeResul
     let si = vm.property_key_si(vm.reg(args[2]));
 
     if let Err(msg) = define_from_descriptor(vm, obj_ptr, si, vm.reg(args[3])) {
+        // 强转期用户代码（valueOf / Symbol.toPrimitive）抛出的异常值转存专用槽，
+        // 须原值重抛而非改写成引擎 TypeError。
+        if let Some(exc) = vm.take_pending_length_exception() {
+            return NativeResult::Err(exc);
+        }
         return NativeResult::Err(crate::error::create_define_failure(vm, &msg));
     }
     NativeResult::Ok(obj_val)
@@ -1217,7 +1222,12 @@ pub fn object_define_properties<H: VmHost>(vm: &mut H, args: &[u8]) -> NativeRes
         Err(err) => return NativeResult::Err(err),
     };
     if let Err(msg) = define_all_from_properties(vm, target_ptr, vm.reg(args[2])) {
-        return NativeResult::Err(crate::error::create_type_error(vm, &msg));
+        // 与单属性入口一致：强转期用户异常原值重抛，非法 length 以 RangeError
+        // kind 穿透，其余 define 失败投影为 TypeError。
+        if let Some(exc) = vm.take_pending_length_exception() {
+            return NativeResult::Err(exc);
+        }
+        return NativeResult::Err(crate::error::create_define_failure(vm, &msg));
     }
     NativeResult::Ok(target_val)
 }

crates/oxide_builtins/src/reflect.rs

@@ -74,8 +74,9 @@ pub fn reflect_construct<H: VmHost>(vm: &mut H, args: &[u8]) -> NativeResult {
 /// # 注意事项
 /// - 与 `Object.defineProperty` 共用 `define_from_descriptor`：缺失字段回填现有
 ///   属性、模块命名空间 exotic 收窄语义一处生效；普通失败投影为布尔 false。
-/// - 数组 length 的非法值（`"RangeError: "` 前缀）按规范抛 RangeError，不投影为
-///   false。
+/// - 数组 length 的非法值（`"RangeError: "` 前缀）与强转失败（`"TypeError: "`
+///   前缀）按规范抛对应错误，不投影为 false。
+/// - 强转期用户代码抛出的原始异常经 VM 专用槽原值重抛。
 pub fn reflect_define_property<H: VmHost>(vm: &mut H, args: &[u8]) -> NativeResult {
     let target_val = arg(vm, args, 1);
     let Some(target_ptr) = object_ptr(target_val) else {
@@ -89,10 +90,17 @@ pub fn reflect_define_property<H: VmHost>(vm: &mut H, args: &[u8]) -> NativeResu
     let key_si = vm.property_key_si(arg(vm, args, 2));
     match crate::object::define_from_descriptor(vm, target_ptr, key_si, desc_val) {
         Ok(()) => NativeResult::Ok(JsValue::bool(true)),
-        Err(msg) => match msg.strip_prefix("RangeError: ") {
-            Some(rest) => NativeResult::Err(crate::error::create_range_error(vm, rest)),
-            None => NativeResult::Ok(JsValue::bool(false)),
-        },
+        Err(msg) => {
+            // 强转期用户代码（valueOf / Symbol.toPrimitive）抛出的异常值转存专用槽，
+            // 须原值重抛，不得投影为 false 或改写成引擎错误。
+            if let Some(exc) = vm.take_pending_length_exception() {
+                return NativeResult::Err(exc);
+            }
+            match crate::error::split_kinded(&msg) {
+                Some((kind, rest)) => NativeResult::Err(crate::error::create_kind_error(vm, kind, rest)),
+                None => NativeResult::Ok(JsValue::bool(false)),
+            }
+        }
     }
 }