/[guile]/guile/guile-core/libguile/gc-card.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc-card.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by dirk, Thu Sep 18 20:18:17 2003 UTC revision 1.20 by dirk, Thu Sep 18 20:55:40 2003 UTC
# Line 173  scm_i_sweep_card (scm_t_cell *  p, SCM * Line 173  scm_i_sweep_card (scm_t_cell *  p, SCM *
173                         "vector");                         "vector");
174            break;            break;
175  #endif  #endif
176            case scm_tc7_number:
177              switch SCM_TYP16 (scmptr)
178                {
179                case scm_tc16_real:
180                  break;
181                case scm_tc16_big:
182                  mpz_clear (SCM_I_BIG_MPZ (scmptr));
183                  /* nothing else to do here since the mpz is in a double cell */
184                  break;
185                case scm_tc16_complex:
186                  scm_gc_free (SCM_COMPLEX_MEM (scmptr), sizeof (scm_t_complex),
187                               "complex");
188                  break;
189                }
190              break;
191          case scm_tc7_string:          case scm_tc7_string:
192            scm_gc_free (SCM_STRING_CHARS (scmptr),            scm_gc_free (SCM_STRING_CHARS (scmptr),
193                         SCM_STRING_LENGTH (scmptr) + 1, "string");                         SCM_STRING_LENGTH (scmptr) + 1, "string");
# Line 232  scm_i_sweep_card (scm_t_cell *  p, SCM * Line 247  scm_i_sweep_card (scm_t_cell *  p, SCM *
247            switch SCM_TYP16 (scmptr)            switch SCM_TYP16 (scmptr)
248              {              {
249              case scm_tc_free_cell:              case scm_tc_free_cell:
             case scm_tc16_real:  
               break;  
             case scm_tc16_big:  
               mpz_clear (SCM_I_BIG_MPZ (scmptr));  
               /* nothing else to do here since the mpz is in a double cell */  
               break;  
             case scm_tc16_complex:  
               scm_gc_free (SCM_COMPLEX_MEM (scmptr), sizeof (scm_t_complex),  
                            "complex");  
250                break;                break;
251              default:              default:
252                {                {

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26