Parent Directory | Revision Log | Patch
revision 1.67 by hanwen, Tue Aug 27 10:58:01 2002 UTC | revision 1.68 by dirk, Sat Nov 16 16:20:14 2002 UTC | |
---|---|---|
# | Line 92 SCM_API SCM scm_eval_options_interface ( | Line 92 SCM_API SCM scm_eval_options_interface ( |
92 | & (SCM_UNPACK (n) >> 8)) | & (SCM_UNPACK (n) >> 8)) |
93 | #define SCM_IDIST(n) (SCM_UNPACK (n) >> 20) | #define SCM_IDIST(n) (SCM_UNPACK (n) >> 20) |
94 | #define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n)) | #define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n)) |
95 | #define SCM_MAKE_ILOC(frame_nr, binding_nr, last_p) \ | |
96 | SCM_PACK ( \ | |
97 | ((frame_nr) << 8) \ | |
98 | + ((binding_nr) << 20) \ | |
99 | + ((last_p) ? SCM_ICDR : 0) \ | |
100 | + scm_tc8_iloc ) | |
101 | ||
102 | ||
103 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |