/[guile]/guile/guile-core/libguile/struct.c
ViewVC logotype

Diff of /guile/guile-core/libguile/struct.c

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

revision 1.89 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.90 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 460  SCM_DEFINE (scm_make_struct, "make-struc Line 460  SCM_DEFINE (scm_make_struct, "make-struc
460      data = scm_alloc_struct (basic_size + tail_elts,      data = scm_alloc_struct (basic_size + tail_elts,
461                               scm_struct_n_extra_words,                               scm_struct_n_extra_words,
462                               "struct");                               "struct");
463    handle = scm_alloc_double_cell ((((scm_t_bits) SCM_STRUCT_DATA (vtable))    handle = scm_double_cell ((((scm_t_bits) SCM_STRUCT_DATA (vtable))
464                                     + scm_tc3_struct),                               + scm_tc3_struct),
465                                    (scm_t_bits) data, 0, 0);                              (scm_t_bits) data, 0, 0);
466    scm_struct_init (handle, layout, data, tail_elts, init);    scm_struct_init (handle, layout, data, tail_elts, init);
467    SCM_ALLOW_INTS;    SCM_ALLOW_INTS;
468    return handle;    return handle;
# Line 539  SCM_DEFINE (scm_make_vtable_vtable, "mak Line 539  SCM_DEFINE (scm_make_vtable_vtable, "mak
539    data = scm_alloc_struct (basic_size + tail_elts,    data = scm_alloc_struct (basic_size + tail_elts,
540                             scm_struct_n_extra_words,                             scm_struct_n_extra_words,
541                             "struct");                             "struct");
542    handle = scm_alloc_double_cell ((scm_t_bits) data + scm_tc3_struct,    handle = scm_double_cell ((scm_t_bits) data + scm_tc3_struct,
543                                    (scm_t_bits) data, 0, 0);                              (scm_t_bits) data, 0, 0);
544    data [scm_vtable_index_layout] = SCM_UNPACK (layout);    data [scm_vtable_index_layout] = SCM_UNPACK (layout);
545    scm_struct_init (handle, layout, data, tail_elts, scm_cons (layout, init));    scm_struct_init (handle, layout, data, tail_elts, scm_cons (layout, init));
546    SCM_ALLOW_INTS;    SCM_ALLOW_INTS;

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

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