Branch: Tag:

1997-08-30

1997-08-30 18:36:28 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed prototypes almost everywhere.

Rev: src/acconfig.h:1.9
Rev: src/array.c:1.12
Rev: src/array.h:1.4
Rev: src/backend.c:1.15
Rev: src/backend.h:1.3
Rev: src/builtin_functions.c:1.41
Rev: src/builtin_functions.h:1.4
Rev: src/callback.c:1.9
Rev: src/callback.h:1.4
Rev: src/constants.c:1.12
Rev: src/constants.h:1.5
Rev: src/docode.c:1.20
Rev: src/docode.h:1.3
Rev: src/dynamic_load.c:1.19
Rev: src/dynamic_load.h:1.2
Rev: src/error.c:1.8
Rev: src/error.h:1.6
Rev: src/gc.c:1.12
Rev: src/gc.h:1.10
Rev: src/hashtable.c:1.3
Rev: src/hashtable.h:1.4
Rev: src/interpret.c:1.45
Rev: src/interpret.h:1.12
Rev: src/language.yacc:1.46
Rev: src/las.c:1.36
Rev: src/las.h:1.8
Rev: src/lex.c:1.26
Rev: src/lex.h:1.5
Rev: src/main.c:1.23
Rev: src/mapping.c:1.21
Rev: src/mapping.h:1.4
Rev: src/modules/Gdbm/gdbmmod.c:1.4
Rev: src/modules/Gmp/mpz_glue.c:1.20
Rev: src/modules/Image/image.c:1.36
Rev: src/modules/Image/polyfill.c:1.5
Rev: src/modules/Mysql/mysql.c:1.6
Rev: src/modules/Pipe/pipe.c:1.11
Rev: src/modules/Regexp/glue.c:1.7
Rev: src/modules/Regexp/pike_regexp.c:1.5
Rev: src/modules/Ssleay/ssleay.c:1.7
Rev: src/modules/Yp/yp.c:1.8
Rev: src/modules/_Crypto/lib/desQuick.c:1.3
Rev: src/modules/call_out/call_out.c:1.13
Rev: src/modules/files/efuns.c:1.33
Rev: src/modules/files/file.c:1.51
Rev: src/modules/files/file.h:1.5
Rev: src/modules/files/socket.c:1.14
Rev: src/modules/math/math.c:1.5
Rev: src/modules/spider/accesseddb.c:1.10
Rev: src/modules/spider/dumudp.c:1.14
Rev: src/modules/spider/spider.c:1.39
Rev: src/modules/spider/streamed_parser.c:1.7
Rev: src/modules/spider/streamed_parser.h:1.2
Rev: src/multiset.c:1.7
Rev: src/multiset.h:1.3
Rev: src/object.c:1.21
Rev: src/object.h:1.11
Rev: src/opcodes.c:1.8
Rev: src/opcodes.h:1.3
Rev: src/operators.c:1.16
Rev: src/operators.h:1.3
Rev: src/peep.c:1.15
Rev: src/peep.h:1.3
Rev: src/pike_types.c:1.25
Rev: src/pike_types.h:1.5
Rev: src/program.c:1.37
Rev: src/program.h:1.18
Rev: src/rusage.c:1.8
Rev: src/rusage.h:1.2
Rev: src/signal_handler.c:1.14
Rev: src/signal_handler.h:1.3
Rev: src/stralloc.c:1.17
Rev: src/stralloc.h:1.9
Rev: src/svalue.c:1.14
Rev: src/threads.c:1.24
Rev: src/threads.h:1.12

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.44 1997/08/03 09:55:06 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.45 1997/08/30 18:35:34 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
67:   struct svalue **mark_stack; /* Start of stack */   int mark_stack_malloced = 0;    - void push_sp_mark() + void push_sp_mark(void)   {    if(mark_sp == mark_stack + stack_size)    error("No more mark stack!\n");    *mark_sp++=sp;   } - int pop_sp_mark() + int pop_sp_mark(void)   {   #ifdef DEBUG    if(mark_sp < mark_stack)
91:   }   #endif    - void init_interpreter() + void init_interpreter(void)   {   #ifdef USE_MMAP_FOR_STACK    static int fd = -1;
307:   }      #ifdef DEBUG - void print_return_value() + void print_return_value(void)   {    if(t_flag>3)    {
357:   /* This function is called 'every now and then'. (1-10000 / sec or so)    * It should do anything that needs to be done fairly often.    */ - void check_threads_etc() + void check_threads_etc(void)   {    call_callback(& evaluator_callbacks, (void *)0);   }
442:   /*    * reset the stack machine.    */ - void reset_evaluator() + void reset_evaluator(void)   {    fp=0;    pop_n_elems(sp - evaluator_stack);
1355:       fp = &new_frame;    + #ifdef PROFILING +  function->num_calls++; + #endif /* PROFILING */ +     if(function->func.offset == -1)    error("Calling undefined function '%s'.\n",function->name->str);   
1599:    break;       case T_OBJECT: -  { +     if(!s->u.object->prog)    error("Calling a destructed object.\n");   
1608:       apply_lfun(s->u.object, LFUN_CALL, args);    break; -  } +        case T_INT:    if (!s->u.integer) {
1624:    }    case T_MAPPING:    error("Attempt to call a mapping\n"); +  case T_MULTISET: +  error("Attempt to call a multiset\n");    default:    error("Call to non-function value type:%d.\n", s->type);    }
1682:   }      #ifdef DEBUG - void slow_check_stack() + void slow_check_stack(void)   {    struct svalue *s,**m;    struct frame *f;
1727:   }   #endif    - void cleanup_interpret() + void cleanup_interpret(void)   {   #ifdef DEBUG    int e;