mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Revert "Change dynwind flag enums to #defines, for greater portability"

Browse source 
This reverts commit b25aa0b937.
This commit is contained in:
Neil Jerram 2009-10-07 22:14:38 +01:00
parent 61aab1c375
commit 98241dc53f
4 changed files with 58 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/dynwind.c
View file

@ -154,7 +154,7 @@ static scm_t_bits tc16_winder;
#define WINDER_MARK_P(w) (SCM_SMOB_FLAGS(w) & WINDER_F_MARK)
void
scm_dynwind_begin (int flags)
scm_dynwind_begin (scm_t_dynwind_flags flags)
{
SCM f;
SCM_NEWSMOB (f, tc16_frame, 0);
@ -192,7 +192,8 @@ scm_dynwind_end (void)
}
void
scm_dynwind_unwind_handler (void (*proc) (void *), void *data, int flags)
scm_dynwind_unwind_handler (void (*proc) (void *), void *data,
scm_t_wind_flags flags)
{
SCM w;
SCM_NEWSMOB2 (w, tc16_winder, (scm_t_bits) proc, (scm_t_bits) data);
@ -202,7 +203,8 @@ scm_dynwind_unwind_handler (void (*proc) (void *), void *data, int flags)
}
void
scm_dynwind_rewind_handler (void (*proc) (void *), void *data, int flags)
scm_dynwind_rewind_handler (void (*proc) (void *), void *data,
scm_t_wind_flags flags)
{
SCM w;
SCM_NEWSMOB2 (w, tc16_winder, (scm_t_bits) proc, (scm_t_bits) data);
@ -213,7 +215,8 @@ scm_dynwind_rewind_handler (void (*proc) (void *), void *data, int flags)
}
void
scm_dynwind_unwind_handler_with_scm (void (*proc) (SCM), SCM data, int flags)
scm_dynwind_unwind_handler_with_scm (void (*proc) (SCM), SCM data,
scm_t_wind_flags flags)
{
SCM w;
scm_t_bits fl = ((flags&SCM_F_WIND_EXPLICITLY)? WINDER_F_EXPLICIT : 0);
@ -223,7 +226,8 @@ scm_dynwind_unwind_handler_with_scm (void (*proc) (SCM), SCM data, int flags)
}
void
scm_dynwind_rewind_handler_with_scm (void (*proc) (SCM), SCM data, int flags)
scm_dynwind_rewind_handler_with_scm (void (*proc) (SCM), SCM data,
scm_t_wind_flags flags)
{
SCM w;
SCM_NEWSMOB2 (w, tc16_winder, (scm_t_bits) proc, SCM_UNPACK (data));