Changeset d8b0f69 in git for libpolys/polys/monomials/ring.cc
- Timestamp:
- Feb 28, 2012, 7:14:51 PM (12 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- f323dd1d5224b28e86385dbae25bbc736620b24c
- Parents:
- 52d4806a5a94e095e70d7f1fb00cc88836d13e0f8db30eef10dd120583257c43df0c2cb4d8cbd028
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/monomials/ring.cc
r8db30e rd8b0f69 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id$ */5 6 4 /* 7 5 * ABSTRACT - the interpreter related ring operations … … 108 106 //} 109 107 110 ring rDefault(const coeffs cf, int N, char **n,int ord_size, int *ord, int *block0, int *block1 )108 ring rDefault(const coeffs cf, int N, char **n,int ord_size, int *ord, int *block0, int *block1, int** wvhdl) 111 109 { 112 110 assume( cf != NULL); … … 123 121 } 124 122 /*weights: entries for 2 blocks: NULL*/ 125 r->wvhdl = (int **)omAlloc0((ord_size+1) * sizeof(int *)); 123 if (wvhdl==NULL) 124 r->wvhdl = (int **)omAlloc0((ord_size+1) * sizeof(int *)); 125 else 126 r->wvhdl=wvhdl; 126 127 r->order = ord; 127 128 r->block0 = block0; … … 134 135 return r; 135 136 } 136 ring rDefault(int ch, int N, char **n,int ord_size, int *ord, int *block0, int *block1 )137 ring rDefault(int ch, int N, char **n,int ord_size, int *ord, int *block0, int *block1,int ** wvhdl) 137 138 { 138 139 coeffs cf; … … 140 141 else cf=nInitChar(n_Zp,(void*)(long)ch); 141 142 assume( cf != NULL); 142 return rDefault(cf,N,n,ord_size,ord,block0,block1 );143 return rDefault(cf,N,n,ord_size,ord,block0,block1,wvhdl); 143 144 } 144 145 ring rDefault(const coeffs cf, int N, char **n)
Note: See TracChangeset
for help on using the changeset viewer.