Changeset 12797

Timestamp:

Sep 8, 2009, 6:34:41 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

x8632 versions of %WATCH and %UNWATCH.

File:

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

trunk/source/level-0/X86/X8632/x8632-utils.lisp

@@ -392 +392 @@
   (jmp-subprim .SPmakeu32))
 
+(defx8632lapfunction %watch ((uvector arg_z))
+  (check-nargs 1)
+  ;; May want to tighten this up to disallow watching functions,
+  ;; symbols, etc.
+  (trap-unless-lisptag= uvector x8632::tag-misc imm0)
+  (movl ($ arch::watch-trap-function-watch) (%l imm0))
+  (uuo-watch-trap)
+  (movl ($ nil) (%l arg_z))
+  (single-value-return))
+
+(defx8632lapfunction %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))
+
 (defx8632lapfunction %allocate-list ((initial-element arg_y) (nconses arg_z))
   (check-nargs 2)