[ruby-dev:6790] Re: Ruby 1.3.3-990513

小松です。

[ruby-dev:6731]では、gcc-2.8.1とegcs-1.1.2でしか試していませんでした
ので、今回は全部ccを使ってみました。

(1) ext/pty/Makefileがruby-1.3.3-990513.tar.gzに残っている。

(2) warningが出るのですが、eval.cのrb_eval_string_wrap()の、
        JUMP_TAG(state);
    は
        JUMP_TAG(*state);
    の間違い？
    読み切れなかったのでパッチにはしていません。

(3) ext/socket/getnameinfo.cの__constで引っかかりました。
    __constってどうしていままで通ってたんだろうと思ったら、
    gccならOKなんですね。

        % cat t.c
        __const char p[] = "Hello World!";
        % gcc -c t.c
        % 

(4) AIXで、dln.cのloadbind()の所でwarningが出るので(void*)のcastを追加。

(5) ext/pty/pty.cの183行目の#errorがSunOS 4.1.4のccだと、
        pty.c: 183: undefined control
    と出て通らないので、先頭が'#'で始まらないようにインデントした。

(6) SunOS 4.1.4のccで通らないので、ext/readline/readline.cと
    ext/tcltklib/tcltklib.cの関数定義の非ANSI化。

(7) SunOS 4.1.4のccにはoffsetofがないので、
        offsetof(struct sockaddr_in, sin_addr)
    は、
        (int)&((struct sockaddr_in *)0)->sin_addr
    などと書き換えるなりしなければならないが、configure.inか
    ext/socket/extconf.rbで判定してoffsetofのマクロを定義する
    ような形にすべきだと思うので、とりあえずレポートだけ。
    引っかかったのは、
        ext/socket/getaddrinfo.c 112行
        ext/socket/getnameinfo.c  67行
    です。

	/	/	/

[Solaris 2.5.1] WorkShop Compilers 4.2.1 04 Feb 1997 C 4.2.1
    % env CC=cc CFLAGS=-O ./configure --with-readline-dir=/usr/local

[SunOS 4.1.4] cc
    sparc-sunos4.1.4_JLとなるのを避けるため--hostを指定しています。
    % env CC=cc CFLAGS=-O ./configure --host=sparc-sunos4.1.4 \
        --with-readline-dir=/usr/local

[HP-UX 10.20] HP92453-01 A.10.32.22 HP C Compiler (PHSS_17507)
    今回はcc -Ae -O +Onolimitにしてみました。
    % env CC='cc -Ae' CFLAGS='-O +Onolimit' ./configure \
        --with-readline-dir=/usr/local

[AIX 4.1.3] C Set++ 3.1.4.0
    % env CC=cc CFLAGS='-O -qmaxmem=8192' ./configure \
        --with-readline-dir=/usr/local

	/	/	/

diff -r -u ruby-1.3.3-990513.orig/dln.c ruby-1.3.3-990513/dln.c
--- ruby-1.3.3-990513.orig/dln.c	Thu May 13 19:00:58 1999
+++ ruby-1.3.3-990513/dln.c	Thu May 13 22:03:03 1999
@@ -1348,7 +1348,7 @@
 	if (init_fct == NULL) {
 	    aix_loaderror(file);
 	}
-	if (loadbind(0, main_module, init_fct) == -1) {
+	if (loadbind(0, main_module, (void*)init_fct) == -1) {
 	    aix_loaderror(file);
 	}
 	(*init_fct)();
diff -r -u ruby-1.3.3-990513.orig/ext/pty/pty.c ruby-1.3.3-990513/ext/pty/pty.c
--- ruby-1.3.3-990513.orig/ext/pty/pty.c	Thu May 13 12:46:03 1999
+++ ruby-1.3.3-990513/ext/pty/pty.c	Thu May 13 22:39:43 1999
@@ -180,7 +180,7 @@
 	rb_raise(rb_eRuntimeError, "Stopped: %d",cpid);
     }
 #else
-#error "Either IF_STOPPED or WIFSTOPPED is needed"
+    #error "Either IF_STOPPED or WIFSTOPPED is needed"
 #endif /* WIFSTOPPED */
 #endif /* IF_STOPPED */
     if (n >= 0) {
diff -r -u ruby-1.3.3-990513.orig/ext/readline/readline.c ruby-1.3.3-990513/ext/readline/readline.c
--- ruby-1.3.3-990513.orig/ext/readline/readline.c	Tue May 11 10:21:13 1999
+++ ruby-1.3.3-990513/ext/readline/readline.c	Thu May 13 22:17:49 1999
@@ -23,7 +23,10 @@
 }
 
 static VALUE
