293 |
* - ... add more |
* - ... add more |
294 |
*/ |
*/ |
295 |
|
|
296 |
#if SIZEOF_UINTPTR_T != 0 |
#if SIZEOF_UINTPTR_T != 0 && defined(UINTPTR_MAX) \ |
297 |
|
&& defined(INTPTR_MAX) \ |
298 |
|
&& defined(INTPTR_MIN) |
299 |
|
/* Used as SCM if available, so we bundle related attributes to avoid possible |
300 |
|
type incon[st][oi]n[ae]nce later. Word in tags.h. */ |
301 |
#define HAVE_UINTPTR_T 1 |
#define HAVE_UINTPTR_T 1 |
302 |
#endif |
#endif |
303 |
|
|
388 |
|
|
389 |
/* James Clark came up with this neat one instruction fix for |
/* James Clark came up with this neat one instruction fix for |
390 |
* continuations on the SPARC. It flushes the register windows so |
* continuations on the SPARC. It flushes the register windows so |
391 |
* that all the state of the process is contained in the stack. |
* that all the state of the process is contained in the stack. |
392 |
*/ |
*/ |
393 |
|
|
394 |
#ifdef sparc |
#ifdef sparc |
397 |
# define SCM_FLUSH_REGISTER_WINDOWS /* empty */ |
# define SCM_FLUSH_REGISTER_WINDOWS /* empty */ |
398 |
#endif |
#endif |
399 |
|
|
400 |
/* If stack is not longword aligned then |
/* If stack is not longword aligned then |
401 |
*/ |
*/ |
402 |
|
|
403 |
/* #define SHORT_ALIGN */ |
/* #define SHORT_ALIGN */ |
419 |
|
|
420 |
|
|
421 |
#ifndef USE_THREADS |
#ifndef USE_THREADS |
422 |
#define SCM_CRITICAL_SECTION_START |
#define SCM_CRITICAL_SECTION_START |
423 |
#define SCM_CRITICAL_SECTION_END |
#define SCM_CRITICAL_SECTION_END |
424 |
#define SCM_THREAD_SWITCHING_CODE |
#define SCM_THREAD_SWITCHING_CODE |
425 |
#endif |
#endif |
426 |
|
|
577 |
|
|
578 |
|
|
579 |
/** SCM_ASSERT |
/** SCM_ASSERT |
580 |
** |
** |
581 |
**/ |
**/ |
582 |
|
|
583 |
|
|
663 |
#define SCM_ARG4 4 |
#define SCM_ARG4 4 |
664 |
#define SCM_ARG5 5 |
#define SCM_ARG5 5 |
665 |
#define SCM_ARG6 6 |
#define SCM_ARG6 6 |
666 |
#define SCM_ARG7 7 |
#define SCM_ARG7 7 |
667 |
|
|
668 |
#endif /* SCM_MAGIC_SNARFER */ |
#endif /* SCM_MAGIC_SNARFER */ |
669 |
|
|