Changeset c380cd in git


Ignore:
Timestamp:
Jul 6, 2010, 12:20:45 PM (13 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
d72574adb5a598f422c22c8a8f848c7fa30a45a1
Parents:
699dcdf615a8f06c32156ef0d33806af1e703432
Message:
tr 237

git-svn-id: file:///usr/local/Singular/svn/trunk@12945 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • kernel/ring.cc

    r699dcd rc380cd  
    666666  if(rField_is_Ring_2toM(r))
    667667  {
    668     return omStrDup("coefficient ring");
     668    char* s = (char*) omAlloc(7+10+2);
     669    sprintf(s,"integer,%lu",r->ringflagb);
     670    return s;
    669671  }
    670672  if(rField_is_Ring_ModN(r))
    671673  {
    672     return omStrDup("coefficient ring");
     674    long l = (long)mpz_sizeinbase(r->ringflaga, 10) + 2+7;
     675    char* s = (char*) omAlloc(l);
     676    gmp_sprintf(s,"integer,%Zd",r->ringflaga);
     677    return s;
    673678  }
    674679  if(rField_is_Ring_PtoM(r))
    675680  {
    676     return omStrDup("coefficient ring");
     681    long l = (long)mpz_sizeinbase(r->ringflaga, 10) + 2+7+10;
     682    char* s = (char*) omAlloc(l);
     683    gmp_sprintf(s,"integer,%Zd^%lu",r->ringflaga,r->ringflagb);
     684    return s;
     685   
    677686  }
    678687#endif
Note: See TracChangeset for help on using the changeset viewer.