Static specialization done

2025-11-19 21:22:01 +01:00
parent d0d1053faf
commit ae10f4eee0
3 changed files with 99 additions and 235 deletions
@@ -1158,10 +1158,9 @@ end;

 procedure TForm1.FailingUpvalueButtonClick(Sender: TObject);
 var
-    mainBlock: IAstNode;
    resultValue: TDataValue;
 begin
-    mainBlock :=
+    FCurrUnboundAst :=
        TAst.Block(
            [
                TAst.VarDecl(TAst.Identifier('a'), TAst.Constant(10)),
@@ -1186,10 +1185,12 @@ begin
            ]
        );

+    UpdateScript;
+
    Memo1.Lines.Clear;
    Memo1.Lines.Add('--- Executing Corrected Upvalue Test ---');

-    resultValue := ExecuteAst(mainBlock);
+    resultValue := ExecuteAst(FCurrUnboundAst);

    var res := resultValue.AsScalar.Value.AsInt64;
    if res = 15 then