mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 04:40:29 +02:00
aa84489d18
There are two goals: one, to use less memory per dynamic state in order to allow millions of dynamic states to be allocated in light-weight threading scenarios. The second goal is to prevent dynamic states from being actively mutated in two threads at once. This second goal does mean that dynamic states object that escape into scheme are now copies that won't receive further updates; an incompatible change, but one which we hope doesn't affect anyone. * libguile/cache-internal.h: New file. * libguile/fluids.c (is_dynamic_state, get_dynamic_state) (save_dynamic_state, restore_dynamic_state, add_entry) (copy_value_table): New functions. (scm_i_fluid_print, scm_i_dynamic_state_print): Move up. (new_fluid): No need for a number. (scm_fluid_p: scm_is_fluid): Inline IS_FLUID uses. (fluid_set_x, fluid_ref): Adapt to dynamic state changes. (scm_fluid_set_x, scm_fluid_unset_x): Call fluid_set_x. (scm_swap_fluid): Rewrite in terms of fluid_ref and fluid_set. (swap_fluid): Use internal fluid_set_x. (scm_i_make_initial_dynamic_state): Adapt to dynamic state representation change. (scm_dynamic_state_p, scm_is_dynamic_state): Use new accessors. (scm_current_dynamic_state): Use make_dynamic_state. (scm_dynwind_current_dynamic_state): Use new accessor. * libguile/fluids.h: Remove internal definitions. Add new struct definition. * libguile/threads.h (scm_i_thread): Use scm_t_dynamic_state for dynamic state. * libguile/threads.c (guilify_self_1, guilify_self_2): (scm_i_init_thread_for_guile, scm_init_guile): (scm_call_with_new_thread): (scm_init_threads, scm_init_threads_default_dynamic_state): Adapt to scm_i_thread change. (scm_i_with_guile, with_guile): Remove "and parent" suffix. (scm_i_reset_fluid): Remove unneeded function. * doc/ref/api-scheduling.texi (Fluids and Dynamic States): Remove scm_make_dynamic_state docs. Update current-dynamic-state docs. * libguile/vm-engine.c (vm_engine): Update fluid-ref and fluid-set! inlined fast paths for dynamic state changes. * libguile/vm.c (vm_error_unbound_fluid): Remove now-unused function. * NEWS: Update. * module/ice-9/deprecated.scm (make-dynamic-state): New definition. * libguile/deprecated.h: * libguile/deprecated.c (scm_make_dynamic_state): Move here. * libguile/__scm.h (scm_t_dynamic_state): New typedef. * libguile/dynstack.h: * libguile/dynstack.c (scm_dynstack_push_fluid): (scm_dynstack_unwind_fluid): Take raw dynstate in these internal functions. * libguile/throw.c (catch): Adapt to dynstack changes.
96 lines
3.2 KiB
C
96 lines
3.2 KiB
C
/* classes: h_files */
|
||
|
||
#ifndef SCM_FLUIDS_H
|
||
#define SCM_FLUIDS_H
|
||
|
||
/* Copyright (C) 1996,2000,2001, 2006, 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
|
||
*
|
||
* This library is free software; you can redistribute it and/or
|
||
* modify it under the terms of the GNU Lesser General Public License
|
||
* as published by the Free Software Foundation; either version 3 of
|
||
* the License, or (at your option) any later version.
|
||
*
|
||
* This library is distributed in the hope that it will be useful, but
|
||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
* Lesser General Public License for more details.
|
||
*
|
||
* You should have received a copy of the GNU Lesser General Public
|
||
* License along with this library; if not, write to the Free Software
|
||
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||
* 02110-1301 USA
|
||
*/
|
||
|
||
|
||
|
||
#include "libguile/__scm.h"
|
||
#include "libguile/vectors.h"
|
||
|
||
|
||
/* Fluids.
|
||
|
||
Fluids are objects of a certain type that can hold one SCM value per
|
||
dynamic state. That is, modifications to this value are only visible
|
||
to code that executes with the same dynamic state as the modifying
|
||
code. When a new dynamic state is constructed, it inherits the
|
||
values from its parent. Because each thread executes with its own
|
||
dynamic state, you can use fluids for thread local storage.
|
||
*/
|
||
|
||
#define SCM_FLUID_P(x) (SCM_HAS_TYP7 (x, scm_tc7_fluid))
|
||
|
||
#ifdef BUILDING_LIBGUILE
|
||
# include <libguile/cache-internal.h>
|
||
|
||
struct scm_dynamic_state
|
||
{
|
||
SCM values;
|
||
uint8_t has_aliased_values;
|
||
struct scm_cache cache;
|
||
};
|
||
#endif
|
||
|
||
SCM_API SCM scm_make_fluid (void);
|
||
SCM_API SCM scm_make_fluid_with_default (SCM dflt);
|
||
SCM_API SCM scm_make_unbound_fluid (void);
|
||
SCM_API int scm_is_fluid (SCM obj);
|
||
SCM_API SCM scm_fluid_p (SCM fl);
|
||
SCM_API SCM scm_fluid_ref (SCM fluid);
|
||
SCM_API SCM scm_fluid_set_x (SCM fluid, SCM value);
|
||
SCM_API SCM scm_fluid_unset_x (SCM fluid);
|
||
SCM_API SCM scm_fluid_bound_p (SCM fluid);
|
||
|
||
SCM_INTERNAL void scm_swap_fluid (SCM fluid, SCM value_box,
|
||
scm_t_dynamic_state *dynamic_state);
|
||
|
||
SCM_API SCM scm_c_with_fluids (SCM fluids, SCM vals,
|
||
SCM (*cproc)(void *), void *cdata);
|
||
SCM_API SCM scm_c_with_fluid (SCM fluid, SCM val,
|
||
SCM (*cproc)(void *), void *cdata);
|
||
SCM_API SCM scm_with_fluids (SCM fluids, SCM vals, SCM thunk);
|
||
SCM_API SCM scm_with_fluid (SCM fluid, SCM val, SCM thunk);
|
||
|
||
SCM_API void scm_dynwind_fluid (SCM fluid, SCM value);
|
||
|
||
SCM_API SCM scm_dynamic_state_p (SCM obj);
|
||
SCM_API int scm_is_dynamic_state (SCM obj);
|
||
SCM_API SCM scm_current_dynamic_state (void);
|
||
SCM_API SCM scm_set_current_dynamic_state (SCM state);
|
||
SCM_API void scm_dynwind_current_dynamic_state (SCM state);
|
||
SCM_API void *scm_c_with_dynamic_state (SCM state,
|
||
void *(*func)(void *), void *data);
|
||
SCM_API SCM scm_with_dynamic_state (SCM state, SCM proc);
|
||
|
||
SCM_INTERNAL SCM scm_i_make_initial_dynamic_state (void);
|
||
|
||
SCM_INTERNAL void scm_i_fluid_print (SCM exp, SCM port, scm_print_state *pstate);
|
||
SCM_INTERNAL void scm_i_dynamic_state_print (SCM exp, SCM port, scm_print_state *pstate);
|
||
SCM_INTERNAL void scm_init_fluids (void);
|
||
|
||
#endif /* SCM_FLUIDS_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|