зеркало из https://github.com/github/ruby.git
* eval_intern.h, yarvcore.h: remove unused macro definition.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11654 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
Родитель
4042176a99
Коммит
0b91bd56c2
|
@ -1,3 +1,7 @@
|
|||
Wed Feb 7 22:33:58 2007 Koichi Sasada <ko1@atdot.net>
|
||||
|
||||
* eval_intern.h, yarvcore.h: remove unused macro definition.
|
||||
|
||||
Wed Feb 7 22:30:28 2007 Koichi Sasada <ko1@atdot.net>
|
||||
|
||||
* eval.c: fixed to use ANSI function style.
|
||||
|
|
|
@ -90,67 +90,6 @@ char *strrchr _((const char *, const char));
|
|||
#include "vmsruby_private.h"
|
||||
#endif
|
||||
|
||||
#ifdef USE_CONTEXT
|
||||
|
||||
NORETURN(static void rb_jump_context(rb_jmpbuf_t, int));
|
||||
static inline void
|
||||
rb_jump_context(rb_jmpbuf_t env, int val)
|
||||
{
|
||||
env->status = val;
|
||||
setcontext(&env->context);
|
||||
abort(); /* ensure noreturn */
|
||||
}
|
||||
|
||||
/*
|
||||
* FUNCTION_CALL_MAY_RETURN_TWICE is a magic for getcontext, gcc,
|
||||
* IA64 register stack and SPARC register window combination problem.
|
||||
*
|
||||
* Assume following code sequence.
|
||||
*
|
||||
* 1. set a register in the register stack/window such as r32/l0.
|
||||
* 2. call getcontext.
|
||||
* 3. use the register.
|
||||
* 4. update the register for other use.
|
||||
* 5. call setcontext indirectly (or directly).
|
||||
*
|
||||
* This code should be run as 1->2->3->4->5->3->4.
|
||||
* But after second getcontext return (second 3),
|
||||
* the register is broken (updated).
|
||||
* It's because getcontext/setcontext doesn't preserve the content of the
|
||||
* register stack/window.
|
||||
*
|
||||
* setjmp also doesn't preserve the content of the register stack/window.
|
||||
* But it has not the problem because gcc knows setjmp may return twice.
|
||||
* gcc detects setjmp and generates setjmp safe code.
|
||||
*
|
||||
* So setjmp call before getcontext call makes the code somewhat safe.
|
||||
* It fix the problem on IA64.
|
||||
* It is not required that setjmp is called at run time, since the problem is
|
||||
* register usage.
|
||||
*
|
||||
* Since the magic setjmp is not enough for SPARC,
|
||||
* inline asm is used to prohibit registers in register windows.
|
||||
*/
|
||||
#if defined (__GNUC__) && (defined(sparc) || defined(__sparc__))
|
||||
#define FUNCTION_CALL_MAY_RETURN_TWICE \
|
||||
({ __asm__ volatile ("" : : : \
|
||||
"%o0", "%o1", "%o2", "%o3", "%o4", "%o5", "%o7", \
|
||||
"%l0", "%l1", "%l2", "%l3", "%l4", "%l5", "%l6", "%l7", \
|
||||
"%i0", "%i1", "%i2", "%i3", "%i4", "%i5", "%i7"); })
|
||||
#else
|
||||
extern jmp_buf function_call_may_return_twice_jmp_buf;
|
||||
extern int function_call_may_return_twice_false;
|
||||
#define FUNCTION_CALL_MAY_RETURN_TWICE \
|
||||
(function_call_may_return_twice_false ? \
|
||||
setjmp(function_call_may_return_twice_jmp_buf) : \
|
||||
0)
|
||||
#endif
|
||||
#define ruby_longjmp(env, val) rb_jump_context(env, val)
|
||||
#define ruby_setjmp(j) ((j)->status = 0, \
|
||||
FUNCTION_CALL_MAY_RETURN_TWICE, \
|
||||
getcontext(&(j)->context), \
|
||||
(j)->status)
|
||||
#else
|
||||
#if !defined(setjmp) && defined(HAVE__SETJMP)
|
||||
#define ruby_setjmp(env) _setjmp(env)
|
||||
#define ruby_longjmp(env,val) _longjmp(env,val)
|
||||
|
@ -158,7 +97,6 @@ extern int function_call_may_return_twice_false;
|
|||
#define ruby_setjmp(env) setjmp(env)
|
||||
#define ruby_longjmp(env,val) longjmp(env,val)
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <signal.h>
|
||||
|
|
11
yarvcore.h
11
yarvcore.h
|
@ -17,10 +17,6 @@
|
|||
|
||||
#include <setjmp.h>
|
||||
|
||||
#if 0 && defined(HAVE_GETCONTEXT) && defined(HAVE_SETCONTEXT)
|
||||
#include <ucontext.h>
|
||||
#define USE_CONTEXT
|
||||
#endif
|
||||
#include "ruby.h"
|
||||
#include "st.h"
|
||||
#include "node.h"
|
||||
|
@ -371,14 +367,7 @@ enum rb_thread_status {
|
|||
THREAD_KILLED,
|
||||
};
|
||||
|
||||
#ifdef USE_CONTEXT
|
||||
typedef struct {
|
||||
ucontext_t context;
|
||||
volatile int status;
|
||||
} rb_jmpbuf_t[1];
|
||||
#else
|
||||
typedef jmp_buf rb_jmpbuf_t;
|
||||
#endif
|
||||
|
||||
struct rb_vm_tag {
|
||||
rb_jmpbuf_t buf;
|
||||
|
|
Загрузка…
Ссылка в новой задаче