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.
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
}
# 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
}