mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* continuations.c, continuations.h, debug.c, gc.c, init.c, root.c,

Browse source 
stacks.c: Renamed regs --> scm_contregs.
This commit is contained in:
Mikael Djurfeldt 1996-10-14 03:26:29 +00:00
parent 6cb66921f6
commit 0db18cf45a
4 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/continuations.h
View file

@ -58,15 +58,15 @@ typedef struct
#ifdef DEBUG_EXTENSIONS
struct scm_debug_frame *dframe;
#endif
} regs;
} scm_contregs;
#define SCM_JMPBUF(x) (((regs *)SCM_CHARS(x))->jmpbuf)
#define SCM_JMPBUF(x) (((scm_contregs *)SCM_CHARS(x))->jmpbuf)
#define SCM_SETJMPBUF SCM_SETCDR
#define SCM_DYNENV(x) (((regs *)SCM_CHARS(x))->dynenv)
#define SCM_THROW_VALUE(x) (((regs *)SCM_CHARS(x))->throw_value)
#define SCM_BASE(x) (((regs *)SCM_CHARS(x))->base)
#define SCM_SEQ(x) (((regs *)SCM_CHARS(x))->seq)
#define SCM_DFRAME(x) (((regs *)SCM_CHARS(x))->dframe)
#define SCM_DYNENV(x) (((scm_contregs *)SCM_CHARS(x))->dynenv)
#define SCM_THROW_VALUE(x) (((scm_contregs *)SCM_CHARS(x))->throw_value)
#define SCM_BASE(x) (((scm_contregs *)SCM_CHARS(x))->base)
#define SCM_SEQ(x) (((scm_contregs *)SCM_CHARS(x))->seq)
#define SCM_DFRAME(x) (((scm_contregs *)SCM_CHARS(x))->dframe)