Changeset 498c19 in git


Ignore:
Timestamp:
Oct 30, 2013, 5:51:15 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'ad2543eab51733612ba7d118afc77edca719600e')
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.