Changeset 12790


Ignore:
Timestamp:
Sep 9, 2009, 12:49:12 AM (10 years ago)
Author:
rme
Message:

New functions %WATCH and %UNWATCH.

File:
1 edited

Legend:

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

    r11556 r12790  
    445445  (jmp-subprim .SPmakeu64))
    446446
     447(defx86lapfunction %watch ((uvector arg_z))
     448  (check-nargs 1)
     449  ;; This traps on symbols and functions, which have their own tags.
     450  ;; This may be undesirable.
     451  (trap-unless-lisptag= uvector x8664::tag-misc imm0)
     452  (movl ($ arch::watch-trap-function-watch) (%l imm0))
     453  (uuo-watch-trap)
     454  (movl ($ nil) (%l arg_z))
     455  (single-value-return))
     456
     457(defx86lapfunction %unwatch ((watched arg_z))
     458  (check-nargs 1)
     459  (movl ($ arch::watch-trap-function-unwatch) (%l imm0))
     460  (uuo-watch-trap)
     461  (movl ($ nil) (%l arg_z))
     462  (single-value-return))
     463
    447464(defx86lapfunction %allocate-list ((initial-element arg_y) (nconses arg_z))
    448465  (check-nargs 2)
Note: See TracChangeset for help on using the changeset viewer.