Changeset 301c99e in git for libpolys/polys/flintconv.cc
- Timestamp:
- Nov 26, 2014, 12:11:19 PM (9 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
- Children:
- f110b06de57922bcb494a94803180fd8f5f256b4
- Parents:
- 625fd1efeb8e72be4084733b6e817d7aa299cab2
- File:
-
- 1 edited
-
libpolys/polys/flintconv.cc (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/flintconv.cc
r625fd1 r301c99e 35 35 void convSingIFlintI(fmpz_t f, int p) 36 36 { 37 fmpz_init(f); 37 38 fmpz_set_si(f,p); 38 39 return; … … 41 42 void convFlintNSingN (mpz_t z, fmpz_t f) 42 43 { 44 mpz_init(z); 43 45 fmpz_get_mpz(z,f); 44 46 } … … 46 48 void convSingNFlintN(fmpz_t f, mpz_t z) 47 49 { 50 fmpz_init(f); 48 51 fmpz_set_mpz(f,z); 49 52 } … … 70 73 n_MPZ(n, BIMATELEM(*m, i, j),m->basecoeffs()); 71 74 convSingNFlintN(dummy,n); 75 mpz_clear(n); 72 76 fmpz_set(fmpz_mat_entry(M, i-1, j-1), dummy); 77 fmpz_clear(dummy); 73 78 } 74 79 } … … 81 86 n_MPZ(n, BIMATELEM(*T, i, j),T->basecoeffs()); 82 87 convSingNFlintN(dummy,n); 88 mpz_clear(n); 83 89 fmpz_set(fmpz_mat_entry(Transf, i-1, j-1), dummy); 90 fmpz_clear(dummy); 84 91 } 85 92 } … … 98 105 n_Delete(&(BIMATELEM(*res,i,j)),res->basecoeffs()); 99 106 BIMATELEM(*res,i,j)=n_InitMPZ(n,res->basecoeffs()); 107 mpz_clear(n); 100 108 } 101 109 } … … 109 117 n_Delete(&(BIMATELEM(*T,i,j)),T->basecoeffs()); 110 118 BIMATELEM(*T,i,j)=n_InitMPZ(n,T->basecoeffs()); 119 mpz_clear(n); 111 120 } 112 121 } … … 132 141 convSingIFlintI(dummy,IMATELEM(*m,i,j)); 133 142 fmpz_set(fmpz_mat_entry(M, i-1, j-1), dummy); 143 fmpz_clear(dummy); 134 144 } 135 145 } … … 142 152 convSingIFlintI(dummy,IMATELEM(*T,i,j)); 143 153 fmpz_set(fmpz_mat_entry(Transf, i-1, j-1), dummy); 154 fmpz_clear(dummy); 144 155 } 145 156 }
Note: See TracChangeset
for help on using the changeset viewer.
