Changeset a7050d in git


Ignore:
Timestamp:
Oct 30, 2013, 4:43:06 PM (11 years ago)
Author:
Andreas Steenpass <steenpass@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')
Children:
498c19ba58b5c09de9d8e73c06e67ca87962ebfe
Parents:
2ad13d75dd269f473ec07a73cb2b92e60423d8b9
git-author:
Andreas Steenpass <steenpass@mathematik.uni-kl.de>2013-10-30 16:43:06+01:00
git-committer:
Andreas Steenpass <steenpass@mathematik.uni-kl.de>2013-10-30 16:47:04+01:00
Message:
fix: in modstd.lib: pass the correct ideal to primeTest()
(cherry picked from commit cd063ec7c6fdec67af40250b7c3aa4eb7cbf558c)

Signed-off-by: Andreas Steenpass <steenpass@mathematik.uni-kl.de>
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/LIB/modstd.lib

    r2ad13d7 ra7050d  
    2828LIB "ring.lib";
    2929LIB "parallel.lib";
     30
     31////////////////////////////////////////////////////////////////////////////////
     32
     33static proc mod_init()
     34{
     35   newstruct("ideal_primeTest", "ideal Ideal");
     36}
    3037
    3138////////////////////////////////////////////////////////////////////////////////
    … …  
    379386   if(typeof(II) == "string")
    380387   {
    381       execute("ideal I = "+II+";");
     388      ideal I = `II`.Ideal;
    382389   }
    383390   else
    … …  
    480487      list arguments;
    481488      int neededPrimes = neededSize-size(L);
     489      ideal_primeTest Id;
     490      Id.Ideal = I;
     491      export(Id);
    482492      while(neededPrimes > 0)
    483493      {
    … …  
    488498            p = prime(p-1);
    489499            if(p == 2) { ERROR("no more primes"); }
    490             arguments[i] = list("I", p);
     500            arguments[i] = list("Id", p);
    491501         }
    492502         parallelResults = parallelWaitAll("primeTest", arguments,
Note: See TracChangeset for help on using the changeset viewer.