-readline_readline(int argc, VALUE *argv, VALUE self)
+readline_readline(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
 {
     VALUE tmp, add_hist, result;
     char *prompt = NULL;
@@ -45,7 +48,9 @@
 }
 
 static VALUE
-readline_s_set_completion_proc(VALUE self, VALUE proc)
+readline_s_set_completion_proc(self, proc)
+    VALUE self;
+    VALUE proc;
 {
     if (!rb_respond_to(proc, rb_intern("call")))
 	rb_raise(rb_eArgError, "argument have to respond to `call'");
@@ -53,25 +58,32 @@
 }
 
 static VALUE
-readline_s_get_completion_proc(VALUE self)
+readline_s_get_completion_proc(self)
+    VALUE self;
 {
     return rb_iv_get(mReadline, COMPLETION_PROC);
 }
 
 static VALUE
-readline_s_set_completion_case_fold(VALUE self, VALUE val)
+readline_s_set_completion_case_fold(self, val)
+    VALUE self;
+    VALUE val;
 {
     return rb_iv_set(mReadline, COMPLETION_CASE_FOLD, val);
 }
 
 static VALUE
-readline_s_get_completion_case_fold(VALUE self)
+readline_s_get_completion_case_fold(self)
+    VALUE self;
 {
     return rb_iv_get(mReadline, COMPLETION_CASE_FOLD);
 }
 
 static char **
-readline_attempted_completion_function(char *text, int start, int end)
+readline_attempted_completion_function(text, start, end)
+    char *text;
+    int start;
+    int end;
 {
     VALUE proc, ary, temp;
     char **result;
@@ -133,27 +145,32 @@
 }
 
 static VALUE
-readline_s_vi_editing_mode(VALUE self)
+readline_s_vi_editing_mode(self)
+    VALUE self;
 {
     rl_vi_editing_mode(1,0);
     return Qnil;
 }
 
 static VALUE
-readline_s_emacs_editing_mode(VALUE self)
+readline_s_emacs_editing_mode(self)
+    VALUE self;
 {
     rl_emacs_editing_mode(1,0);
     return Qnil;
 }
 
 static VALUE
-hist_to_s(VALUE self)
+hist_to_s(self)
+    VALUE self;
 {
     return rb_str_new2("HISTORY");
 }
 
 static VALUE
-hist_get(VALUE self, VALUE index)
+hist_get(self, index)
+    VALUE self;
+    VALUE index;
 {
     HISTORY_STATE *state;
     int i;
@@ -167,7 +184,10 @@
 }
 
 static VALUE
-hist_set(VALUE self, VALUE index, VALUE str)
+hist_set(self, index, str)
+    VALUE self;
+    VALUE index;
+    VALUE str;
 {
     HISTORY_STATE *state;
     int i;
@@ -182,15 +202,19 @@
 }
 
 static VALUE
-hist_push(VALUE self, VALUE str)
+hist_push(self, str)
+    VALUE self;
+    VALUE str;
 {
     add_history(STR2CSTR(str));
     return self;
 }
 
 static VALUE
-hist_push_method(int argc, VALUE *argv,
-			      VALUE self)
+hist_push_method(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
 {
     VALUE str;
     
@@ -202,7 +226,8 @@
 }
 
 static VALUE
-hist_pop(VALUE self)
+hist_pop(self)
+    VALUE self;
 {
     HISTORY_STATE *state;
     HIST_ENTRY *entry;
@@ -217,7 +242,8 @@
 }
 
 static VALUE
-hist_shift(VALUE self)
+hist_shift(self)
+    VALUE self;
 {
     HISTORY_STATE *state;
     HIST_ENTRY *entry;
@@ -232,7 +258,8 @@
 }
 
 static VALUE
-hist_each(VALUE self)
+hist_each(self)
+    VALUE self;
 {
     HISTORY_STATE *state;
     int i;
@@ -245,7 +272,8 @@
 }
 
 static VALUE
-hist_length(VALUE self)
+hist_length(self)
+    VALUE self;
 {
     HISTORY_STATE *state;
 
@@ -254,7 +282,8 @@
 }
 
 static VALUE
-hist_empty_p(VALUE self)
+hist_empty_p(self)
+    VALUE self;
 {
     HISTORY_STATE *state;
 
@@ -266,7 +295,9 @@
 }
 
 static VALUE
-hist_delete_at(VALUE self, VALUE index)
+hist_delete_at(self, index)
+    VALUE self;
+    VALUE index;
 {
     HISTORY_STATE *state;
     HIST_ENTRY *entry;
@@ -282,7 +313,9 @@
 }
 
 static VALUE
-filename_completion_proc_call(VALUE self, VALUE str)
+filename_completion_proc_call(self, str)
+    VALUE self;
+    VALUE str;
 {
     VALUE result;
     char **matches;
@@ -307,7 +340,9 @@
 }
 
 static VALUE
-username_completion_proc_call(VALUE self, VALUE str)
+username_completion_proc_call(self, str)
+    VALUE self;
+    VALUE str;
 {
     VALUE result;
     char **matches;
@@ -332,7 +367,7 @@
 }
 
 void
-Init_readline(void)
+Init_readline()
 {
     VALUE histary, fcomp, ucomp;
 
diff -r -u ruby-1.3.3-990513.orig/ext/socket/getnameinfo.c ruby-1.3.3-990513/ext/socket/getnameinfo.c
--- ruby-1.3.3-990513.orig/ext/socket/getnameinfo.c	Sat May  8 00:34:36 1999
+++ ruby-1.3.3-990513/ext/socket/getnameinfo.c	Thu May 13 22:29:28 1999
@@ -86,7 +86,7 @@
 static const char *
 inet_ntop(af, addr, numaddr, numaddr_len)
 	int af;
-	__const void *addr;
+	const void *addr;
 	char *numaddr;
 	size_t numaddr_len;
 {
diff -r -u ruby-1.3.3-990513.orig/ext/tcltklib/tcltklib.c ruby-1.3.3-990513/ext/tcltklib/tcltklib.c
--- ruby-1.3.3-990513.orig/ext/tcltklib/tcltklib.c	Tue Apr 20 17:41:52 1999
+++ ruby-1.3.3-990513/ext/tcltklib/tcltklib.c	Thu May 13 22:37:06 1999
@@ -49,7 +49,8 @@
 } Tk_TimerData;
 
 /* timer callback */
-void _timer_for_tcl (ClientData clientData)
+void _timer_for_tcl(clientData)
+    ClientData clientData;
 {
     Tk_TimerData *timer = (Tk_TimerData*)clientData;
 
@@ -64,7 +65,8 @@
 
 /* execute Tk_MainLoop */
 static VALUE
-lib_mainloop(VALUE self)
+lib_mainloop(self)
+    VALUE self;
 {
     Tk_TimerData *timer;
 
@@ -95,7 +97,9 @@
 
 /* Tcl command `ruby' */
 static VALUE
-ip_eval_rescue(VALUE *failed, VALUE einfo)
+ip_eval_rescue(failed, einfo)
+    VALUE *failed;
+    VALUE einfo;
 {
     *failed = einfo;
     return Qnil;
@@ -103,10 +107,17 @@
 
 static int
 #if TCL_MAJOR_VERSION >= 8
-ip_ruby(ClientData clientData, Tcl_Interp *interp, 
-	int argc, Tcl_Obj *CONST argv[])
+ip_ruby(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp *interp; 
+    int argc;
+    Tcl_Obj *CONST argv[];
 #else
-ip_ruby(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[])
+ip_ruby(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp *interp;
+    int argc;
+    char *argv[];
 #endif
 {
     VALUE res;
@@ -163,7 +174,8 @@
 
 /* destroy interpreter */
 static void
-ip_free(struct tcltkip *ptr)
+ip_free(ptr)
+    struct tcltkip *ptr;
 {
     DUMP1("Tcl_DeleteInterp");
     Tcl_DeleteInterp(ptr->ip);
@@ -172,7 +184,8 @@
 
 /* create and initialize interpreter */
 static VALUE
-ip_new(VALUE self)
+ip_new(self)
+    VALUE self;
 {
     struct tcltkip *ptr;	/* tcltkip data struct */
     VALUE obj;			/* newly created object */
@@ -214,7 +227,9 @@
 
 /* eval string in tcl by Tcl_Eval() */
 static VALUE
-ip_eval(VALUE self, VALUE str)
+ip_eval(self, str)
+    VALUE self;
+    VALUE str;
 {
     char *s;
     char *buf;			/* Tcl_Eval requires re-writable string region */
@@ -240,7 +255,10 @@
 
 
 static VALUE
-ip_toUTF8(VALUE self, VALUE str, VALUE encodename)
+ip_toUTF8(self, str, encodename)
+    VALUE self;
+    VALUE str;
+    VALUE encodename;
 {
 #ifndef TCL_UTF_MAX
   return str;
@@ -272,7 +290,10 @@
 }
 
 static VALUE
-ip_fromUTF8(VALUE self, VALUE str, VALUE encodename)
+ip_fromUTF8(self, str, encodename)
+    VALUE self;
+    VALUE str;
+    VALUE encodename;
 {
 #ifndef TCL_UTF_MAX
   return str;
@@ -305,7 +326,10 @@
 
 
 static VALUE
-ip_invoke(int argc, VALUE *argv, VALUE obj)
+ip_invoke(argc, argv, obj)
+    int argc;
+    VALUE *argv;
+    VALUE obj;
 {
     struct tcltkip *ptr;	/* tcltkip data struct */
     int i;
@@ -384,7 +408,8 @@
 
 /* get return code from Tcl_Eval() */
 static VALUE
-ip_retval(VALUE self)
+ip_retval(self)
+    VALUE self;
 {
     struct tcltkip *ptr;	/* tcltkip data struct */
 

--
小松克行 （株）サリオンシステムズリサーチ ソフトウェア開発部
Katsuyuki Komatsu <[e-mail]>