Crash due to running Fourier Transform operations in parallel about libvips HOT 6 CLOSED

/* Stress-test libvips fft.
 *
 * Compile with:
 *
 *  gcc -g -Wall soak8.c `pkg-config vips --cflags --libs`
 *
 * Run with:
 *
 *  ./a.out ~/pics/k2.jpg 
 */

#include <unistd.h>
#include <vips/vips.h>

/* How many ffts we run at once.
 */
#define NUM_IN_PARALLEL (32)

/* Number of ffts we do in total.
 */
#define TOTAL_OPERATIONS (NUM_IN_PARALLEL * 2000)

static GThreadPool *pool = NULL;

/* What we run as a thread.
 */
static void
worker( void *data, void *user_data )
{
    const char *file = (const char *) data;

    VipsImage *im, *x;

    if( !(im = vips_image_new_from_file( file, NULL )) )
        vips_error_exit( NULL );

    if( vips_crop( im, &x, 0, 0, 512, 512, NULL ) )
        vips_error_exit( NULL );
    g_object_unref( im );
    im = x;

    if( vips_fwfft( im, &x, 0.1, NULL ) )
        vips_error_exit( NULL );
    g_object_unref( im );
    im = x;

    if( !(x = vips_image_copy_memory( im )) )
        vips_error_exit( NULL );

    g_object_unref( im );
    g_object_unref( x );
}

int
main( int argc, char **argv )
{
    int i;

    if( VIPS_INIT( argv[0] ) )
        return( -1 );

    pool = g_thread_pool_new( worker, NULL, NUM_IN_PARALLEL, FALSE, NULL );

    for( i = 0; i < TOTAL_OPERATIONS; i++ )
        g_thread_pool_push( pool, argv[1], NULL );

    /* Wait for all threads to finish.
     */
    g_thread_pool_free( pool, FALSE, TRUE );

    sleep( 1 );

    return( 0 );
}