Changeset 13015 for trunk

Timestamp:

Oct 14, 2009, 4:25:26 AM (11 years ago)

Author:

rme

Message:

If an object in not in a dynamic areas, refuse to watch it. Make
WATCH return NIL in such a case.

File:

• trunk/source/lisp-kernel/x86-exceptions.c (modified) (3 diffs)

trunk/source/lisp-kernel/x86-exceptions.c

@@ -3735 +3735 @@
     size = uvector_total_size_in_bytes(noderef);
 
-  if (object_area && object_area->code != AREA_WATCHED) {
+  if (object_area && object_area->code == AREA_DYNAMIC) {
     area *a = new_watched_area(size);
     LispObj old = object;
@@ -3748 +3748 @@
     wp_update_references(tcr, old, new);
     check_all_areas(tcr);
+    return 1;
   }
   return 0;
@@ -3791 +3792 @@
   LispObj selector = xpGPR(xp,Iimm0);
   LispObj object = xpGPR(xp, Iarg_z);
+  signed_natural result;
   
   switch (selector) {
     case WATCH_TRAP_FUNCTION_WATCH:
-      gc_like_from_xp(xp, watch_object, object);
+      result = gc_like_from_xp(xp, watch_object, object);
+      if (result == 0)
+        xpGPR(xp,Iarg_z) = lisp_nil;
       break;
     case WATCH_TRAP_FUNCTION_UNWATCH: