Changeset 12931


Ignore:
Timestamp:
Oct 9, 2009, 4:43:53 AM (10 years ago)
Author:
rme
Message:

Only show the ALLOW restart when we think we can emulate the write.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/watchpoints/level-1/x86-trap-support.lisp

    r12907 r12931  
    451451                      (allow ()
    452452                        :report "Allow this write."
     453                        :test (lambda (c)
     454                                (declare (ignore c))
     455                                (string= (subseq (x86-di-mnemonic insn) 0 3)
     456                                         "mov"))
    453457                        (let ((result nil)
    454458                              (ptr (%int-to-ptr
     
    462466                          (if result
    463467                            (setq skip insn-length)
    464                             (error "can't emulate this write"))))
     468                            (error "couldn't emulate this write"))))
    465469                      (ignore ()
    466470                        :report "Ignore this write."
Note: See TracChangeset for help on using the changeset viewer.