[ruby-dev:12603] Marshal w/ zero

えぐち＠エスアンドイー です。

Marshal で整数 0 に固有の TYPE を与えて符号化効率を
高める為の実験的なパッチです。

0 が 1 回出現すると 1 バイト節約します。

同じ手口で -8..7 ぐらいは quick-immediate(笑)
で表現すると符号化効率が(応用によっては)結構
上がると思います。

Marshal で dump するデータのサイズを
小さくしたい需要ってありますか？

	えぐち

Index: marshal.c
===================================================================
RCS file: /home/eguchi/cvs.ruby-lang.org/ruby/marshal.c,v
retrieving revision 1.31
diff -d -u -r1.31 marshal.c
--- marshal.c	2001/03/21 03:41:41	1.31
+++ marshal.c	2001/03/22 04:33:06
@@ -52,12 +52,13 @@
 #endif
 
 #define MARSHAL_MAJOR   4
-#define MARSHAL_MINOR   5
+#define MARSHAL_MINOR   6
 
 #define TYPE_NIL	'0'
 #define TYPE_TRUE	'T'
 #define TYPE_FALSE	'F'
 #define TYPE_FIXNUM	'i'
+#define TYPE_ZERO	'Z'
 
 #define TYPE_UCLASS	'C'
 #define TYPE_OBJECT	'o'
@@ -288,6 +289,9 @@
     else if (obj == Qfalse) {
 	w_byte(TYPE_FALSE, arg);
     }
+    else if (FIXNUM_P(obj) && FIX2INT(obj) == 0) {
+        w_byte(TYPE_ZERO, arg); 
+    }
     else if (FIXNUM_P(obj)) {
 #if SIZEOF_LONG <= 4
 	w_byte(TYPE_FIXNUM, arg);
@@ -799,6 +803,9 @@
 
       case TYPE_FALSE:
 	return Qfalse;
+
+      case TYPE_ZERO:
+	return INT2FIX(0);
 
       case TYPE_FIXNUM:
 	{