pike.git/ src/ array.c

2000-04-20

2000-04-20 02:41:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• a96ce9ba992f5602e54d0ce60fed821697ab775d (15 lines) (+4/-11) ^{[ Show | Annotate ]}
  Branch: 7.9

bye bye accumulator

Rev: bin/mkpeep.pike:1.14
Rev: src/Makefile.in:1.190
Rev: src/array.c:1.67
Rev: src/docode.c:1.68
Rev: src/docode.h:1.9
Rev: src/error.h:1.41
Rev: src/gc.c:1.75
Rev: src/interpret_functions.h:1.10
Rev: src/interpreter.h:1.42
Rev: src/language.yacc:1.180
Rev: src/lex.c:1.74
Rev: src/lex.h:1.15
Rev: src/object.c:1.117
Rev: src/opcodes.c:1.74
Rev: src/operators.c:1.91
Rev: src/peep.c:1.30
Rev: src/peep.h:1.5
Rev: src/peep.in:1.28

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.66 2000/04/20 01:49:42 mast Exp $"); + RCSID("$Id: array.c,v 1.67 2000/04/20 02:41:44 hubbe Exp $");      struct array empty_array=   {
1967:    if(!(next=a->next))    fatal("Null pointer in array list.\n");    -  while((next=a->next) != &empty_array && a->refs == 1) -  { -  add_ref(next); -  free_program(a); -  a=next; -  } -  -  free_array(a); -  a=next; +  SET_NEXT_AND_FREE(a,free_array);    } while (a != & empty_array);   }