[perl #22706] IMCC (& Parrot) crash with -t when invoke is run

[Ron Blaschke via RT]

Can't reproduce, seems to pass C<invoke> call.  Should be closed.


.sub _main # void win32_setup(void)
    loadlib P1, "kernel32.dll"
    dlfunc P0, P1, "GetStdHandle", "pi"
    set I0, 1
    set I5, -11
    invoke # Will crash here.
    store_global "kernel32", P1
    store_global "Win32handle", P5
    end
.end

C:\parrot>parrot -t targ_test.imc
     0 loadlib P1, "kernel32.dll"       -
P1=RetContinuation=PMC(0x627998 Adr:0x0),
     3 dlfunc P0, P1, "GetStdHandle", "pi"      - P0=PMCNULL,
P1=ParrotLibrary=PMC(0x627980), ,
     8 set I0, 1        - I0=0,
    11 set I5, -11      - I5=0,
    14 invoke
    15 store_global "kernel32", P1      - , P1=ParrotLibrary=PMC(0x627980)
    18 store_global "Win32handle", P5   - , P5=UnManagedStruct=PMC(0x6278f0)
    21 end