Changeset 9a07cd in git for kernel/longalg.cc


Ignore:
Timestamp:
Mar 1, 2011, 1:32:40 PM (13 years ago)
Author:
Frank Seelisch <seelisch@…>
Branches:
(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')
Children:
21972bb03ef532430607e35754a4d326473a808a
Parents:
0d6970109b48f04bc456f5aee530b7c06be12c64
Message:
bug fix alg/trans ext: function pointers in case of ring def by ringlist

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

Legend:

Unmodified
Added
Removed

  • kernel/longalg.cc

    r0d69701 r9a07cd  
    3939omBin snaIdeal_bin = omGetSpecBin(sizeof(snaIdeal));
    4040number (*naMap)(number from);
     41
     42void redefineFunctionPointers()
     43{
     44  n_Procs_s* n = currRing->cf;
     45  /* re-defining function pointers */
     46  n->cfDelete       = naDelete;
     47  n->nNormalize     = naNormalize;
     48  n->cfInit         = naInit;
     49  n->nPar           = naPar;
     50  n->nParDeg        = naParDeg;
     51  n->n_Int          = naInt;
     52  n->nAdd           = naAdd;
     53  n->nSub           = naSub;
     54  n->nMult          = naMult;
     55  n->nDiv           = naDiv;
     56  n->nExactDiv      = naDiv;
     57  n->nIntDiv        = naIntDiv;
     58  n->nNeg           = naNeg;
     59  n->nInvers        = naInvers;
     60  n->nCopy          = naCopy;
     61  n->cfCopy         = na_Copy;
     62  n->nGreater       = naGreater;
     63  n->nEqual         = naEqual;
     64  n->nIsZero        = naIsZero;
     65  n->nIsOne         = naIsOne;
     66  n->nIsMOne        = naIsMOne;
     67  n->nGreaterZero   = naGreaterZero;
     68  n->cfWrite        = naWrite;
     69  n->nRead          = naRead;
     70  n->nPower         = naPower;
     71  n->nGcd           = naGcd;
     72  n->nLcm           = naLcm;
     73  n->cfSetMap       = naSetMap;
     74  n->nName          = naName;
     75  n->nSize          = naSize;
     76  n->cfGetDenom     = napGetDenom;
     77  n->cfGetNumerator = napGetNumerator;
     78#ifdef LDEBUG
     79  n->nDBTest        = naDBTest;
     80#endif
     81  /* re-defining global function pointers */
     82  nNormalize=naNormalize;
     83  nPar   = naPar;
     84  nParDeg= nParDeg;
     85  n_Int  = naInt;
     86  nAdd   = naAdd;
     87  nSub   = naSub;
     88  nMult  = naMult;
     89  nDiv   = naDiv;
     90  nExactDiv= naDiv;
     91  nIntDiv= naIntDiv;
     92  nNeg   = naNeg;
     93  nInvers= naInvers;
     94  nCopy  = naCopy;
     95  nGreater = naGreater;
     96  nEqual = naEqual;
     97  nIsZero = naIsZero;
     98  nIsOne = naIsOne;
     99  nIsMOne = naIsMOne;
     100  nGreaterZero = naGreaterZero;
     101  nRead = naRead;
     102  nPower = naPower;
     103  nGcd  = naGcd;
     104  nLcm  = naLcm;
     105  nName= naName;
     106  nSize  = naSize;
     107}
    41108
    42109static number nadGcd( number a, number b, const ring r) { return ntcInit(1,r); }
Note: See TracChangeset for help on using the changeset viewer.