push into pinned_objects

d-netto · d-netto · commit 367a3ca8c9a6 · 2025-06-19T20:16:44.000-03:00
diff --git a/src/ast.c b/src/ast.c
@@ -802,7 +802,7 @@ static value_t julia_to_scm_(jl_ast_context_t *ctx, jl_value_t *v, int check_val
 {
     // The following code will take internal pointers to v's fields. We need to make sure
     // that v will not be moved by GC.
-    OBJ_PIN(v);
+    arraylist_push(&ctx->pinned_objects, v);
     value_t retval;
     fl_context_t *fl_ctx = &ctx->fl;
     if (julia_to_scm_noalloc1(fl_ctx, v, &retval))

Original file line number	Diff line number	Diff line change
`@@ -802,7 +802,7 @@ static value_t julia_to_scm_(jl_ast_context_t ctx, jl_value_t v, int check_val`
`802`	`802`	`{`
`803`	`803`	`// The following code will take internal pointers to v's fields. We need to make sure`
`804`	`804`	`// that v will not be moved by GC.`
`805`		`- OBJ_PIN(v);`
	`805`	`+ arraylist_push(&ctx->pinned_objects, v);`
`806`	`806`	`value_t retval;`
`807`	`807`	`fl_context_t *fl_ctx = &ctx->fl;`
`808`	`808`	`if (julia_to_scm_noalloc1(fl_ctx, v, &retval))`