diff options
| author | Rob Browning <rlb@cs.utexas.edu> | 1997-12-12 17:29:42 -0600 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:24 -0800 |
| commit | f64b2806c1d66a1341bb8b1491f384169ab1d65f (patch) | |
| tree | 8b97dbe3640c60927959b0e63461ef9fcae591e0 /continue.h | |
| parent | 6dcb175d7f34d9f5a0b3ba623f94454ec16a73d6 (diff) | |
| parent | 1edcb9b62a1a520eddae8403c19d841c9b18737f (diff) | |
| download | scm-debian/5b3-1.tar.gz scm-debian/5b3-1.zip | |
Import Debian changes 5b3-1debian/5b3-1
scm (5b3-1) unstable; urgency=low
* New maintainer
* New version
* libc6
Diffstat (limited to 'continue.h')
| -rw-r--r-- | continue.h | 33 |
1 files changed, 18 insertions, 15 deletions
@@ -1,4 +1,4 @@ -/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. +/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -42,30 +42,33 @@ /* "continue.h" Scheme Continuations for C. Author: Aubrey Jaffer. */ -#ifdef vms +#ifdef vax # ifndef CHEAP_CONTINUATIONS - typedef int jmp_buf[17]; - extern int setjump(jmp_buf env); - extern int longjump(jmp_buf env, int ret); + typedef int jump_buf[17]; + extern int setjump(jump_buf env); + extern int longjump(jump_buf env, int ret); -# define setjmp setjump -# define longjmp longjump # else # include <setjmp.h> +# define jump_buf jmp_buf +# define setjump setjmp +# define longjump longjmp # endif -#else /* ndef vms */ +#else /* ndef vax */ # ifdef _CRAY1 - typedef int jmp_buf[112]; - extern int setjump(jmp_buf env); - extern int longjump(jmp_buf env, int ret); -# define setjmp setjump -# define longjmp longjump + typedef int jump_buf[112]; + extern int setjump(jump_buf env); + extern int longjump(jump_buf env, int ret); + # else /* ndef _CRAY1 */ # include <setjmp.h> +# define jump_buf jmp_buf +# define setjump setjmp +# define longjump longjmp # endif /* ndef _CRAY1 */ -#endif /* ndef vms */ +#endif /* ndef vax */ /* `other' is a CONTINUATION slot for miscellaneous data of type CONTINUATION_OTHER. */ @@ -93,7 +96,7 @@ typedef short STACKITEM; typedef long STACKITEM; #endif -struct Continuation {jmp_buf jmpbuf; +struct Continuation {jump_buf jmpbuf; long thrwval; long length; STACKITEM *stkbse; |