Changeset 12790

Timestamp:

Sep 9, 2009, 12:49:12 AM (10 years ago)

Author:

rme

Message:

New functions %WATCH and %UNWATCH.

File:

• trunk/source/level-0/X86/x86-utils.lisp (modified) (1 diff)

trunk/source/level-0/X86/x86-utils.lisp

@@ -445 +445 @@
   (jmp-subprim .SPmakeu64))
 
+(defx86lapfunction %watch ((uvector arg_z))
+  (check-nargs 1)
+  ;; This traps on symbols and functions, which have their own tags.
+  ;; This may be undesirable.
+  (trap-unless-lisptag= uvector x8664::tag-misc imm0)
+  (movl ($ arch::watch-trap-function-watch) (%l imm0))
+  (uuo-watch-trap)
+  (movl ($ nil) (%l arg_z))
+  (single-value-return))
+
+(defx86lapfunction %unwatch ((watched arg_z))
+  (check-nargs 1)
+  (movl ($ arch::watch-trap-function-unwatch) (%l imm0))
+  (uuo-watch-trap)
+  (movl ($ nil) (%l arg_z))
+  (single-value-return))
+
 (defx86lapfunction %allocate-list ((initial-element arg_y) (nconses arg_z))
   (check-nargs 2)