From 9817e9b18df85ed8f6afdc24f9f5c2f8228b609d Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@users.sourceforge.jp>
Date: Mon, 4 Jan 2010 11:59:52 +0900
Subject: [PATCH] Perl: support NVTYPE=="long double" or IVTYPE="long long"
 environment.

---
 perl/pack.c | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/perl/pack.c b/perl/pack.c
index 01dd5b6..589cee8 100644
--- a/perl/pack.c
+++ b/perl/pack.c
@@ -37,10 +37,19 @@ static void need(enc_t *enc, STRLEN len);
 
 #include "msgpack/pack_template.h"
 
-#define _PACK_WRAPPER(t) msgpack_pack_##t
-#define PACK_WRAPPER(t) _PACK_WRAPPER(t)
 #define INIT_SIZE   32 /* initial scalar size to be allocated */
 
+#if   IVSIZE == 8
+#  define PACK_IV msgpack_pack_int64
+#elif IVSIZE == 4
+#  define PACK_IV msgpack_pack_int32
+#elif IVSIZE == 2
+#  define PACK_IV msgpack_pack_int16
+#else
+#  error  "msgpack only supports IVSIZE = 8,4,2 environment."
+#endif
+
+
 static void need(enc_t *enc, STRLEN len)
 {
     if (enc->cur + len >= enc->end) {
@@ -155,11 +164,12 @@ static void _msgpack_pack_sv(enc_t *enc, SV* sv) {
             msgpack_pack_raw_body(enc, csv, len);
         }
     } else if (SvNOKp(sv)) {
-        PACK_WRAPPER(NVTYPE)(enc, SvNVX(sv));
+        /* XXX long double is not supported yet. */
+        msgpack_pack_double(enc, (double)SvNVX(sv));
     } else if (SvIOK_UV(sv)) {
         msgpack_pack_uint32(enc, SvUV(sv));
     } else if (SvIOKp(sv)) {
-        PACK_WRAPPER(IVTYPE)(enc, SvIV(sv));
+        PACK_IV(enc, SvIV(sv));
     } else if (SvROK(sv)) {
         _msgpack_pack_rv(enc, SvRV(sv));
     } else if (!SvOK(sv)) {