hlc : generate roots registration

src/generators/genhl.ml

@@ -6846,6 +6846,9 @@ let write_c version file (code:code) =
 		| _ ->
 			()
 	) types.arr;
+	Array.iteri (fun i t ->
+		if is_ptr t then sexpr "hl_add_root(&global$%d)" i;
+	) code.globals;
 	sexpr "%s()" funnames.(code.entrypoint);
 	unblock();
 	line "}";