[ruby-dev:16845] ext/dl HP-UX

渡辺哲也です。

ruby-1.7.2 の CVS です。
久しぶりに HP-UX でコンパイルしたら気がつきました。

rb_raise() を raise(2) としているところがいくつかあ
りました。あと、配列の値の定義で変数を使っている部
分があったので、修正しました。残念ながら HP C
compiler では、これは解釈してくれませんので。

1.6 で以前話題にだした inline の話もあるんですが、
とりあえず

#define inline

だけしてコンパイルしてしまいました。

あとは、HP-UX の yacc を使う場合は

Makefile
------------------------------
YACC = yacc -Nl40000 -Nm40000
------------------------------

くらいにしないと動かないようです。


パッチです。
------------------------------------------------------------
--- ptr.c.org	Thu Apr  4 06:27:13 2002
+++ ptr.c	Thu Apr 11 17:55:54 2002
@@ -549,7 +549,7 @@
       return Qnil;
     }
     else{
-      raise(rb_eArgError, "wrong arguments");
+      rb_raise(rb_eArgError, "wrong arguments");
     };
   };
 
@@ -687,7 +687,7 @@
       elem = INT2NUM(*((short*)ptr));
       ptr = (char *)ptr + sizeof(short);
     default:
-      raise(rb_eDLTypeError, "unsupported type '%c'", t);
+      rb_raise(rb_eDLTypeError, "unsupported type '%c'", t);
     };
     return elem;
   };
@@ -723,7 +723,7 @@
       elem = INT2NUM(*((short*)ptr));
       ptr = (char *)ptr + sizeof(short);
     default:
-      raise(rb_eDLTypeError, "unsupported type '%c'", t);
+      rb_raise(rb_eDLTypeError, "unsupported type '%c'", t);
     };
     rb_ary_push(ary, elem);
   };
@@ -746,7 +746,8 @@
   };
 
   if( TYPE(key) == T_FIXNUM || TYPE(key) == T_BIGNUM ){
-    VALUE pass[] = {num};
+    VALUE pass[1];
+    pass[0] = num;
     return rb_dlptr_to_str(1, pass, rb_dlptr_plus(self, key));
   };
 
@@ -782,7 +783,7 @@
 	  DLALIGN(data->ptr,offset,SHORT_ALIGN);
 	  break;
 	default:
-	  raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
+	  rb_raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
 	};
 	return cary2ary((char *)data->ptr + offset, data->stype[i], data->ssize[i]);
       };
@@ -816,7 +817,7 @@
 	offset += sizeof(short) * data->ssize[i];
 	break;
       default:
-	raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
+	rb_raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
       };
     };
     break;
@@ -918,7 +919,7 @@
 	  DLALIGN(data->ptr,offset,SHORT_ALIGN);
 	  break;
 	default:
-	  raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
+	  rb_raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
 	};
 	memimg = ary2cary(data->stype[i], val, &memsize);
 	memcpy((char *)data->ptr + offset, memimg, memsize);
@@ -954,7 +955,7 @@
 	offset += sizeof(short) * data->ssize[i];
 	break;
       default:
-	raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
+	rb_raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
       };
     };
     return val;
@@ -985,7 +986,7 @@
 	  memsize = sizeof(short) * data->ssize[i];
 	  break;
 	default:
-	  raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
+	  rb_raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
 	};
 	memimg = ary2cary(data->stype[i], val, NULL);
 	memcpy(data->ptr, memimg, memsize);
--- sym.c.org	Fri Apr  5 08:38:17 2002
+++ sym.c	Thu Apr 11 17:57:04 2002
@@ -410,7 +410,7 @@
       }
       else{
 	if( TYPE(argv[i]) != T_STRING ){
-	  raise(rb_eDLError, "#%d must be a string",i);
+	  rb_raise(rb_eDLError, "#%d must be a string",i);
 	};
 	ANY2S(args[i]) = DLSTR(RSTRING(argv[i])->ptr);
       };
@@ -418,7 +418,7 @@
       break;
     case 's':
       if( TYPE(argv[i]) != T_STRING ){
-	raise(rb_eDLError, "#%d must be a string",i);
+	rb_raise(rb_eDLError, "#%d must be a string",i);
       };
       ANY2S(args[i]) = DLSTR(dlmalloc(RSTRING(argv[i])->len + 1));
       memcpy((char*)(ANY2S(args[i])), RSTRING(argv[i])->ptr, RSTRING(argv[i])->len + 1);