Branch: Tag:

2000-07-28

2000-07-28 17:16:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

JUMBOPATCH: dynamic loading now works on Win* !!!! (somewhat experimental :)

Rev: src/.cvsignore:1.24
Rev: src/Makefile.in:1.198
Rev: src/aclocal.m4:1.17
Rev: src/array.c:1.79
Rev: src/array.h:1.22
Rev: src/backend.c:1.53
Rev: src/backend.h:1.9
Rev: src/bignum.c:1.17
Rev: src/bignum.h:1.14
Rev: src/builtin_functions.c:1.293
Rev: src/builtin_functions.h:1.14
Rev: src/callback.c:1.20
Rev: src/configure.in:1.387
Rev: src/constants.c:1.22
Rev: src/dynamic_buffer.c:1.10
Rev: src/dynamic_load.c:1.41
Rev: src/error.c:1.56
Rev: src/error.h:1.46
Rev: src/fd_control.c:1.32
Rev: src/fdlib.c:1.37
Rev: src/fdlib.h:1.34
Rev: src/fsort.c:1.13
Rev: src/fsort_template.h:1.7
Rev: src/gc.c:1.110
Rev: src/gc.h:1.57
Rev: src/global.h:1.44
Rev: src/interpret.c:1.158
Rev: src/interpret.h:1.52
Rev: src/main.c:1.94
Rev: src/mapping.c:1.94
Rev: src/mapping.h:1.28
Rev: src/module_magic.h:1.1
Rev: src/module_support.c:1.34
Rev: src/module_support.h:1.7
Rev: src/multiset.c:1.26
Rev: src/object.c:1.137
Rev: src/object.h:1.50
Rev: src/opcodes.c:1.78
Rev: src/operators.c:1.93
Rev: src/operators.h:1.8
Rev: src/pike_macros.h:1.17
Rev: src/pike_memory.c:1.71
Rev: src/pike_memory.h:1.14
Rev: src/pike_types.c:1.132
Rev: src/port.c:1.28
Rev: src/precompile.sh.in:1.2
Rev: src/program.c:1.252
Rev: src/program.h:1.97
Rev: src/signal_handler.c:1.173
Rev: src/stralloc.c:1.85
Rev: src/stralloc.h:1.42
Rev: src/stuff.c:1.11
Rev: src/svalue.c:1.85
Rev: src/svalue.h:1.62
Rev: src/testsuite.in:1.316
Rev: src/threads.c:1.133
Rev: src/threads.h:1.99

21:   #include "threads.h"   #include "gc.h"    - RCSID("$Id: error.c,v 1.55 2000/07/07 01:46:21 hubbe Exp $"); + RCSID("$Id: error.c,v 1.56 2000/07/28 17:16:54 hubbe Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)         #ifdef PIKE_DEBUG - void check_recovery_context(void) + PMOD_EXPORT void check_recovery_context(void)   {    char foo;   #define TESTILITEST ((((char *)Pike_interpreter.recoveries)-((char *)&foo))*STACK_DIRECTION)
38:    /* Add more stuff here when required */   }    - void pike_gdb_breakpoint(void) + PMOD_EXPORT void pike_gdb_breakpoint(void)   {   }   #endif    - JMP_BUF *init_recovery(JMP_BUF *r DEBUG_LINE_ARGS) + PMOD_EXPORT JMP_BUF *init_recovery(JMP_BUF *r DEBUG_LINE_ARGS)   {    check_recovery_context();   #ifdef PIKE_DEBUG
62:    return r;   }    - void pike_throw(void) ATTRIBUTE((noreturn)) + PMOD_EXPORT void pike_throw(void) ATTRIBUTE((noreturn))   {    while(Pike_interpreter.recoveries && throw_severity > Pike_interpreter.recoveries->severity)    {
104:    longjmp(Pike_interpreter.recoveries->recovery,1);   }    - void push_error(char *description) + PMOD_EXPORT void push_error(char *description)   {    push_text(description);    f_backtrace(0);
115:   int throw_severity;   static const char *in_error;    - void low_error(char *buf) ATTRIBUTE((noreturn)) + PMOD_EXPORT void low_error(char *buf) ATTRIBUTE((noreturn))   {    push_error(buf);    free_svalue(& throw_value);
163:    low_error(buf);   }    - void new_error(const char *name, const char *text, struct svalue *oldsp, + PMOD_EXPORT void new_error(const char *name, const char *text, struct svalue *oldsp,    INT32 args, const char *file, int line) ATTRIBUTE((noreturn))   {    int i;
223:    pike_throw(); /* Hope someone is catching, or we will be out of balls. */   }    - void exit_on_error(void *msg) + PMOD_EXPORT void exit_on_error(void *msg)   {    ONERROR tmp;    SET_ONERROR(tmp,fatal_on_error,"Fatal in exit_on_error!");
248:    exit(1);   }    - void fatal_on_error(void *msg) + PMOD_EXPORT void fatal_on_error(void *msg)   {   #ifdef PIKE_DEBUG    dump_backlog();
257:    abort();   }    - void error(const char *fmt,...) ATTRIBUTE((noreturn,format (printf, 1, 2))) + PMOD_EXPORT void error(const char *fmt,...) ATTRIBUTE((noreturn,format (printf, 1, 2)))   {    va_list args;    va_start(args,fmt);
265:    va_end(args);   }    - void debug_fatal(const char *fmt, ...) ATTRIBUTE((noreturn,format (printf, 1, 2))) + PMOD_EXPORT void debug_fatal(const char *fmt, ...) ATTRIBUTE((noreturn,format (printf, 1, 2)))   {    va_list args;    static int in_fatal = 0;
463:    pike_throw(); /* Hope someone is catching, or we will be out of balls. */   }    - void generic_error( + PMOD_EXPORT void generic_error(    char *func,    struct svalue *base_sp, int args,    char *desc, ...) ATTRIBUTE((noreturn,format (printf, 4, 5)))
472:    ERROR_DONE(generic);   }    - void index_error( + PMOD_EXPORT void index_error(    char *func,    struct svalue *base_sp, int args,    struct svalue *val,
485:    ERROR_DONE(generic);   }    - void bad_arg_error( + PMOD_EXPORT void bad_arg_error(    char *func,    struct svalue *base_sp, int args,    int which_arg,
509:    ERROR_DONE(generic);   }    - void math_error( + PMOD_EXPORT void math_error(    char *func,    struct svalue *base_sp, int args,    struct svalue *number,
527:    ERROR_DONE(generic);   }    - void resource_error( + PMOD_EXPORT void resource_error(    char *func,    struct svalue *base_sp, int args,    char *resource_type,
540:    ERROR_DONE(generic);   }    - void permission_error( + PMOD_EXPORT void permission_error(    char *func,    struct svalue *base_sp, int args,    char *permission_type,
552:    ERROR_DONE(generic);   }    - void wrong_number_of_args_error(char *name, int args, int expected) + PMOD_EXPORT void wrong_number_of_args_error(char *name, int args, int expected)   {    char *msg;    if(expected>args)