Changeset 9a07cd in git


Ignore:
Timestamp:
Mar 1, 2011, 1:32:40 PM (13 years ago)
Author:
Frank Seelisch <seelisch@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
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
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • Singular/ipassign.cc

    r0d69701 r9a07cd  
    157157       Werror("type %d too complex...set minpoly before",IDTYP(h)); break;
    158158  }
    159 }
    160 static void redefineFunctionPointers()
    161 {
    162   n_Procs_s* n = currRing->cf;
    163   /* re-defining function pointers */
    164   n->cfDelete       = naDelete;
    165   n->nNormalize     = naNormalize;
    166   n->cfInit         = naInit;
    167   n->nPar           = naPar;
    168   n->nParDeg        = naParDeg;
    169   n->n_Int          = naInt;
    170   n->nAdd           = naAdd;
    171   n->nSub           = naSub;
    172   n->nMult          = naMult;
    173   n->nDiv           = naDiv;
    174   n->nExactDiv      = naDiv;
    175   n->nIntDiv        = naIntDiv;
    176   n->nNeg           = naNeg;
    177   n->nInvers        = naInvers;
    178   n->nCopy          = naCopy;
    179   n->cfCopy         = na_Copy;
    180   n->nGreater       = naGreater;
    181   n->nEqual         = naEqual;
    182   n->nIsZero        = naIsZero;
    183   n->nIsOne         = naIsOne;
    184   n->nIsMOne        = naIsMOne;
    185   n->nGreaterZero   = naGreaterZero;
    186   n->cfWrite        = naWrite;
    187   n->nRead          = naRead;
    188   n->nPower         = naPower;
    189   n->nGcd           = naGcd;
    190   n->nLcm           = naLcm;
    191   n->cfSetMap       = naSetMap;
    192   n->nName          = naName;
    193   n->nSize          = naSize;
    194   n->cfGetDenom     = napGetDenom;
    195   n->cfGetNumerator = napGetNumerator;
    196 #ifdef LDEBUG
    197   n->nDBTest        = naDBTest;
    198 #endif
    199   /* re-defining global function pointers */
    200   nNormalize=naNormalize;
    201   nPar   = naPar;
    202   nParDeg= nParDeg;
    203   n_Int  = naInt;
    204   nAdd   = naAdd;
    205   nSub   = naSub;
    206   nMult  = naMult;
    207   nDiv   = naDiv;
    208   nExactDiv= naDiv;
    209   nIntDiv= naIntDiv;
    210   nNeg   = naNeg;
    211   nInvers= naInvers;
    212   nCopy  = naCopy;
    213   nGreater = naGreater;
    214   nEqual = naEqual;
    215   nIsZero = naIsZero;
    216   nIsOne = naIsOne;
    217   nIsMOne = naIsMOne;
    218   nGreaterZero = naGreaterZero;
    219   nRead = naRead;
    220   nPower = naPower;
    221   nGcd  = naGcd;
    222   nLcm  = naLcm;
    223   nName= naName;
    224   nSize  = naSize;
    225159}
    226160static BOOLEAN jjMINPOLY(leftv res, leftv a)

  • Singular/ipshell.cc

    r0d69701 r9a07cd  
    22702270          if (IDELEMS(R->algring->qideal)==1)
    22712271          {
    2272             R->minpoly=naInit(1,R);
     2272            R->minpoly=naInit(1,R);           
    22732273            lnumber n=(lnumber)R->minpoly;
    22742274            n->z=R->algring->qideal->m[0];
     2275            naMinimalPoly=n->z;
    22752276            R->algring->qideal->m[0]=NULL;
    22762277            idDelete(&(R->algring->qideal));
     2278            redefineFunctionPointers();
    22772279          }
    22782280          else

  • 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); }

  • kernel/longalg.h

    r0d69701 r9a07cd  
    2222extern naIdeal naI;
    2323extern napoly naMinimalPoly;
     24
     25void redefineFunctionPointers();
    2426
    2527void    naSetChar(int p, ring r);
Note: See TracChangeset for help on using the changeset viewer.