From: fnasser <fnasser>
Date: Tue, 8 Aug 2000 22:24:26 +0000 (+0000)
Subject: 2000-08-08  Fernando Nasser  <fnasser@cygnus.com>
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=5b0cadd0f0860298ef6a591d7676e4988b5d4de7;p=pf3gnuchains%2Fpf3gnuchains3x.git

2000-08-08  Fernando Nasser  <fnasser@cygnus.com>

	* srctxtwin.itb (FillSource): Add comments.
---

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 8530112722..8a86f0fd31 100644
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -1,5 +1,9 @@
 2000-08-08  Fernando Nasser  <fnasser@cygnus.com>
 
+	* srctxtwin.itb (FillSource): Add comments.
+
+2000-08-08  Fernando Nasser  <fnasser@cygnus.com>
+
 	* srctxtwin.itb (LoadFromCache): Do not cache if cannot stat the file.
 	This lead to problems trying to access a incomplete cache entry later.
 
diff --git a/gdb/gdbtk/library/srctextwin.itb b/gdb/gdbtk/library/srctextwin.itb
index 2c209f15e8..b6a94244af 100644
--- a/gdb/gdbtk/library/srctextwin.itb
+++ b/gdb/gdbtk/library/srctextwin.itb
@@ -901,12 +901,17 @@ body SrcTextWin::FillSource {w tagname filename funcname line addr pc_addr lib}
       if {![LoadFile $w $filename $lib $mtime]} {
 	# failed to find source file
 	dbug W "Changing to ASSEMBLY"
+	
+	# We have to update this data here (it is also done by the caller)
+	# because we want to call mode, which calls mode_set, which calls
+	# location using these values.
 	set current(line) $line
 	set current(tag) $tagname
 	set current(addr) $addr
 	set current(funcname) $funcname
 	set current(filename) $filename
 	set current(lib) $lib
+	
 	set oldmode SOURCE
 	$parent mode "" ASSEMBLY
 	return
@@ -943,12 +948,17 @@ body SrcTextWin::FillSource {w tagname filename funcname line addr pc_addr lib}
   }
   # no source; switch to assembly
 #  debug "no source file; switch to assembly"
+  
+  # We have to update this data here (it is also done by the caller)
+  # because we want to call mode, which calls mode_set, which calls
+  # location using these values.
   set current(line) $line
   set current(tag) $tagname
   set current(addr) $addr
   set current(funcname) $funcname
   set current(filename) $filename
   set current(lib) $lib
+
   set oldmode $current(mode)
   $parent mode "" ASSEMBLY
 }