8.15 core dumps when processing lots of files about libvips HOT 8 OPEN

/* compile with:
 *
 * gcc -g -Wall try345.c `pkg-config vips --cflags --libs`
 */

#include <vips/vips.h>

int
main(int argc, char **argv)
{
    if (VIPS_INIT(argv[0]))
        vips_error_exit(NULL);

    if (argc != 5)
        vips_error_exit("usage: %s base-dir outfile tiles-across tiles-down",
            argv[0]);

    VipsObject *context = VIPS_OBJECT(vips_image_new());
    int tiles_across = atoi(argv[3]);
    int tiles_down = atoi(argv[4]);
    int n_tiles = tiles_across * tiles_down;
    VipsImage **tiles = (VipsImage **)
        vips_object_local_array(context, n_tiles);

    printf("loading %d tiles ...\n", n_tiles);
    for (int y = 0; y < tiles_down; y++)
        for (int x = 0; x < tiles_across; x++) {
            int i = x + y * tiles_across;

            char filename[256];

            snprintf(filename, 256, "%s/%d_%d.jpg", argv[1], x, y);
            if (!(tiles[i] = vips_image_new_from_file(filename,
                            "access", VIPS_ACCESS_SEQUENTIAL,
                            NULL)))
                    vips_error_exit(NULL);
        }

    printf("assembling ...\n");
    VipsImage *image;
    if (vips_arrayjoin(tiles, &image, n_tiles, "across", tiles_across, NULL))
        vips_error_exit(NULL);

    printf("saving ...\n");
    if (vips_image_write_to_file(image, argv[2], NULL))
        vips_error_exit(NULL);

    return 0;
}