Changeset 12797


Ignore:
Timestamp:
Sep 9, 2009, 1:34:41 AM (10 years ago)
Author:
rme
Message:

x8632 versions of %WATCH and %UNWATCH.

File:
1 edited

Legend:

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

    r11556 r12797  
    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)
     399  (movl ($ arch::watch-trap-function-watch) (%l imm0))
     400  (uuo-watch-trap)
     401  (movl ($ nil) (%l arg_z))
     402  (single-value-return))
     403
     404(defx8632lapfunction %unwatch ((watched arg_z))
     405  (check-nargs 1)
     406  (movl ($ arch::watch-trap-function-unwatch) (%l imm0))
     407  (uuo-watch-trap)
     408  (movl ($ nil) (%l arg_z))
     409  (single-value-return))
     410
    394411(defx8632lapfunction %allocate-list ((initial-element arg_y) (nconses arg_z))
    395412  (check-nargs 2)
Note: See TracChangeset for help on using the changeset viewer.