pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:3166: Inside #if 0
   name->str, c->compilation_depth);    }else{    fprintf(stderr,"Compiling file %s, depth=%d\n",    c->lex.current_file ? c->lex.current_file->str : "-",    c->compilation_depth);   #endif    }    }else{    tmp.u.program=p;    add_ref(p); -  if((pass == 2) && name) +  if((pass != COMPILER_PASS_FIRST) && name)    {    struct identifier *i;    id=isidentifier(name);    if (id < 0)    Pike_fatal("Program constant disappeared in second pass.\n");    i=ID_FROM_INT(Pike_compiler->new_program, id);    free_type(i->type);    i->type=get_type_of_svalue(&tmp);    }    } -  if (pass == 1) { +  if (pass == COMPILER_PASS_FIRST) {    if(c->compilation_depth >= 1) {    add_ref(p->parent = Pike_compiler->new_program);    debug_malloc_touch (p);    }    }    p->flags &=~ PROGRAM_VIRGIN;    if(idp) *idp=id;       CDFPRINTF("th(%ld) %p low_start_new_program() %s "    "pass=%d: lock_depth:%d, compilation_depth:%d\n",
pike.git/src/program.c:3419:       c->lex.current_file = make_shared_string(f);    c->lex.current_line = line;    }       CDFPRINTF("th(%ld) start_new_program(%ld, %s): "    "lock_depth:%d, compilation_depth:%d\n",    (long)th_self(), (long)line, file,    lock_depth, c->compilation_depth);    -  low_start_new_program(0,1,0,0,0); +  low_start_new_program(0, COMPILER_PASS_FIRST, 0, 0, 0);    store_linenumber(line,c->lex.current_file);    debug_malloc_name(Pike_compiler->new_program, file, line);       free_string(c->lex.current_file);    c->lex.current_file = dmalloc_touch(struct pike_string *, save_file);    c->lex.current_line = save_line;   }         static void exit_program_struct(struct program *p)