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"); |
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 |
{ |
{ |