Changeset 12790
- Timestamp:
- Sep 9, 2009, 12:49:12 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-0/X86/x86-utils.lisp
r11556 r12790 445 445 (jmp-subprim .SPmakeu64)) 446 446 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 447 464 (defx86lapfunction %allocate-list ((initial-element arg_y) (nconses arg_z)) 448 465 (check-nargs 2)
Note: See TracChangeset
for help on using the changeset viewer.