pike.git/ src/ docode.c

1995-11-05

1995-11-05 23:38:00 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 5683ded9bf9b3c43ed72607153c12627910fc50e (18 lines) (+11/-7) ^{[ Show | Annotate ]}
  Branch: branches/E-12

see changelog

Rev: lib/master.lpc:1.3
Rev: lib/simulate.lpc:1.3
Rev: src/Makefile.in:1.5
Rev: src/compilation.h:1.2
Rev: src/configure.in:1.3
Rev: src/docode.c:1.2
Rev: src/interpret.c:1.3
Rev: src/interpret.h:1.2
Rev: src/language.y:1.5
Rev: src/las.c:1.2
Rev: src/las.h:1.3
Rev: src/modules/files/file.c:1.5
Rev: src/object.c:1.2
Rev: src/opcodes.c:1.2
Rev: src/program.c:1.4
Rev: src/program.h:1.2
Rev: src/svalue.c:1.2
Rev: src/todo:1.3

883:    {    ins_f_byte_with_numerical_arg(F_CALL_LFUN, CAR(n)->u.sval.subtype);    }else{ -  tmp1=store_constant(& CAR(n)->u.sval); +  tmp1=store_constant(& CAR(n)->u.sval, +  !(CAR(n)->tree_info & OPT_EXTERNAL_DEPEND));    ins_f_byte(F_MAX_OPCODE + tmp1);    if(n->type == void_type_string) return 0;    }
909:       do_docode(CAR(n),0);    do_docode(CDR(n),0); -  tmp1=store_constant(& fun->function); +  tmp1=store_constant(& fun->function, 1);    ins_f_byte(tmp1 + F_MAX_OPCODE);    return 1;    }
1000:    for(e=0; e<cases*2+1; e++)    low_set_branch(jumptable[e], current_switch_jumptable[e],tmp2);    -  e=store_constant(sp-1); +  e=store_constant(sp-1,1);    upd_short(tmp1,e);       pop_stack();
1159:    if(!(flags & DO_NOT_COPY))    {    while(n && n->token==F_INDEX) n=CAR(n); -  if(n->token==F_CONSTANT) +  if(n->token==F_CONSTANT && !(n->node_info & OPT_EXTERNAL_DEPEND))    ins_f_byte(F_COPY_VALUE);    }    }
1192:    }       default: -  tmp1=store_constant(&(n->u.sval)); +  tmp1=store_constant(&(n->u.sval),!(n->tree_info & OPT_EXTERNAL_DEPEND));    ins_f_byte_with_numerical_arg(F_CONSTANT,tmp1);    return 1;       case T_ARRAY:    case T_MAPPING:    case T_LIST: -  tmp1=store_constant(&(n->u.sval)); +  tmp1=store_constant(&(n->u.sval),!(n->tree_info & OPT_EXTERNAL_DEPEND));    ins_f_byte_with_numerical_arg(F_CONSTANT,tmp1); -  if(!(flags & DO_NOT_COPY)) /* copy later */ +  +  /* copy now or later ? */ +  if(!(flags & DO_NOT_COPY) && !(n->tree_info & OPT_EXTERNAL_DEPEND))    ins_f_byte(F_COPY_VALUE);    return 1;