diff --git a/gas/ChangeLog b/gas/ChangeLog
index 8425bc60fd..3adaae7499 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-22  H.J. Lu <hjl@gnu.org>
+
+	* dwarf2dbg.c (dwarf2_directive_loc): Call listing_source_file
+	for source file.
+
 2002-05-22  Nick Clifton  <nickc@cambridge.redhat.com>
 
 	* config/tc-arm.c (arm_s_section): Enable for COFF builds as well
diff --git a/gas/dwarf2dbg.c b/gas/dwarf2dbg.c
index 608d7f60b8..94d9f7972c 100644
--- a/gas/dwarf2dbg.c
+++ b/gas/dwarf2dbg.c
@@ -428,7 +428,10 @@ dwarf2_directive_loc (dummy)
 
 #ifndef NO_LISTING
   if (listing)
-    listing_source_line (line);
+    {
+      listing_source_file (files[filenum].filename);
+      listing_source_line (line);
+    }
 #endif
 }