Changeset 8b1af6 in git for Singular/LIB/modstd.lib


Ignore:
Timestamp:
Nov 6, 2013, 2:30:52 PM (10 years ago)
Author:
Oleksandr Motsak <motsak@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
Children:
93fc820b11e13b03357f9d05061a1954e37d658c
Parents:
75761633171290fa9ee90c7fc19a9d9bfba3534911ab4e8595e6e90a6b646949f46d516f88a72015
Message:
Merge pull request #389 from jankoboehm/spielwiese

Gerhards fix for zeroRad und some typos
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/LIB/modstd.lib

    r11ab4e r8b1af6  
    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.