[ViewVC] Diff of: cvs/CBOR-XS/XS.xs

Comparing CBOR-XS/XS.xs (file contents):
Revision 1.42 by root, Tue Dec 10 15:31:40 2013 UTC vs.
Revision 1.45 by root, Sun Dec 14 05:48:39 2014 UTC

 #include <stdlib.h>
 #include <stdio.h>
 #include <limits.h>
 #include <float.h>
+#define ECB_NO_THREADS 1
 #include "ecb.h"
 // compatibility with perl <5.18
 #ifndef HvNAMELEN_get
 # define HvNAMELEN_get(hv) strlen (HvNAME (hv))
   ++enc->depth;
   encode_uint (enc, MAJOR_ARRAY, len + 1);
+  if (SvMAGICAL (av))
-  for (i = 0; i <= len; ++i)
+    for (i = 0; i <= len; ++i)
-    {
+      {
-      SV **svp = av_fetch (av, i, 0);
+        SV **svp = av_fetch (av, i, 0);
-      encode_sv (enc, svp ? *svp : &PL_sv_undef);
+        encode_sv (enc, svp ? *svp : &PL_sv_undef);
-    }
+      }
+  else
+    for (i = 0; i <= len; ++i)
+      encode_sv (enc, AvARRAY (av)[i]);
   --enc->depth;
 }
 static void
 {
   // for speed reasons, we specialcase single-string
   // byte or utf-8 strings as keys, but only when !stringref
   if (ecb_expect_true (!dec->stringref))
-    if (ecb_expect_true ((*dec->cur - MAJOR_BYTES) <= LENGTH_EXT8))
+    if (ecb_expect_true ((U8)(*dec->cur - MAJOR_BYTES) <= LENGTH_EXT8))
       {
         I32 len = decode_uint (dec);
         char *key = (char *)dec->cur;
         dec->cur += len;
         hv_store (hv, key,  len, decode_sv (dec), 0);
         return;
       }
-    else if (ecb_expect_true ((*dec->cur - MAJOR_TEXT) <= LENGTH_EXT8))
+    else if (ecb_expect_true ((U8)(*dec->cur - MAJOR_TEXT) <= LENGTH_EXT8))
       {
         I32 len = decode_uint (dec);
         char *key = (char *)dec->cur;
         dec->cur += len;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines