Fix generator loop closure resumes (#644)

* Fix generator loop closure resumes

* Fix PR review generator callback edge cases

- Preserve active match scopes across yielded for-of bodies.\n- Route var destructuring through the iteration context.\n- Isolate reduce and sort array callbacks from parent generator replay state.

* Preserve for-await generator loop scopes

- Restore saved iteration and match scopes when async generator for-await bodies resume.\n- Skip match-scope release while unwinding body yields.\n- Cover async iterator and sync fallback for-await paths.

Author: frostney

source/units/Goccia.AST.Statements.pas

@@ -483,6 +483,7 @@ implementation
   Goccia.Evaluator,
   Goccia.GarbageCollector,
   Goccia.Modules,
+  Goccia.Runtime.GeneratorContinuation,
   Goccia.Scope,
   Goccia.Scope.BindingMap,
   Goccia.Token,
@@ -859,14 +860,35 @@ function CreateModuleNamespaceObject(const AModule: TGocciaModule): TGocciaValue
     Value: TGocciaValue;
     HasRealStrictInit: Boolean;
     AnnotationType, TypeHint: TGocciaLocalType;
+    Continuation: TGocciaGeneratorContinuation;
   begin
     Result := TGocciaControlFlow.Normal(TGocciaUndefinedLiteralValue.UndefinedValue);
     // Function declarations are no-ops at runtime — already hoisted with their value
     if IsFunctionDeclaration then
       Exit;
-    for I := 0 to Length(Variables) - 1 do
+    Continuation := CurrentGeneratorContinuation;
+    if Assigned(Continuation) then
+      I := Continuation.GetStatementIndex(Self)
+    else
+      I := 0;
+    while I < Length(Variables) do
     begin
-      Value := EvaluateExpression(Variables[I].Initializer, AContext);
+      try
+        Value := EvaluateExpression(Variables[I].Initializer, AContext);
+      except
+        on E: EGocciaGeneratorYield do
+        begin
+          if Assigned(Continuation) then
+            Continuation.SaveStatementIndex(Self, I);
+          raise;
+        end;
+        else
+        begin
+          if Assigned(Continuation) then
+            Continuation.ClearStatementIndex(Self);
+          raise;
+        end;
+      end;
       if (Value is TGocciaFunctionValue) and (TGocciaFunctionValue(Value).Name = '') then
         TGocciaFunctionValue(Value).Name := Variables[I].Name
       else if Value is TGocciaClassValue then
@@ -919,7 +941,12 @@ function CreateModuleNamespaceObject(const AModule: TGocciaModule): TGocciaValue
         else
           AContext.Scope.SetOwnBindingTypeHint(Variables[I].Name, TypeHint);
       end;
+      if Assigned(Continuation) then
+        Continuation.SaveStatementIndex(Self, I + 1);
+      Inc(I);
     end;
+    if Assigned(Continuation) then
+      Continuation.ClearStatementIndex(Self);
   end;
 
   function TGocciaDestructuringDeclaration.Execute(const AContext: TGocciaEvaluationContext): TGocciaControlFlow;