[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Assembler: Cope with non-string port filenames.
From: |
Mark H. Weaver |
Subject: |
[Guile-commits] 01/01: Assembler: Cope with non-string port filenames. |
Date: |
Sun, 14 Dec 2014 15:30:48 +0000 |
mhw pushed a commit to branch master
in repository guile.
commit 015c3c08af2064145d423cef0d94f04069c3e87e
Author: Mark H Weaver <address@hidden>
Date: Sun Dec 14 10:24:00 2014 -0500
Assembler: Cope with non-string port filenames.
Fixes <http://bugs.gnu.org/19354>.
Reported by Linas Vepstas <address@hidden>.
* module/system/vm/assembler.scm (write-sources): Intern the filename
only if it's a string. (For sockets, the filename is a symbol).
---
module/system/vm/assembler.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 97eade6..3d277ad 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -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))))