[ruby-list:8696] xtoolkit bug

立石＠JAISTです。

xtoolkitのxt.cにruby-1.1b9_30では
扱っていない外部変数の宣言がありました。

*** xt.c.old	Sun Jul 12 00:14:47 1998
--- xt.c	Sun Jul 12 00:15:49 1998
***************
*** 196,213 ****
  
  static VALUE Application_initialize(VALUE self, VALUE name)
  {
!     extern VALUE Progname;
!     extern VALUE Argv;
      XtAppContext app;
      Widget widget;
!     int i, argc = RARRAY(Argv)->len + 1;
      char **argv;
  
      Check_Type(name, T_STRING);
      argv = (char **) alloca(sizeof(char *) * argc);
!     argv[0] = RSTRING(Progname)->ptr;
      for (i = 1; i < argc; i++) {
! 	argv[i] = RSTRING(RARRAY(Argv)->ptr[i - 1])->ptr;
      }
      widget = XtOpenApplication(&app,
  			       RSTRING(name)->ptr,
--- 196,213 ----
  
  static VALUE Application_initialize(VALUE self, VALUE name)
  {
!     extern VALUE rb_progname;
!     extern VALUE rb_argv;
      XtAppContext app;
      Widget widget;
!     int i, argc = RARRAY(rb_argv)->len + 1;
      char **argv;
  
      Check_Type(name, T_STRING);
      argv = (char **) alloca(sizeof(char *) * argc);
!     argv[0] = RSTRING(rb_progname)->ptr;
      for (i = 1; i < argc; i++) {
! 	argv[i] = RSTRING(RARRAY(rb_argv)->ptr[i - 1])->ptr;
      }
      widget = XtOpenApplication(&app,
  			       RSTRING(name)->ptr,