/[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.18 by mvo, Sun Jul 27 13:56:10 2003 UTC revision 1.19 by dirk, Thu Sep 18 20:18:17 2003 UTC
# Line 21  Line 21 
21    
22  #include "libguile/_scm.h"  #include "libguile/_scm.h"
23  #include "libguile/eval.h"  #include "libguile/eval.h"
24    #include "libguile/numbers.h"
25  #include "libguile/stime.h"  #include "libguile/stime.h"
26  #include "libguile/stackchk.h"  #include "libguile/stackchk.h"
27  #include "libguile/struct.h"  #include "libguile/struct.h"
# Line 238  scm_i_sweep_card (scm_t_cell *  p, SCM * Line 239  scm_i_sweep_card (scm_t_cell *  p, SCM *
239                /* nothing else to do here since the mpz is in a double cell */                /* nothing else to do here since the mpz is in a double cell */
240                break;                break;
241              case scm_tc16_complex:              case scm_tc16_complex:
242                scm_gc_free (SCM_COMPLEX_MEM (scmptr), 2*sizeof (double),                scm_gc_free (SCM_COMPLEX_MEM (scmptr), sizeof (scm_t_complex),
243                             "complex");                             "complex");
244                break;                break;
245              default:              default:

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

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