/[cmucl]/src/lisp/gencgc.c
ViewVC logotype

Diff of /src/lisp/gencgc.c

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

revision 1.107 by rtoy, Thu Apr 1 14:05:45 2010 UTC revision 1.107.2.1 by rtoy, Sat Jul 17 13:43:43 2010 UTC
# Line 2019  signal_space_p(lispobj obj) Line 2019  signal_space_p(lispobj obj)
2019  #endif  #endif
2020  }  }
2021    
2022  #if defined(sparc) || (defined(DARWIN) && defined(__ppc__))  #if (defined(DARWIN) && defined(__ppc__))
2023  /*  /*
2024   * The assembly code defines these as functions, so we make them   * The assembly code defines these as functions, so we make them
2025   * functions.  We only care about their addresses anyway.   * functions.  We only care about their addresses anyway.
2026   */   */
2027  extern char closure_tramp();  extern char closure_tramp();
2028  extern char undefined_tramp();  extern char undefined_tramp();
2029    #elif defined(sparc)
2030    /* closure tramp and undefined tramp are Lisp assembly routines */
2031  #else  #else
2032  extern int undefined_tramp;  extern int undefined_tramp;
2033  #endif  #endif
# Line 6837  verify_space(lispobj * start, size_t wor Line 6839  verify_space(lispobj * start, size_t wor
6839  #endif  #endif
6840              } else {              } else {
6841                  /* Verify that it points to another valid space */                  /* Verify that it points to another valid space */
6842                  if (!to_readonly_space && !to_static_space &&                  if (!to_readonly_space && !to_static_space
6843  #if defined(sparc) || (defined(DARWIN) && defined(__ppc__))  #if (defined(DARWIN) && defined(__ppc__))
6844                      !((thing == (int) &closure_tramp) ||  
6845                        (thing == (int) &undefined_tramp))                      && !((thing == (int) &closure_tramp) ||
6846                             (thing == (int) &undefined_tramp))
6847    #elif defined(sparc)
6848                        /* Nothing for sparc since these are Lisp assembly routines */
6849  #else  #else
6850                      thing != (int) &undefined_tramp                      && thing != (int) &undefined_tramp
6851  #endif  #endif
6852                      ) {                      ) {
6853    #ifndef sparc
6854                      fprintf(stderr,                      fprintf(stderr,
6855                              "*** Ptr %lx @ %lx sees Junk (undefined_tramp = %lx)",                              "*** Ptr %lx @ %lx sees Junk (undefined_tramp = %lx)",
6856                              (unsigned long) thing, (unsigned long) start,                              (unsigned long) thing, (unsigned long) start,
6857                              (unsigned long) &undefined_tramp);                              (unsigned long) &undefined_tramp);
6858    #endif
6859  #if defined(sparc) || (defined(DARWIN) && defined(__ppc__))  #if (defined(DARWIN) && defined(__ppc__))
6860                      fprintf(stderr, " (closure_tramp = %lx)",                      fprintf(stderr, " (closure_tramp = %lx)",
6861                              (unsigned long) &closure_tramp);                              (unsigned long) &closure_tramp);
6862  #endif  #endif

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.107.2.1

  ViewVC Help
Powered by ViewVC 1.1.5