[ruby-dev:12599] Re: compile error on ews48

新井です。

In message "[ruby-dev:12570] compile error on ews48"
  on Mon, 19 Mar 2001 23:54:20 +0900,
  Koji Arai <[e-mail]> wrote:
> 新井です。
> 
> 久々に EWS4800 でrubyをコンパイルしてみました。
> 
> で、案の定コンパイルに失敗してしまいました(;_;)
> 以下は暫定パッチです。

一応、本対処してみました。(パッチ参照)

alloca の件は本当にこれで良いのかちょっと自身ないですが。。

inline の件は
  AC_DEFINE(C_INLINE)
のようなそれらしい名前を使うよりは、
  AC_DEFINE(RUBY_NO_INLINE)
とした方が良いかも知れませんね。

# もっと良い対処法があっても良さそうなんだけど思いつかない。。

> さらに、make test で以下のエラーが出てしまいました。
> 
> $ make test
> not ok marshal 1 -- /home/arai/src/ruby-1.6.3-pre/ruby/sample/test.rb:1063
> test failed
> *** Error code 1 (bu21)
> make: fatal error.

これも直しました。
  SIZEOF_BDIGITS == SIZEOF_SHORT
のときの Bignum の dump と load の不整合でした。

※ 注: パッチの以下の行
+	    digits[big->len-1] = 1;
は消してください。再現用に埋め込んだのが残ってました。



diff -x configure -ru ruby.old/configure.in ruby/configure.in
--- ruby.old/configure.in	Fri Mar 16 17:25:17 2001
+++ ruby/configure.in	Wed Mar 21 13:37:09 2001
@@ -322,6 +322,7 @@
 test $rb_cv_func_strtod = no && LIBOBJS="$LIBOBJS strtod.o"
 
 AC_C_INLINE
+AC_EGREP_CPP(inline,[inline], AC_DEFINE(C_INLINE))
 AC_C_BIGENDIAN
 AC_C_CONST
 AC_C_CHAR_UNSIGNED
diff -x configure -ru ruby.old/gc.c ruby/gc.c
--- ruby.old/gc.c	Sun Feb 11 16:11:47 2001
+++ ruby/gc.c	Wed Mar 21 13:58:53 2001
@@ -41,20 +41,12 @@
 #else
 # if defined(HAVE_ALLOCA_H)
 #  include <alloca.h>
+# elif defined(_AIX)
+#prama alloca
 # elif !defined(alloca)
 char *alloca();
 # endif
 #endif /* __GNUC__ */
-
-#ifdef _AIX
-#pragma alloca
-#endif
-
-#ifdef C_ALLOCA
-#ifndef alloca
-void *alloca();
-#endif
-#endif
 
 static void run_final();
 
diff -x configure -ru ruby.old/marshal.c ruby/marshal.c
--- ruby.old/marshal.c	Tue Dec  5 18:36:31 2000
+++ ruby/marshal.c	Wed Mar 21 15:40:15 2001
@@ -823,8 +823,13 @@
 	    OBJSETUP(big, rb_cBignum, T_BIGNUM);
 	    big->sign = (r_byte(arg) == '+');
 	    len = r_long(arg);
+#if SIZEOF_BDIGITS == SIZEOF_SHORT
+	    big->len = len;
+#else
 	    big->len = (len + 1) * sizeof(short) / sizeof(BDIGIT);
+#endif
 	    big->digits = digits = ALLOC_N(BDIGIT, big->len);
+	    digits[big->len-1] = 1;
 	    while (len > 0) {
 #if SIZEOF_BDIGITS > SIZEOF_SHORT
 		BDIGIT num = 0;
diff -x configure -ru ruby.old/ruby.h ruby/ruby.h
--- ruby.old/ruby.h	Sat Feb 10 00:07:52 2001
+++ ruby/ruby.h	Wed Mar 21 10:36:36 2001
@@ -546,6 +546,7 @@
 extern inline int rb_type _((VALUE));
 extern inline int rb_special_const_p _((VALUE));
 
+#if defined(C_INLINE) || defined(RUBY_NO_INLINE)
 #ifndef RUBY_NO_INLINE
 extern inline
 #endif
@@ -585,6 +586,7 @@
     if (SPECIAL_CONST_P(obj)) return Qtrue;
     return Qfalse;
 }
+#endif
 
 #include "intern.h"
 

--
新井康司 (Koji Arai)