perl-Math-Pari-update.patch

   1 --- Math-Pari-2.030518/Pari.xs.orig     2021-06-24 18:30:57.496616128 +0200
   2 +++ Math-Pari-2.030518/Pari.xs  2021-06-24 20:04:03.246355523 +0200
   3 @@ -1283,7 +1283,7 @@
   4      /* add to output */
   5      switch(d->context) {
   6      case G_VOID:
   7 -    case G_SCALAR: sv_catpvf(d->acc, " %2d: %s\n",
   8 +    case G_SCALAR: sv_catpvf(d->acc, " %2ld: %s\n",
   9                              d->items - 1, SvPV_nolen(tmp));
  10                    SvREFCNT_dec(tmp);     break;
  11      case G_ARRAY:  av_push((AV*)d->acc,tmp); break;
  12 @@ -2036,11 +2036,11 @@
  13  #  if PARI_VERSION_EXP < 2010000
  14  #    define TAG_community      15      /* "The PARI community" */
  15  #  else /* !(PARI_VERSION_EXP < 2010000) */
  16 -#    if PARI_VERSION_EXP < 2012000
  17 +#    if PARI_VERSION_EXP < 2014000
  18  #      define TAG_community    17      /* "The PARI community" */
  19 -#    else /* !(PARI_VERSION_EXP < 2012000) */
  20 +#    else /* !(PARI_VERSION_EXP < 2014000) */
  21  #      define TAG_community_unknown
  22 -#    endif     /* !(PARI_VERSION_EXP < 2012000) */
  23 +#    endif     /* !(PARI_VERSION_EXP < 2014000) */
  24  #  endif       /* !(PARI_VERSION_EXP < 2010000) */
  25  #endif         /* !(PARI_VERSION_EXP < 2008000) */
  26
  27 @@ -2060,7 +2060,7 @@
  28  char *
  29  added_sections()
  30  {
  31 -#if PARI_VERSION_EXP < 2013000
  32 +#if PARI_VERSION_EXP < 2014000
  33     /* Suggestion on format (part of 2.10.0), only use short names: "4: functions related to COMBINATORICS\n13: L-FUNCTIONS" */
  34     return "";
  35  #else  /* !( PARI_VERSION_EXP < 2011000) */
  36 @@ -3823,7 +3823,7 @@
  37          switch (valence) {
  38          case 0:
  39              if (!ep->code) {
  40 -                croak("Unsupported Pari function %s, interface 0 code NULL");
  41 +                croak("Unsupported Pari function %s, interface 0 code NULL", name);
  42              } else if (ep->code[0] == 'p' && ep->code[1] == 0) {
  43                  DO_INTERFACE(0);
  44              } else if (ep->code[0] == 0) {
  45 @@ -3886,10 +3886,10 @@
  46
  47          default:
  48              if (!ep)
  49 -                croak("Unsupported interface %d for \"direct-link\" Pari function %s",
  50 +                croak("Unsupported interface %ld for \"direct-link\" Pari function %s",
  51                        valence, olds);
  52              if (!ep->code)
  53 -                croak("Unsupported interface %d and no code for a Pari function %s",
  54 +                croak("Unsupported interface %ld and no code for a Pari function %s",
  55                        valence, olds);
  56            flexible:
  57              s1 = s = ep->code;
  58 --- Math-Pari-2.030518/libPARI/Makefile.PL.orig 2021-06-24 21:41:42.021282480 +0200
  59 +++ Math-Pari-2.030518/libPARI/Makefile.PL      2021-06-24 21:41:46.411258697 +0200
  60 @@ -317,7 +317,7 @@
  61      $mp = 'mp.c';
  62      my $kern = "$kernel_dir/none";
  63      my @dep                    # Copied from src/kernel/none/MakeLVL1.SH 2.2.10
  64 -      = "$kern/mp.c $kern/cmp.c $kern/gcdll.c $kern/ratlift.c $kern/gcd.c $kern/invmod.c $kern/mp_indep.c $kern/add.c";
  65 +      = "$kern/mp.c $kern/cmp.c $kern/gcdll.c $kern/halfgcd.c $kern/ratlift.c $kern/invmod.c $kern/gcd.c $kern/mp_indep.c $kern/add.c";
  66      -f "$main_paridir/src/kernel/$_" and push @dep, "$kernel_dir/$_" for "none/gcdext.c";      # When did it appear?  Was:  if $pari_version > 2004000
  67      $create_mp = <<EOS;
  68  mp.c: @dep