Branch: Tag:

1996-10-03

1996-10-03 23:44:19 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

threads added

Rev: src/Makefile.src:1.9
Rev: src/backend.c:1.3
Rev: src/builtin_functions.c:1.6
Rev: src/configure.in:1.6
Rev: src/constants.c:1.3
Rev: src/error.c:1.4
Rev: src/error.h:1.3
Rev: src/interpret.c:1.5
Rev: src/interpret.h:1.3
Rev: src/machine.h.in:1.5
Rev: src/main.c:1.5
Rev: src/modules/files/configure.in:1.6
Rev: src/modules/files/efuns.c:1.3
Rev: src/modules/files/file.c:1.7
Rev: src/modules/files/file_machine.h.in:1.3
Rev: src/modules/files/socket.c:1.3
Rev: src/modules/gdbmmod/gdbmmod.c:1.2
Rev: src/modules/readlinemod/readlinemod.c:1.3
Rev: src/modules/spider/configure.in:1.4
Rev: src/modules/spider/spider.c:1.10
Rev: src/program.c:1.2
Rev: src/threads.c:1.1
Rev: src/threads.h:1.1

17:      char *automatic_fatal, *exit_on_error;   JMP_BUF *recoveries=0; - ONERROR *onerror_stack=0; +       JMP_BUF *init_recovery(JMP_BUF *r)   {
25:    r->sp=sp-evaluator_stack;    r->mark_sp=mark_sp - mark_stack;    r->previous=recoveries; -  r->onerror=onerror_stack; +  r->onerror=0;    recoveries=r;    return r;   }
55:    pop_n_elems(sp - evaluator_stack - recoveries->sp);    mark_sp = mark_stack + recoveries->mark_sp;    -  while(recoveries->onerror != onerror_stack) +  while(recoveries->onerror)    { - #ifdef DEBUG -  if(!onerror_stack) -  fatal("Popped out of onerror stack!\n"); - #endif -  (*onerror_stack->func)(onerror_stack->arg); -  onerror_stack=onerror_stack->previous; +  (*recoveries->onerror->func)(recoveries->onerror->arg); +  recoveries->onerror=recoveries->onerror->previous;    }       longjmp(recoveries->recovery,1);