/[guile]/guile/guile-core/libguile/__scm.h
ViewVC logotype

Diff of /guile/guile-core/libguile/__scm.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.81 by mvo, Tue Nov 13 14:28:42 2001 UTC revision 1.82 by ttn, Sun Feb 3 05:19:05 2002 UTC
# Line 293  Line 293 
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    
# Line 384  typedef long ptrdiff_t; Line 388  typedef long ptrdiff_t;
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
# Line 393  typedef long ptrdiff_t; Line 397  typedef long ptrdiff_t;
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 */
# Line 415  typedef long SCM_STACKITEM; Line 419  typedef long SCM_STACKITEM;
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    
# Line 573  do { \ Line 577  do { \
577    
578    
579  /** SCM_ASSERT  /** SCM_ASSERT
580   **   **
581   **/   **/
582    
583    
# Line 659  SCM_API SCM scm_apply_generic (SCM gf, S Line 663  SCM_API SCM scm_apply_generic (SCM gf, S
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    

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26