Jeroen Demeyer on Fri, 05 Aug 2016 14:05:21 +0200


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

Re: Please test pari-2.8.0 prerelease 1


For SageMath, this release works fine.

Allow me to remind you of one patch that SageMath is using to disable by default the "new stack size" messages (see attachment).
commit 7cf2260b69d3711f9292a3abab4d3a35d0c74059
Author: Jeroen Demeyer <jdemeyer@cage.ugent.be>
Date:   Thu Jan 14 10:13:39 2016 +0100

    Use DEBUGMEM for stack size warnings

diff --git a/src/language/init.c b/src/language/init.c
index fa5c167..5cd1a13 100644
--- a/src/language/init.c
+++ b/src/language/init.c
@@ -722,7 +722,8 @@ parivstack_resize(ulong newsize)
   evalstate_reset();
   paristack_setsize(pari_mainstack->rsize, newsize);
   s = pari_mainstack->vsize ? pari_mainstack->vsize : pari_mainstack->rsize;
-  pari_warn(warner,"new maximum stack size = %lu (%.3f Mbytes)", s, s/1048576.);
+  if (DEBUGMEM > 0)
+    pari_warn(warner,"new maximum stack size = %lu (%.3f Mbytes)", s, s/1048576.);
   pari_init_errcatch();
   cb_pari_err_recover(-1);
 }
@@ -736,7 +737,8 @@ paristack_newrsize(ulong newsize)
     pari_mainstack_resize(pari_mainstack, newsize, vsize);
   evalstate_reset();
   s = pari_mainstack->rsize;
-  pari_warn(warner,"new stack size = %lu (%.3f Mbytes)", s, s/1048576.);
+  if (DEBUGMEM > 0)
+    pari_warn(warner,"new stack size = %lu (%.3f Mbytes)", s, s/1048576.);
   pari_init_errcatch();
   cb_pari_err_recover(-1);
 }
@@ -750,7 +752,8 @@ paristack_resize(ulong newsize)
   newsize = maxuu(minuu(newsize, vsize), pari_mainstack->size);
   pari_mainstack->size = newsize;
   pari_mainstack->bot = pari_mainstack->top - pari_mainstack->size;
-  pari_warn(warner,"increasing stack size to %lu",newsize);
+  if (DEBUGMEM > 0)
+    pari_warn(warner,"increasing stack size to %lu",newsize);
 }
 
 void
diff --git a/src/test/dotest b/src/test/dotest
index 3cb790d..6e4cc70 100755
--- a/src/test/dotest
+++ b/src/test/dotest
@@ -86,7 +86,7 @@ for testdata in $testlist; do
     for suf in $SUF; do
       file_diff=$testname-$suf.dif
       gp=$execdir/gp-$suf
-      (echo 'gettime();0;'; cat $file_in; \
+      (echo 'gettime();default(debugmem,1);'; cat $file_in; \
        echo 'print("Total time spent: ",gettime);') \
        | $RUNTEST $gp -q --test  > $file_test 2>&1
       if test -n "$crlf"; then