2000-07-28
2000-07-28 17:16:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
1f21335d77ba21a17d4aafbc236b50418322b885
(29 lines)
(+15/-14)
[
Show
| Annotate
]
Branch: 7.9
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
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: interpret.c,v 1.157 2000/07/07 01:24:14 hubbe Exp $");
+ RCSID("$Id: interpret.c,v 1.158 2000/07/28 17:16:55 hubbe Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
62:
/* Pike_sp points to first unused value on stack
* (much simpler than letting it point at the last used value.)
*/
- struct Pike_interpreter Pike_interpreter;
- int stack_size = EVALUATOR_STACK_SIZE;
+ PMOD_EXPORT struct Pike_interpreter Pike_interpreter;
+ PMOD_EXPORT int stack_size = EVALUATOR_STACK_SIZE;
/* mark stack, used to store markers into the normal stack */
266:
}
}
- void assign_lvalue(struct svalue *lval,struct svalue *from)
+ PMOD_EXPORT void assign_lvalue(struct svalue *lval,struct svalue *from)
{
#ifdef PIKE_SECURITY
if(lval->type <= MAX_COMPLEX)
668:
#endif
- void mega_apply2(enum apply_type type, INT32 args, void *arg1, void *arg2)
+ PMOD_EXPORT void mega_apply2(enum apply_type type, INT32 args, void *arg1, void *arg2)
{
struct object *o;
struct pike_frame *scope=0;
1182: Inside #if defined(PIKE_SECURITY)
Pike_interpreter.current_creds = creds;
}
- void mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2)
+ PMOD_EXPORT void mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2)
{
ONERROR tmp;
if(Pike_interpreter.current_creds)
1229:
}
}
- void f_call_function(INT32 args)
+ PMOD_EXPORT void f_call_function(INT32 args)
{
mega_apply(APPLY_STACK,args,0,0);
}
- int apply_low_safe_and_stupid(struct object *o, INT32 offset)
+ PMOD_EXPORT int apply_low_safe_and_stupid(struct object *o, INT32 offset)
{
JMP_BUF tmp;
struct pike_frame *new_frame=alloc_pike_frame();
1279:
return ret;
}
- void safe_apply_low(struct object *o,int fun,int args)
+ PMOD_EXPORT void safe_apply_low(struct object *o,int fun,int args)
{
JMP_BUF recovery;
1327:
}
- void safe_apply(struct object *o, char *fun ,INT32 args)
+ PMOD_EXPORT void safe_apply(struct object *o, char *fun ,INT32 args)
{
#ifdef PIKE_DEBUG
if(!o->prog) fatal("Apply safe on destructed object.\n");
1335:
safe_apply_low(o, find_identifier(fun, o->prog), args);
}
- void apply_lfun(struct object *o, int fun, int args)
+ PMOD_EXPORT void apply_lfun(struct object *o, int fun, int args)
{
#ifdef PIKE_DEBUG
if(fun < 0 || fun >= NUM_LFUNS)
1347:
apply_low(o, (int)FIND_LFUN(o->prog,fun), args);
}
- void apply_shared(struct object *o,
+ PMOD_EXPORT void apply_shared(struct object *o,
struct pike_string *fun,
int args)
{
apply_low(o, find_shared_string_identifier(fun, o->prog), args);
}
- void apply(struct object *o, char *fun, int args)
+ PMOD_EXPORT void apply(struct object *o, char *fun, int args)
{
apply_low(o, find_identifier(fun, o->prog), args);
}
- void apply_svalue(struct svalue *s, INT32 args)
+ PMOD_EXPORT void apply_svalue(struct svalue *s, INT32 args)
{
if(s->type==T_INT)
{