mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Merge commit '6290d3f109' into vm-check

Browse source
This commit is contained in:
Andy Wingo 2009-03-17 16:05:41 +01:00
commit c872cc2f37
3 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/goops.c
View file

@ -158,7 +158,12 @@ SCM scm_class_protected_opaque, scm_class_protected_read_only;
SCM scm_class_scm; SCM scm_class_scm;
SCM scm_class_int, scm_class_float, scm_class_double; SCM scm_class_int, scm_class_float, scm_class_double;
SCM *scm_port_class = 0; /* Port classes. Allocate 3 times the maximum number of port types so that
input ports, output ports, and in/out ports can be stored at different
offsets. See `SCM_IN_PCLASS_INDEX' et al. */
SCM scm_port_class[3 * SCM_I_MAX_PORT_TYPE_COUNT];
/* SMOB classes. */
SCM scm_smob_class[SCM_I_MAX_SMOB_TYPE_COUNT]; SCM scm_smob_class[SCM_I_MAX_SMOB_TYPE_COUNT];
SCM scm_no_applicable_method; SCM scm_no_applicable_method;
@ -2771,11 +2776,6 @@ create_port_classes (void)
{ {
long i; long i;
/* Allocate 3 times the maximum number of port types so that input ports,
output ports, and in/out ports can be stored at different offsets. See
`SCM_IN_PCLASS_INDEX' et al. */
scm_port_class = scm_calloc (3 * SCM_I_MAX_PORT_TYPE_COUNT * sizeof (SCM));
for (i = 0; i < scm_numptob; ++i) for (i = 0; i < scm_numptob; ++i)
scm_make_port_classes (i, SCM_PTOBNAME (i)); scm_make_port_classes (i, SCM_PTOBNAME (i));
} }

2
libguile/goops.h
View file

@ -170,7 +170,7 @@ SCM_API SCM scm_class_complex;
SCM_API SCM scm_class_integer; SCM_API SCM scm_class_integer;
SCM_API SCM scm_class_fraction; SCM_API SCM scm_class_fraction;
SCM_API SCM scm_class_unknown; SCM_API SCM scm_class_unknown;
SCM_API SCM *scm_port_class; SCM_API SCM scm_port_class[];
SCM_API SCM scm_smob_class[]; SCM_API SCM scm_smob_class[];
SCM_API SCM scm_class_top; SCM_API SCM scm_class_top;
SCM_API SCM scm_class_object; SCM_API SCM scm_class_object;

2
libguile/ports.c
View file

@ -172,7 +172,7 @@ scm_make_port_type (char *name,
scm_memory_error ("scm_make_port_type"); scm_memory_error ("scm_make_port_type");
} }
/* Make a class object if Goops is present */ /* Make a class object if Goops is present */
if (scm_port_class) if (SCM_UNPACK (scm_port_class[0]) != 0)
scm_make_port_classes (scm_numptob - 1, SCM_PTOBNAME (scm_numptob - 1)); scm_make_port_classes (scm_numptob - 1, SCM_PTOBNAME (scm_numptob - 1));
return scm_tc7_port + (scm_numptob - 1) * 256; return scm_tc7_port + (scm_numptob - 1) * 256;
} }