[libmath-prime-util-perl] 70/181: Merge pull request #5 from bulk88/master

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.36
in repository libmath-prime-util-perl.

commit 361219e9a452e9ae5d0f598d997668eb706320ba
Merge: d7eee04 e1e4923
Author: Dana Jacobsen <dana at acm.org>
Date:   Mon Dec 30 12:00:43 2013 -0800

    Merge pull request #5 from bulk88/master
    
    Proper dTHX -> pTHX_ macro conversion.  First round of some SP cleanup.

 XS.xs | 68 +++++++++++++++++++++++++++++++++++--------------------------------
 1 file changed, 36 insertions(+), 32 deletions(-)

diff --cc XS.xs
index bb862fc,4794e50..fb3a9ca
--- a/XS.xs
+++ b/XS.xs
@@@ -732,10 -737,10 +737,10 @@@ forprimes (SV* block, IN SV* svbeg, IN 
      unsigned char* segment;
      UV seg_base, seg_low, seg_high;
  
-     if (!_validate_int(svbeg, 0) || (items >= 3 && !_validate_int(svend,0))) {
+     if (!_validate_int(aTHX_ svbeg, 0) || (items >= 3 && !_validate_int(aTHX_ svend,0))) {
        dSP;
        PUSHMARK(SP);
 -      XPUSHs(block); XPUSHs(svbeg); XPUSHs(svend);
 +      XPUSHs(block); XPUSHs(svbeg); if (svend) XPUSHs(svend);
        PUTBACK;
        (void) call_pv("Math::Prime::Util::_generic_forprimes", G_VOID|G_DISCARD);
        SPAGAIN;
@@@ -830,10 -838,9 +835,9 @@@ forcomposites (SV* block, IN SV* svbeg
        croak("Not a subroutine reference");
      if (items <= 1) XSRETURN(0);
  
-     if (!_validate_int(svbeg, 0) || (items >= 3 && !_validate_int(svend,0))) {
-       dSP;
+     if (!_validate_int(aTHX_ svbeg, 0) || (items >= 3 && !_validate_int(aTHX_ svend,0))) {
        PUSHMARK(SP);
 -      XPUSHs(block); XPUSHs(svbeg); XPUSHs(svend);
 +      XPUSHs(block); XPUSHs(svbeg); if (svend) XPUSHs(svend);
        PUTBACK;
        (void) call_pv("Math::Prime::Util::_generic_forcomposites", G_VOID|G_DISCARD);
        SPAGAIN;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git