[7579] call xs_abort_empty_line directly

[gavinsmith0123]

Revision: 7579
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7579
Author:   gavin
Date:     2016-12-26 15:56:07 +0000 (Mon, 26 Dec 2016)
Log Message:
-----------
call xs_abort_empty_line directly

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/MiscXS/miscxs.c

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-12-26 15:43:05 UTC (rev 7578)
+++ trunk/ChangeLog     2016-12-26 15:56:07 UTC (rev 7579)
@@ -1,5 +1,11 @@
 2016-12-26  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/MiscXS/miscxs.c (merge_text): Call C function
+       'xs_abort_empty_line' directly instead of going through Perl 
+       subroutine call infrastructure.
+
+2016-12-26  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/MiscXS/MiscXS.xs,
        * tp/Texinfo/MiscXS/miscxs.c (abort_empty_line): New function.
        * tp/Texinfo/Parser.pm: Add a 'UNITCHECK' section to override

Modified: trunk/tp/Texinfo/MiscXS/miscxs.c
===================================================================
--- trunk/tp/Texinfo/MiscXS/miscxs.c    2016-12-26 15:43:05 UTC (rev 7578)
+++ trunk/tp/Texinfo/MiscXS/miscxs.c    2016-12-26 15:56:07 UTC (rev 7579)
@@ -302,29 +302,17 @@
             }
         }
 
-      /* See 'perlcall' man page. */
-      ENTER;
-      SAVETMPS;
-
-      /**********************/
-      PUSHMARK(SP);
-      XPUSHs(sv_2mortal(newRV_inc((SV *)self)));
-      XPUSHs(sv_2mortal(newRV_inc((SV *)current)));
-      XPUSHs(leading_spaces_sv);
-      PUTBACK;
-
-      call_ret = call_pv ("Texinfo::Parser::_abort_empty_line", G_SCALAR);
-
-      SPAGAIN;
-
-      returned_sv = POPs;
-      if (returned_sv && SvRV(returned_sv))
+      if (xs_abort_empty_line(self, current, leading_spaces_sv))
         {
           text += leading_spaces;
         }
 
       /************************/
+      /* See 'perlcall' man page. */
+      ENTER;
+      SAVETMPS;
 
+
       PUSHMARK(SP);
       XPUSHs(sv_2mortal(newRV_inc((SV *)self)));
       XPUSHs(sv_2mortal(newRV_inc((SV *)current)));