- Timestamp:
- Oct 14, 2009, 4:25:26 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lisp-kernel/x86-exceptions.c
r13002 r13015 3735 3735 size = uvector_total_size_in_bytes(noderef); 3736 3736 3737 if (object_area && object_area->code != AREA_WATCHED) {3737 if (object_area && object_area->code == AREA_DYNAMIC) { 3738 3738 area *a = new_watched_area(size); 3739 3739 LispObj old = object; … … 3748 3748 wp_update_references(tcr, old, new); 3749 3749 check_all_areas(tcr); 3750 return 1; 3750 3751 } 3751 3752 return 0; … … 3791 3792 LispObj selector = xpGPR(xp,Iimm0); 3792 3793 LispObj object = xpGPR(xp, Iarg_z); 3794 signed_natural result; 3793 3795 3794 3796 switch (selector) { 3795 3797 case WATCH_TRAP_FUNCTION_WATCH: 3796 gc_like_from_xp(xp, watch_object, object); 3798 result = gc_like_from_xp(xp, watch_object, object); 3799 if (result == 0) 3800 xpGPR(xp,Iarg_z) = lisp_nil; 3797 3801 break; 3798 3802 case WATCH_TRAP_FUNCTION_UNWATCH:
Note: See TracChangeset
for help on using the changeset viewer.