mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Assembler: Cope with non-string port filenames.

Browse source 
Fixes <http://bugs.gnu.org/19354>.
Reported by Linas Vepstas <linasvepstas@gmail.com>.

* module/system/vm/assembler.scm (write-sources): Intern the filename
  only if it's a string.  (For sockets, the filename is a symbol).
This commit is contained in:
Mark H Weaver 2014-12-14 10:24:00 -05:00
parent 95de4f52a8
commit 015c3c08af
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/assembler.scm
View file

@ -2141,7 +2141,7 @@ procedure with label @var{rw-init}. @var{rw-init} may be false. If
;; Guile line and column numbers are 0-indexed, but
;; they are 1-indexed for DWARF.
(cons (list pc
(if file (intern-file file) 0)
(if (string? file) (intern-file file) 0)
(if line (1+ line))
(if col (1+ col)))
out))))