Changeset 301c99e in git
 Timestamp:
 Nov 26, 2014, 12:11:19 PM (9 years ago)
 Branches:
 (u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')
 Children:
 f110b06de57922bcb494a94803180fd8f5f256b4
 Parents:
 625fd1efeb8e72be4084733b6e817d7aa299cab2
 File:

 1 edited
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, i1, j1), 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, i1, j1), 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, i1, j1), 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, i1, j1), dummy); 154 fmpz_clear(dummy); 144 155 } 145 156 }
Note: See TracChangeset
for help on using the changeset viewer.