         aa-callback-1
         aa-indirect-1 >>x
     ] compile-call
-] unit-test
+] unit-test-with-destructors
 
 ! GC maps regression
 : anton's-regression ( -- )

    [ int "f-fastcall" "ffi_test_51" { int int int } alien-invoke ]
    3dip
    int "f-fastcall" "ffi_test_51" { int int int } alien-invoke gc ;
    
[ 4 ] [ 3 ffi_test_49 ] unit-test
[ 8 ] [ 3 4 ffi_test_50 ] unit-test
[ 13 ] [ 3 4 5 ffi_test_51 ] unit-test

    void { void* void* double-rect } cdecl alien-indirect
    "example" get-global ;

{ byte-array 1.0 2.0 3.0 4.0 } [
    1.0 2.0 3.0 4.0 <double-rect>
    double-rect-callback double-rect-test
    [ >c-ptr class-of ] [ >double-rect< ] bi
] unit-test-with-destructors

STRUCT: test_struct_14
    { x1 double }
