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

Comparing CBOR-XS/XS.xs (file contents):
Revision 1.43 by root, Sun Jan 5 14:24:54 2014 UTC vs.
Revision 1.47 by root, Mon Apr 27 20:21:53 2015 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)
+      {
+        SV *sv = AvARRAY (av)[i];
+        encode_sv (enc, sv ? sv : &PL_sv_undef);
+      }
   --enc->depth;
 }
 static void
           int major = *p >> MAJOR_SHIFT;
           switch (major)
             {
+              case MAJOR_TAG     >> MAJOR_SHIFT:
+                ++count; // tags merely prefix another value
+                break;
               case MAJOR_BYTES   >> MAJOR_SHIFT:
               case MAJOR_TEXT    >> MAJOR_SHIFT:
               case MAJOR_ARRAY   >> MAJOR_SHIFT:
               case MAJOR_MAP     >> MAJOR_SHIFT:
                 {

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