pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:2463:    if(p->flags & PROGRAM_FINISHED) {    for (i = 0; i < p->num_identifier_references; i++) {    struct reference *ref = p->identifier_references + i;    struct identifier *id = ID_FROM_PTR(p, ref);       if ((id->identifier_flags & IDENTIFIER_TYPE_MASK)    == IDENTIFIER_PIKE_FUNCTION    && !ref->inherit_offset) {    PIKE_OPCODE_T *pc = p->program + id->func.offset;    struct svalue sv; -  SET_SVAL(sv, PIKE_T_INT, NUMBER_NUMBER, integer, PTR_TO_INT(pc)); +  +  ulongest_to_svalue_no_free(&sv, (UINT64)PTR_TO_INT(pc)); +     mapping_string_insert(m, id->name, &sv); -  +  free_svalue(&sv);    }    }       {    struct svalue key, value;       SET_SVAL(key, PIKE_T_INT, NUMBER_NUMBER, integer, 0);    SET_SVAL(value, PIKE_T_INT, NUMBER_NUMBER, integer,    p->num_program * sizeof(PIKE_OPCODE_T));    mapping_insert(m, &key, &value);