Changeset 498c19 in git for Singular/LIB/modstd.lib


Ignore:
Timestamp:
Oct 30, 2013, 5:51:15 PM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
Children:
97a3b29af19d9306f2a6faa7827929ad6afeb992
Parents:
2ad13d75dd269f473ec07a73cb2b92e60423d8b9a7050dd4a61b891cc4a1fa9b250a9d02935a6fd7
Message:
Merge pull request #410 from steenpass/modstd_sw

fix: in modstd.lib: pass the correct ideal to primeTest()
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/LIB/modstd.lib

    r2ad13d7 r498c19  
    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.