[ruby-dev:28265] Re: FUNCTION_CALL_MAY_RETURN_TWICE

In article <[e-mail]>,
  Tanaka Akira <[e-mail]> writes:

> というわけで、carry flag が 1 になっているのがなぜか、という
> 話なんですが、さて?

そっか、carry flag が 1 なのは、getcontext で保存する時に 1
だったからですね。

http://www.freebsd.org/cgi/query-pr.cgi?pr=92110 に送ってお
きました。

それはそれとして、getcontext の前で 0 にしておけばごまかせる
わけで、次のようにしてみるとどうでしょう?

Index: eval.c
===================================================================
RCS file: /src/ruby/eval.c,v
retrieving revision 1.871
diff -u -p -r1.871 eval.c
--- eval.c	18 Jan 2006 15:00:58 -0000	1.871
+++ eval.c	21 Jan 2006 20:28:42 -0000
@@ -171,9 +171,11 @@ int function_call_may_return_twice_false
 #define FUNCTION_CALL_MAY_RETURN_TWICE 0
 #endif
 #define ruby_longjmp(env, val) rb_jump_context(env, val)
+static volatile int freebsd_clear_carry_flag = 0;
 #define ruby_setjmp(just_before_setjmp, j) ((j)->status = 0, \
     (just_before_setjmp), \
     FUNCTION_CALL_MAY_RETURN_TWICE, \
+    freebsd_clear_carry_flag = freebsd_clear_carry_flag + freebsd_clear_carry_flag, \
     getcontext(&(j)->context), \
     FUNCTION_CALL_MAY_RETURN_TWICE, \
     (j)->status)

FUNCTION_CALL_MAY_RETURN_TWICE を getcontext の前で呼ぶと直
るのは、(0 ? setjmp() : 0) の真偽判定で carry flag が 0 にな
るから、ですかね。
-- 
[田中 哲][たなか あきら][Tanaka Akira]