mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +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

25
libguile/dynwind.h
View file

@ -43,21 +43,26 @@ SCM_INTERNAL void scm_init_dynwind (void);
SCM_API void scm_swap_bindings (SCM vars, SCM vals);
/* Flags for scm_dynwind_begin. */
#define SCM_F_DYNWIND_REWINDABLE 1
typedef enum {
SCM_F_DYNWIND_REWINDABLE = (1 << 0)
} scm_t_dynwind_flags;
/* Flags for scm_dynwind_unwind_handler(_with_scm) and
scm_dynwind_rewind_handler(_with_scm). */
#define SCM_F_WIND_EXPLICITLY 1
typedef enum {
SCM_F_WIND_EXPLICITLY = (1 << 0)
} scm_t_wind_flags;
SCM_API void scm_dynwind_begin (int);
SCM_API void scm_dynwind_begin (scm_t_dynwind_flags);
SCM_API void scm_dynwind_end (void);
SCM_API void scm_dynwind_unwind_handler (void (*) (void *), void *, int);
SCM_API void scm_dynwind_rewind_handler (void (*) (void *), void *, int);
SCM_API void scm_dynwind_unwind_handler (void (*func) (void *), void *data,
scm_t_wind_flags);
SCM_API void scm_dynwind_rewind_handler (void (*func) (void *), void *data,
scm_t_wind_flags);
SCM_API void scm_dynwind_unwind_handler_with_scm (void (*) (SCM), SCM, int);
SCM_API void scm_dynwind_rewind_handler_with_scm (void (*) (SCM), SCM, int);
SCM_API void scm_dynwind_unwind_handler_with_scm (void (*func) (SCM), SCM data,
scm_t_wind_flags);
SCM_API void scm_dynwind_rewind_handler_with_scm (void (*func) (SCM), SCM data,
scm_t_wind_flags);
SCM_API void scm_dynwind_free (void *mem);