/[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.11.2.2 by pw, Tue May 23 16:38:15 2000 UTC revision 1.11.2.3 by dtc, Thu Jun 22 12:55:39 2000 UTC
# Line 2208  static void apply_code_fixups(struct cod Line 2208  static void apply_code_fixups(struct cod
2208    /* Could be pointing to a forwarding pointer. */    /* Could be pointing to a forwarding pointer. */
2209    if (Pointerp(fixups) && find_page_index((void*) fixups_vector) != -1    if (Pointerp(fixups) && find_page_index((void*) fixups_vector) != -1
2210        && fixups_vector->header == 0x01) {        && fixups_vector->header == 0x01) {
2211    #if 0
2212      fprintf(stderr, "* FF\n");      fprintf(stderr, "* FF\n");
2213    #endif
2214      /* If so then follow it. */      /* If so then follow it. */
2215      fixups_vector = (struct vector *) PTR((lispobj) fixups_vector->length);      fixups_vector = (struct vector *) PTR((lispobj) fixups_vector->length);
2216    }    }

Legend:
Removed from v.1.11.2.2  
changed lines
  Added in v.1.11.2.3

  ViewVC Help
Powered by ViewVC 1.1.5