Changeset 8235


Ignore:
Timestamp:
Jan 22, 2008, 9:12:12 PM (12 years ago)
Author:
rme
Message:

Update sprint_lisp_object() and sprint_tra() for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lisp-kernel/x86_print.c

    r8070 r8235  
    338338    sprint_unsigned_hex(o);
    339339  }
     340#else
     341  LispObj f = 0;
     342  unsigned disp = 0;
     343
     344  if (*(unsigned char *)o == RECOVER_FN_OPCODE) {
     345    f = (LispObj)(*((natural *)(o + 1)));
     346    disp = o - f;
     347  }
     348
     349  if (f && header_subtag(header_of(f)) == subtag_function) {
     350    add_c_string("tagged return address: ");
     351    sprint_function(f, depth);
     352    add_c_string(" + ");
     353    sprint_unsigned_decimal(disp);
     354  } else {
     355    add_c_string("(tra ?) : ");
     356    sprint_unsigned_hex(o);
     357  }
    340358#endif
    341359}
     
    476494    case fulltag_nodeheader_1:
    477495#else
     496    case fulltag_immheader:
     497    case fulltag_nodeheader:
    478498#endif     
    479499      add_c_string("#<header ? ");
     
    486506    case fulltag_imm_1:
    487507#else
     508    case fulltag_imm:
    488509#endif
    489510      if (o == unbound) {
     
    534555      sprint_function(o, depth);
    535556      break;
    536 
     557#endif
     558
     559#ifdef X8664
    537560    case fulltag_tra_0:
    538561    case fulltag_tra_1:
     562#else
     563    case fulltag_tra:
     564#endif
    539565      sprint_tra(o,depth);
    540566      break;
    541 #endif
    542567    }
    543568  }
Note: See TracChangeset for help on using the changeset viewer.