mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-07 01:50:32 +02:00
frames, values: BUILDING_LIBGUILE-guarded defs to internal headers
I was writing the trace function, which is included by Whippet, which doesn't have the BUILDING_LIBGUILE define. It is just as fine to put these in private headers; better, even. * libguile/frames-internal.h: * libguile/values-internal.h: New files. * libguile/Makefile.am (noinst_HEADERS): Add new files. * libguile/backtrace.c: * libguile/continuations.c: * libguile/control.c: * libguile/eval.c: * libguile/frames.c: * libguile/frames.h: * libguile/gsubr.c: * libguile/init.c: * libguile/intrinsics.c: * libguile/numbers.c: * libguile/print.c: * libguile/smob.c: * libguile/smob.h: * libguile/stacks.c: * libguile/stacks.h: * libguile/values.c: * libguile/values.h: * libguile/vm.c: Include new files.
This commit is contained in:
parent
65a265adea
commit
6a32628e18
21 changed files with 213 additions and 148 deletions
|
@ -283,11 +283,20 @@ SCM
|
|||
scm_new_smob (scm_t_bits tc, scm_t_bits data)
|
||||
{
|
||||
scm_t_bits smobnum = SCM_TC2SMOBNUM (tc);
|
||||
const scm_smob_descriptor* desc = &scm_smobs[smobnum];
|
||||
scm_smob_descriptor* desc = &scm_smobs[smobnum];
|
||||
scm_thread *thr = SCM_I_CURRENT_THREAD;
|
||||
struct scm_single_smob *ret;
|
||||
size_t sz = sizeof (*ret);
|
||||
|
||||
scm_i_pthread_mutex_lock (&scm_i_misc_mutex);
|
||||
if (desc->observed_size != 2)
|
||||
{
|
||||
if (desc->observed_size)
|
||||
abort ();
|
||||
desc->observed_size = 2;
|
||||
}
|
||||
scm_i_pthread_mutex_unlock (&scm_i_misc_mutex);
|
||||
|
||||
if (desc->field_count)
|
||||
{
|
||||
if (desc->field_count != 1)
|
||||
|
@ -317,11 +326,20 @@ scm_new_double_smob (scm_t_bits tc, scm_t_bits data1,
|
|||
scm_t_bits data2, scm_t_bits data3)
|
||||
{
|
||||
scm_t_bits smobnum = SCM_TC2SMOBNUM (tc);
|
||||
const scm_smob_descriptor* desc = &scm_smobs[smobnum];
|
||||
scm_smob_descriptor* desc = &scm_smobs[smobnum];
|
||||
scm_thread *thr = SCM_I_CURRENT_THREAD;
|
||||
struct scm_double_smob *ret;
|
||||
size_t sz = sizeof (*ret);
|
||||
|
||||
scm_i_pthread_mutex_lock (&scm_i_misc_mutex);
|
||||
if (desc->observed_size != 4)
|
||||
{
|
||||
if (desc->observed_size)
|
||||
abort ();
|
||||
desc->observed_size = 4;
|
||||
}
|
||||
scm_i_pthread_mutex_unlock (&scm_i_misc_mutex);
|
||||
|
||||
if (desc->field_count)
|
||||
{
|
||||
if (!(desc->field_count == 2 || desc->field_count == 3))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue