Changeset 12982

Timestamp:

Oct 9, 2009, 8:29:45 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

%WATCH: assume caller has done necessary type-checking.

File:

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

branches/watchpoints/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)
+(defx8632lapfunction %watch ((thing arg_z))
+  (check-nargs 1)
   (movl ($ arch::watch-trap-function-watch) (%l imm0))
   (uuo-watch-trap)