Changeset 7629


Ignore:
Timestamp:
Nov 10, 2007, 7:48:24 PM (12 years ago)
Author:
gb
Message:

Nominally support freeze on PPC; HONS_AREA stuff is deprecated.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/ppc-exceptions.c

    r7624 r7629  
    460460        fatal_oserr(": save_application", err);
    461461      }
    462       if (selector == GC_TRAP_FUNCTION_SET_HONS_AREA_SIZE) {
    463         LispObj aligned_arg = align_to_power_of_2(arg, log2_nbits_in_word);
    464         signed_natural
    465           delta_dnodes = ((signed_natural) aligned_arg) -
    466           ((signed_natural) tenured_area->static_dnodes);
    467         change_hons_area_size_from_xp(xp, delta_dnodes*dnode_size);
    468         xpGPR(xp, imm0) = tenured_area->static_dnodes;
     462      switch (selector) {
     463      case GC_TRAP_FUNCTION_SET_HONS_AREA_SIZE:
     464        xpGPR(xp, imm0) = 0;
     465        break;
     466
     467      case GC_TRAP_FUNCTION_FREEZE:
     468        a->active = (BytePtr) align_to_power_of_2(a->active, log2_page_size);
     469        tenured_area->static_dnodes = area_dnode(a->active, a->low);
     470        xpGPR(xp, imm0) = tenured_area->static_dnodes << dnode_shift;
     471        break;
     472      default:
     473        break;
    469474      }
    470475    }
     
    788793}
    789794
    790 int
    791 change_hons_area_size_from_xp(ExceptionInformation *xp, signed_natural delta_in_bytes)
    792 {
    793   return gc_like_from_xp(xp, change_hons_area_size, delta_in_bytes);
    794 }
    795795
    796796
Note: See TracChangeset for help on using the changeset viewer.