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

Comparing CBOR-XS/XS.xs (file contents):
Revision 1.41 by root, Tue Dec 10 14:01:52 2013 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
 {
   // 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;
           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:
                 {
         PUSHs (sv);
         PUSHs (sv_2mortal (newSVuv (offset - SvPVX (cborstr))));
 }
 void incr_parse (CBOR *self, SV *cborstr)
+	ALIAS:
+        incr_parse_multiple = 1
 	PPCODE:
 {
         if (SvUTF8 (cborstr))
           sv_utf8_downgrade (cborstr, 0);
             av_push (self->incr_count, newSViv (1));
             self->incr_pos = 0;
             self->incr_need = self->incr_pos + 1;
           }
-        while (GIMME_V == G_ARRAY);
+        while (ix);
 }
 void incr_reset (CBOR *self)
 	CODE:
 {

Diff Legend

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

Comparing CBOR-XS/XS.xs (file contents): Revision 1.41 by root, Tue Dec 10 14:01:52 2013 UTC vs. Revision 1.47 by root, Mon Apr 27 20:21:53 2015 UTC

Diff Legend

Comparing CBOR-XS/XS.xs (file contents):
Revision 1.41 by root, Tue Dec 10 14:01:52 2013 UTC vs.
Revision 1.47 by root, Mon Apr 27 20:21:53 2015 UTC