[ruby-list:19975] Re: build on alpha (1/2)

中川です。

明日、というか今日から正月休みに入りましたので、年が明けるまでは実機での
動作報告はおあずけです。

In message "[ruby-list:19891] Re: build on alpha (1/2)"
    on 99/12/27, EGUCHI Osamu <[e-mail]> wrote:

  > このメールのパッチは、 cvs の HEAD へのパッチです。
  > ＃このパッチでは、long long を元の long に直してあります。

こちらでも marshal のテスト以外は通りました。あと一息ですね。marshal の
結果は添付のようになりました。test.rb に適当に p をかましてます。

marshal
not ok marshal 1 -- sample/test.rb:1016
[1, 2, 3, [4, 5, "foo"], {1=>"bar"}, 2.5, 265252859812191058636308480000000]
"\004\002[\001\ai\001\001i\001\002i\001\003[\001\003i\001\004i\001\005\"\001..."
[1, 2, 3, [4, 5, "foo"], {1=>"bar"}, 2.5, 17378617590340844827396115850860712960]
"\004\002l+\001\010\000\000\000T\335\365]\206\226\0177\366\023\r\000\000"
17378617590340844827396115850860712960

check "marshal"
$x = [1,2,3,[4,5,"foo"],{1=>"bar"},2.5,fact(30)]
$y = Marshal.dump($x)
ok($x == Marshal.load($y))
p $x
p $y
p Marshal.load($y)
print Marshal.dump( fact(30) ).to_s.dump, "\n"
printf $stderr, Marshal.dump( fact(30) ), "\n"
p Marshal.load( Marshal.dump( fact(30) ))

hexl-mode:
00000000: 0402 6c2b 0108 0000 0054 ddf5 5d86 960f  ..l+.....T..]...
00000010: 37f6 130d 0000                           7.....

marshal.c についてレポジトリとの差分をもういっぺん出してもらった方がよい
のかもしれません。私が作業した marshal.c との差分を添付しておきます。

# 基本的にはえぐちさんのパッチを当てているだけです。字面上で気がついた部
# 分の int を long に変えたりはしてます。インデントが変わってしまってい
# る部分は目をつぶってください。

load か dump のどこかに問題があるのだろうということは分るのですが、それ
以上先へなかなか進むことができないです。

--[[application/octet-stream; type=patch] [7bit]]
Index: marshal.c
===================================================================
RCS file: /home/cvs/ruby/marshal.c,v
retrieving revision 1.7
diff -u -r1.7 marshal.c
--- marshal.c	1999/12/02 06:58:48	1.7
+++ marshal.c	1999/12/28 17:55:14
@@ -104,7 +104,8 @@
     struct dump_arg *arg;
 {
     char buf[sizeof(long)+1];
-    int i, len = 0;
+    int i = 0;
+    long len = 0;
 
     if (x == 0) {
 	w_byte(0, arg);
@@ -288,14 +289,20 @@
 	    w_byte(TYPE_BIGNUM, arg);
 	    {
 		char sign = RBIGNUM(obj)->sign?'+':'-';
-		int len = RBIGNUM(obj)->len;
-		unsigned short *d = RBIGNUM(obj)->digits;
+		long len = RBIGNUM(obj)->len;
+		USHORT *d = RBIGNUM(obj)->digits;
+		size_t width = sizeof(USHORT) / 2;
 
 		w_byte(sign, arg);
-		w_long(len, arg);
+		w_long(len * width, arg);
 		while (len--) {
-		    w_short(*d, arg);
-		    d++;
+		    int i;
+		    USHORT e = *d++;
+		    
+		    for (i = 0; i < width; i++) {
+			w_short(e & 0xffffffff, arg);
+			e >>= 16;
+		    }
 		}
 	    }
 	    return;
@@ -679,16 +686,26 @@
 
       case TYPE_BIGNUM:
 	{
-	    int len;
-	    unsigned short *digits;
+	    long len;
+	    USHORT *digits;
+	    size_t width = sizeof(USHORT) / 2;
 
 	    NEWOBJ(big, struct RBignum);
 	    OBJSETUP(big, rb_cBignum, T_BIGNUM);
 	    big->sign = (r_byte(arg) == '+');
-	    big->len = len = r_long(arg);
-	    big->digits = digits = ALLOC_N(unsigned short, len);
-	    while (len--) {
-		*digits++ = r_short(arg);
+	    len = r_long(arg);
+	    big->len = (len + width - 1) / width;
+	    big->digits = digits = ALLOC_N(USHORT, big->len);
+	    while (len) {
+		int i;
+		USHORT e = 0;
+		
+		for (i = 0; i < width; i++) {
+		    e <<= 16;
+		    e |= r_short(arg);
+		    len--;
+		}
+		*digits++ = e;
 	    }
 	    big = RBIGNUM(rb_big_norm((VALUE)big));
 	    if (TYPE(big) == T_BIGNUM) {

-- 
中川 誠