Ticket #1694: tt1694.patch

File tt1694.patch, 0.9 KB (added by plobsing, 12 years ago)

  • compilers/imcc/parser_util.c

     
    816816        IMCC_fatal(interp, EXCEPTION_EXTERNAL_ERROR, 
    817817                "imcc_compile_file: couldn't open '%s'\n", fullname); 
    818818 
    819     IMCC_INFO(interp)->cur_namespace = NULL; 
    820     interp->code                     = NULL; 
    821  
    822819    IMCC_push_parser_state(interp); 
    823820    { 
    824821        /* Store a copy, in order to know how to free it later */ 
    … …  
    838835    ignored = Parrot_push_context(interp, regs_used); 
    839836    UNUSED(ignored); 
    840837 
     838    Parrot_pcc_set_HLL(interp, CURRENT_CONTEXT(interp), 0); 
     839    IMCC_INFO(interp)->cur_namespace = NULL; 
     840    interp->code                     = NULL; 
     841 
     842 
    841843    if (ext && STREQ(ext, ".pasm")) { 
    842844        void *yyscanner; 
    843845        yylex_init_extra(interp, &yyscanner);