static int do_store(
        pTHX_
        PerlIO *f,
        SV *sv,
        int optype,
        int network_order,
        SV **res)
{
        dSTCXT;       <--- here
        int status;
        ...