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

Convert mutexes, condition vars to statically-allocated tc16

Browse source 
* libguile/scm.h: Add statically allocated tc16s for condvars and
mutexes.
* libguile/threads.c: Adapt to declare tag inline to struct scm_cond and
struct scm_mutex.
* libguile/threads.h: Expose printing procedures internally.
* module/oop/goops.scm:
* libguile/goops.c: Fix to statically allocate condition variable and
mutex classes.
* libguile/eq.c:
* libguile/print.c: Adapt.
This commit is contained in:
Andy Wingo 2025-06-13 11:45:55 +02:00
parent 7a1406891f
commit f47fe6e752
7 changed files with 114 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/print.c
View file

@ -792,6 +792,12 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
case scm_tc16_charset:
scm_i_print_char_set (exp, port, pstate);
break;
case scm_tc16_condition_variable:
scm_i_print_condition_variable (exp, port, pstate);
break;
case scm_tc16_mutex:
scm_i_print_mutex (exp, port, pstate);
break;
default:
abort ();
}