Changeset 13005


Ignore:
Timestamp:
Oct 12, 2009, 8:38:08 PM (15 years ago)
Author:
R. Matthew Emerson
Message:

%WATCH returns newly watched object.

Location:
trunk/source/level-0/X86
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r12837 r13005  
    394394(defx8632lapfunction %watch ((uvector arg_z))
    395395  (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)
    399396  (movl ($ arch::watch-trap-function-watch) (%l imm0))
    400397  (uuo-watch-trap)
    401   (movl ($ nil) (%l arg_z))
    402398  (single-value-return))
    403399

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

    r12888 r13005  
    449449  (movl ($ arch::watch-trap-function-watch) (%l imm0))
    450450  (uuo-watch-trap)
    451   (movl ($ nil) (%l arg_z))
    452451  (single-value-return))
    453452
Note: See TracChangeset for help on using the changeset viewer.