mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

'frame-matcher' doesn't crash when the last IP is unknown.

Browse source 
This fixes a bug when using ",break":

  system/vm/traps.scm:127:31: system/vm/traps.scm:127:31: In procedure <: Wrong type: #f

* module/system/vm/traps.scm (frame-matcher): Check whether END is
true.
This commit is contained in:
Ludovic Courtès 2017-10-25 10:46:25 -07:00
parent a74d4ee4f6
commit bf060d2aff
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/vm/traps.scm
View file

@ -1,6 +1,6 @@
;;; Traps: stepping, breakpoints, and such. ;;; Traps: stepping, breakpoints, and such.
;; Copyright (C) 2010, 2012, 2013, 2014 Free Software Foundation, Inc. ;; Copyright (C) 2010, 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
;;; This library is free software; you can redistribute it and/or ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; modify it under the terms of the GNU Lesser General Public
@ -124,7 +124,8 @@
(end (program-last-ip proc))) (end (program-last-ip proc)))
(lambda (frame) (lambda (frame)
(let ((ip (frame-instruction-pointer frame))) (let ((ip (frame-instruction-pointer frame)))
(and (<= start ip) (< ip end)))))) (and (<= start ip)
end (< ip end))))))
((struct? proc) ((struct? proc)
(frame-matcher (procedure proc))) (frame-matcher (procedure proc)))
(else (else