mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-07 01:50:32 +02:00
Code Activity

frames, values: BUILDING_LIBGUILE-guarded defs to internal headers

Browse source 
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:
Andy Wingo 2025-07-01 10:43:14 +02:00
parent 65a265adea
commit 6a32628e18
21 changed files with 213 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/smob.c
View file

@ -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))