code cleaning + adjusts previous fix

Author: mohabsafey

src/msolve/main.c

@@ -456,7 +456,7 @@ int main(int argc, char **argv){
             &param, mpz_paramp, &nb_real_roots, &real_roots, &real_pts);
 
     /* free parametrization */
-    if(param != NULL && gens->field_char && print_gb == 0  && normal_form == 0){
+    if(param != NULL && gens->field_char){
         free_fglm_param(param);
     }
     mpz_param_clear(*mpz_paramp);

src/msolve/msolve.c

@@ -2087,7 +2087,6 @@ int msolve_trace_qq(mpz_param_t *mpz_paramp,
 					  files,
 					  &success);
 
-  fprintf(stderr, "ICI APRES INITIALIZE\n");
 
   if (*dim_ptr == 0 && success && *dquot_ptr > 0 && print_gb == 0) {
     if (nmod_params[0]->elim->length - 1 != *dquot_ptr) {
@@ -2105,7 +2104,6 @@ int msolve_trace_qq(mpz_param_t *mpz_paramp,
 
   if (lmb_ori == NULL || success == 0 || print_gb || gens->field_char) {
     free(bs);
-    fprintf(stderr, "ICI APRES FREE bs\n\n");
     if (gens->field_char == 0) {
       free_basis(&bs_qq);
       /*nmod_params[0] should not be cleaned here (change of primitive
@@ -2125,9 +2123,7 @@ int msolve_trace_qq(mpz_param_t *mpz_paramp,
     if (print_gb) {
       return 0;
     }
-    fprintf(stderr, "ICI2\n");
     if (*dim_ptr == 0 && gens->field_char && success) {
-        fprintf(stderr, "ICI DIM = 0\n");
       /* copy of parametrization */
       if (*dquot_ptr != 0) {
         param_t *par = allocate_fglm_param(gens->field_char, st->nvars);
@@ -2138,22 +2134,18 @@ int msolve_trace_qq(mpz_param_t *mpz_paramp,
         }
         free_fglm_param(nmod_params[0]);
         (*nmod_param) = par;
-        fprintf(stderr, "ICI %d\n\n", par->nvars);
       }
       free(st);
-      fprintf(stderr, "ICI RETURN 0\n");
       return 0;
     }
     free(st);
-    fprintf(stderr, "ICI apres free st\n");
     if (*dim_ptr == 1) {
       if (info_level) {
         fprintf(stderr, "Positive dimensional Grobner basis\n");
       }
       return 0;
     }
     if (*dquot_ptr == 0) {
-        fprintf(stderr, "ICI DIM QUOT == 0\n");
       return 0;
     }
     if (*dquot_ptr > 0) {
@@ -2523,7 +2515,6 @@ int msolve_trace_qq(mpz_param_t *mpz_paramp,
     free_fglm_bms_data(bdata_bms[i]);
     free_fglm_data(bdata_fglm[i]);
 
-    fprintf(stderr, "ICI LA LA\n\n");
     free_fglm_param(nmod_params[i]);
     free(bcfs_extra_nf[i]);
     free(bexps_extra_nf[i]);
@@ -4079,27 +4070,6 @@ int core_msolve(
                         real_pts_ptr,
                         info_level);
 
-          /* if (b == 0 && gens->field_char > 0) { */
-          /*   if(dim == 0){ */
-          /*     if(files->out_file != NULL){ */
-          /*       FILE *ofile = fopen(files->out_file, "a"); */
-          /*       if(dquot == 0){ */
-          /*         fprintf(ofile, "[-1]:\n"); */
-          /*         return 0; */
-          /*       } */
-          /*       display_fglm_param_maple(ofile, param); */
-          /*       fclose(ofile); */
-          /*     } */
-          /*     else{ */
-          /*       if(dquot == 0){ */
-          /*         fprintf(stdout, "[-1]:\n"); */
-          /*         return 0; */
-          /*       } */
-          /*       display_fglm_param_maple(stdout, param); */
-          /*     } */
-          /*     return 0; */
-          /*   } */
-          /* } */
           if (b == 1) {
             free(bld);
             bld = NULL;
@@ -4317,7 +4287,6 @@ int core_msolve(
             st  = NULL;
 
         }
-    fprintf(stderr, "ICI On renvoie zero\n\n");
         return 0;
     }
     else{/* characteristic is 0 */