Changeset 14091 for branches


Ignore:
Timestamp:
Jul 30, 2010, 3:47:56 PM (9 years ago)
Author:
gb
Message:

Skip over 0 word pairs when walking cstack. (Leftovers from bignum
normalization.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-gc.c

    r14027 r14091  
    968968      mark_pc_root(frame->savelr);
    969969      current += sizeof(lisp_frame)/sizeof(LispObj);
    970     } else if (header == stack_alloc_marker) {
     970    } else if ((header == stack_alloc_marker) || (header == 0)) {
    971971      current += 2;
    972972    } else if (nodeheader_tag_p(fulltag_of(header))) {
     
    12531253      update_locref(&(frame->savelr));
    12541254      current += sizeof(lisp_frame)/sizeof(LispObj);
    1255     } else if (header == stack_alloc_marker) {
     1255    } else if ((header == stack_alloc_marker) || (header == 0)) {
    12561256      current += 2;
    12571257    } else if (nodeheader_tag_p(fulltag_of(header))) {
     
    17041704      purify_locref(&(frame->savelr), low, high, to);
    17051705      current += sizeof(lisp_frame)/sizeof(LispObj);
    1706     } else if (header == stack_alloc_marker) {
     1706    } else if ((header == stack_alloc_marker) || (header == 0)) {
    17071707      current += 2;
    17081708    } else if (nodeheader_tag_p(fulltag_of(header))) {
     
    19161916      impurify_locref(&(frame->savelr), low, high, delta);
    19171917      current += sizeof(lisp_frame)/sizeof(LispObj);
    1918     } else if (header == stack_alloc_marker) {
     1918    } else if ((header == stack_alloc_marker) || (header == 0)) {
    19191919      current += 2;
    19201920    } else if (nodeheader_tag_p(fulltag_of(header))) {
Note: See TracChangeset for help on using the changeset viewer.