Changeset 12982


Ignore:
Timestamp:
Oct 10, 2009, 3:29:45 AM (10 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/watchpoints/level-0/X86/X8632/x8632-utils.lisp

    r12981 r12982  
    392392  (jmp-subprim .SPmakeu32))
    393393
    394 (defx8632lapfunction %watch ((uvector arg_z))
    395   (check-nargs 1)
    396   ;; May want to tighten this up to disallow watching functions,
    397   ;; symbols, etc.
    398   (trap-unless-lisptag= uvector x8632::tag-misc imm0)
     394(defx8632lapfunction %watch ((thing arg_z))
     395  (check-nargs 1)
    399396  (movl ($ arch::watch-trap-function-watch) (%l imm0))
    400397  (uuo-watch-trap)
Note: See TracChangeset for help on using the changeset viewer.