Changeset 12931

Timestamp:

Oct 8, 2009, 9:43:53 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/watchpoints/level-1/x86-trap-support.lisp (modified) (2 diffs)

branches/watchpoints/level-1/x86-trap-support.lisp

@@ -451 +451 @@
                       (allow ()
                         :report "Allow this write."
+                        :test (lambda (c)
+                                (declare (ignore c))
+                                (string= (subseq (x86-di-mnemonic insn) 0 3)
+                                         "mov"))
                         (let ((result nil)
                               (ptr (%int-to-ptr
@@ -462 +466 @@
                           (if result
                             (setq skip insn-length)
-                            (error "can't emulate this write"))))
+                            (error "couldn't emulate this write"))))
                       (ignore ()
                         :report "Ignore this write."