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

Comparing Convert-BER-XS/XS.xs (file contents):
Revision 1.21 by root, Sat Apr 20 17:23:21 2019 UTC vs.
Revision 1.22 by root, Sat Apr 20 18:38:33 2019 UTC

   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
     newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
 }
-SV *
+void
 ber_decode (SV *ber, SV *profile = &PL_sv_undef)
+	ALIAS:
+        ber_decode_prefix = 1
-	CODE:
+	PPCODE:
 {
         cur_profile = SvPROFILE (profile);
 	STRLEN len;
         buf = (U8 *)SvPVbyte (ber, len);
         cur = buf;
         end = buf + len;
-        RETVAL = decode_ber ();
+        SV *tuple = decode_ber ();
+        EXTEND (SP, 2);
+        PUSHs (sv_2mortal (tuple));
+        if (ix)
+          PUSHs (sv_2mortal (newSViv (cur - buf)));
+        else if (cur != end)
+          error ("trailing garbage after BER data");
 }
-        OUTPUT: RETVAL
 void
 ber_is (SV *tuple, SV *klass = &PL_sv_undef, SV *tag = &PL_sv_undef, SV *flags = &PL_sv_undef, SV *data = &PL_sv_undef)
 	PPCODE:
 {

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