Changeset 620


Ignore:
Timestamp:
Mar 7, 2004, 7:37:50 AM (17 years ago)
Author:
gb
Message:

Careful with the use of ptr_from_lispobj in add_lisp_base_string.
Careful with the use of immheader_tag_p when printing vectors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/ppc_print.c

    r619 r620  
    5555add_lisp_base_string(LispObj str)
    5656{
    57   add_string((char *) (ptr_from_lispobj(str) + misc_data_offset), header_element_count(header_of(str)));
     57  add_string((char *) (ptr_from_lispobj(str + misc_data_offset)), header_element_count(header_of(str)));
    5858}
    5959
     
    317317  LispObj header = header_of(o);
    318318 
    319   if (immheader_tag_p(header)) {
     319  if (immheader_tag_p(fulltag_of(header))) {
    320320    sprint_ivector(o);
    321321  } else {
Note: See TracChangeset for help on using the changeset viewer.