Branch: Tag:

1996-02-17

1996-02-17 15:55:54 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

Completed removing compact arrays

Rev: src/array.c:1.5
Rev: src/array.h:1.3
Rev: src/builtin_efuns.c:1.8
Rev: src/call_out.c:1.2
Rev: src/interpret.c:1.6
Rev: src/list.c:1.2
Rev: src/lpc_types.c:1.2
Rev: src/main.c:1.2
Rev: src/mapping.c:1.2
Rev: src/modules/files/efuns.c:1.3
Rev: src/modules/regexp/glue.c:1.2
Rev: src/object.c:1.4
Rev: src/svalue.c:1.5
Rev: src/svalue.h:1.3

158:    call_and_free_callback_list(& post_master_callbacks);    init_modules_programs();    -  a=allocate_array_no_init(argc-e,0,T_STRING); +  a=allocate_array_no_init(argc-e,0);    for(num=0;e<argc;e++) -  SHORT_ITEM(a)[num++].string=make_shared_string(argv[e]); +  { +  ITEM(a)[num].u.string=make_shared_string(argv[e]); +  ITEM(a)[num].type=T_STRING; +  num++; +  }    push_array(a);       for(num=0;env[num];num++); -  a=allocate_array_no_init(num,0,T_STRING); +  a=allocate_array_no_init(num,0);    for(num=0;env[num];num++) -  SHORT_ITEM(a)[num].string=make_shared_string(env[num]); +  { +  ITEM(a)[num].u.string=make_shared_string(env[num]); +  ITEM(a)[num].type=T_STRING; +  }    push_array(a);       if(SETJMP(back))