fix: sloppy eval 顶层块函数参与全局声明实例化

crates/oxide_emit/src/prepass/declare.rs

@@ -175,11 +175,12 @@ impl Emitter {
     /// - 只处理块内函数声明；switch 不推 scope（其 case 内函数声明随 switch
     ///   作用域修复一并处理）；export 声明不可能出现在块内。
     /// - `if_arm` 标记当前递归是否位于 `if` 支臂隐式块内。Annex B 下该隐式块的
-    ///   函数声明名已有外层 var 绑定承载（非 eval 脚本顶层、未被形参/词法同名
-    ///   抑制、且非全局只读三常量）时不建当前块绑定，声明点物化进该 var 槽
-    ///   （建当前块 Let 会遮蔽同名 var）；名无外层 var 绑定（形参/词法抑制、eval
-    ///   脚本顶层或全局只读三常量）时保留块级绑定承载支臂闭包，避免声明点覆写
-    ///   外层绑定。门控只作用于 `if` 支臂下的叶子，块直接子不受影响。
+    ///   函数声明名已有外层 var 绑定承载（非 eval 脚本顶层、或 sloppy eval 顶层；
+    ///   未被形参/词法同名抑制，且非全局只读三常量）时不建当前块绑定，声明点
+    ///   物化进该 var 槽（建当前块 Let 会遮蔽同名 var）；名无外层 var 绑定
+    ///   （形参/词法抑制、strict eval 顶层或全局只读三常量）时保留块级绑定承载
+    ///   支臂闭包，避免声明点覆写外层绑定。门控只作用于 `if` 支臂下的叶子，
+    ///   块直接子不受影响。
     /// - 支臂为容器（循环/`try`/`with`/标签/显式块）时按各自作用域规则继续下钻，
     ///   使嵌套 `if` 支臂的函数声明同样到达门控。
     /// - 与 lexical 预声明的顺序：本函数在前，`{ let g; function g(){} }` 时
@@ -263,11 +264,13 @@ impl Emitter {
         }
     }
 
-    /// `if` 支臂裸函数声明的名是否已有外层 var/函数绑定承载：非 eval 脚本顶层的
-    /// 非抑制名由实例化阶段建外层 var 绑定，唯一例外是脚本顶层的只读三常量
-    /// （全局属性不可配置，声明实例化刻意不建外层绑定），其名须退回块级绑定。
+    /// `if` 支臂裸函数声明的名是否已有外层 var/函数绑定承载：非 eval 脚本顶层
+    /// 与 sloppy eval 顶层的非抑制名由实例化阶段建外层 var 绑定（eval 面依
+    /// Annex B.3.3.3），唯一例外是脚本顶层的只读三常量（全局属性不可配置，
+    /// 声明实例化刻意不建外层绑定），其名须退回块级绑定。strict eval 不建外层
+    /// 承载（其块函数绑定 eval 自身词法环境），与 eval 非顶层同判。
     fn if_arm_has_outer_var_carrier(ctx: &CompileCtx, name: &str) -> bool {
-        !ctx.is_eval_script
+        (!ctx.is_eval_script || !ctx.is_strict)
             && !ctx.block_fn_suppressed.contains(name)
             && !(ctx.is_global_scope && CompileCtx::is_non_writable_global_builtin(name))
     }

crates/oxide_emit/src/program.rs

@@ -314,12 +314,13 @@ impl Emitter {
         self.predeclare_lexical_declarations(&program.body, &mut ctx, global_lexical)?;
 
         // 顶层块级函数名按 sloppy 模式下与浏览器/web 实现惯例兼容的行为处理
-        // （块级函数声明建外层 var 绑定并求值写回，非 eval）：实例化 var 绑定
+        // （块级函数声明建外层 var 绑定并求值写回；sloppy eval 代码同走
+        // Annex B.3.3.3，其名并入 eval 的 var 环境）：实例化 var 绑定
         // （新建 var 槽；顶层只读三常量名不可声明不建）、并入顶层 var 名集
         // （裸读/写路由全局对象属性）、GlobalDeclarationInstantiation 序言建属性
-        // （define-if-absent，既有属性不改动值）。
+        // （define-if-absent，既有属性不改动值）。strict 代码不建。
         let mut block_fn_names: Vec<String> = Vec::new();
-        if !ctx.is_strict && !ctx.is_eval_script {
+        if !ctx.is_strict {
             ctx.block_fn_suppressed = self.collect_block_fn_suppressed_names(&program.body, &ctx.param_names);
             block_fn_names = self.collect_block_function_names(&program.body);
             for name in &block_fn_names {