This is the mail archive of the insight-prs@sources.redhat.com mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: insight/34


The following reply was made to PR insight/34; it has been noted by GNATS.

From: Fernando Nasser <fnasser@cygnus.com>
To: TChick@virata.com, insight-gnats@sourceware.cygnus.com,
        nobody@sourceware.cygnus.com
Cc:  
Subject: Re: insight/34
Date: Fri, 06 Oct 2000 18:01:07 +0000

 http://sources.redhat.com/cgi-bin/gnatsweb.pl?cmd=view&pr=34&database=insight
 
 I checked fixes to this in the source repository yesterday (Oct 5th).
 Please update your sources or try the patches below.
 
 Please let us know if your problem is solved so we can close the PR.
 
 Thanks for reporting the problem so accurately.
 
 Regards,
 F.
 
 
 *** download.itb        Wed Oct  4 17:12:26 2000
 --- download.itb        Wed Oct  4 16:25:43 2000
 ***************
 *** 147,152 ****
 --- 147,153 ----
     global gdb_exe_name gdb_downloading gdb_loaded
     global gdb_target_name gdb_pretty_name
     global gdb_running
 +   global tcl_platform
     
     debug "exe=$gdb_exe_name downloading=$gdb_downloading"
     debug "    loaded=$gdb_loaded target=$gdb_target_name running=$gdb_running"
 ***************
 *** 185,191 ****
       }
     }
     
 !   if {! [file exists $gdb_exe_name]} {
       tk_messageBox -icon error -title GDB -type ok -modal task\
         -message "Request to download non-existent executable $gdb_exe_name"
       set gdb_downloading 0
 --- 186,197 ----
       }
     }
     
 !   if {[string compare $tcl_platform(platform) "windows"] == 0} {
 !     set f [ide_cygwin_path to_win32 $gdb_exe_name]
 !   } else {
 !     set f $gdb_exe_name
 !   }
 !   if {! [file exists $f]} {
       tk_messageBox -icon error -title GDB -type ok -modal task\
         -message "Request to download non-existent executable $gdb_exe_name"
       set gdb_downloading 0
 
 *** srctextwin.itb      Wed Oct  4 17:12:43 2000
 --- srctextwin.itb      Wed Oct  4 16:32:00 2000
 ***************
 *** 865,876 ****
   #                          has changed.
   # ------------------------------------------------------------------
   body SrcTextWin::_mtime_changed {filename} {
     set f [gdb_find_file $filename]
   
     if {$f == ""} {
       set r 1
     } else {
 !     set mtime [file mtime $f]
       if {![info exists Stwc($filename:mtime)]} {
         debug "no mtime. resetting to zero"
         set Stwc($filename:mtime) 0
 --- 865,885 ----
   #                          has changed.
   # ------------------------------------------------------------------
   body SrcTextWin::_mtime_changed {filename} {
 +   global tcl_platform
 + 
     set f [gdb_find_file $filename]
   
     if {$f == ""} {
       set r 1
     } else {
 !     if {[string compare $tcl_platform(platform) "windows"] == 0} {
 !       set f [ide_cygwin_path to_win32 $f]
 !     }
 !     if {[catch {file mtime $f} mtime]} {
 !       debug "Could not stat file \"$f\" - \"$mtime\""
 !       # The return code is not of much significance in this case
 !       return 1
 !     }
       if {![info exists Stwc($filename:mtime)]} {
         debug "no mtime. resetting to zero"
         set Stwc($filename:mtime) 0
 ***************
 *** 953,959 ****
       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
 --- 962,968 ----
       return
     }
     # no source; switch to assembly
 !   dbug W "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
 ***************
 *** 1206,1212 ****
       return 0
     } elseif {$result == 1 || $mtime_changed} {
       $win delete 0.0 end
 ! #    debug "READING $name"
       if {[catch {gdb_loadfile $win $name $Linenums} msg]} {
         dbug W "Error opening $name:  $msg"
         #if {$msg != ""} {
 --- 1215,1221 ----
       return 0
     } elseif {$result == 1 || $mtime_changed} {
       $win delete 0.0 end
 !     debug "READING $name"
       if {[catch {gdb_loadfile $win $name $Linenums} msg]} {
         dbug W "Error opening $name:  $msg"
         #if {$msg != ""} {
 ***************
 *** 2068,2074 ****
   #  METHOD:  mode_set - change the source mode
   # ------------------------------------------------------------------
   body SrcTextWin::mode_set {new_mode {go 1}} {
 ! #  debug "$new_mode"
   
     if {$new_mode != $current(mode)} {
   
 --- 2077,2083 ----
   #  METHOD:  mode_set - change the source mode
   # ------------------------------------------------------------------
   body SrcTextWin::mode_set {new_mode {go 1}} {
 !   debug "$new_mode"
   
     if {$new_mode != $current(mode)} {
   
 ***************
 *** 2510,2517 ****
 --- 2519,2528 ----
   # NOTES:      If you call this and a new widget is created which cannot be
   #             filled in later due to errors, call UnLoadFromCache.
   # -----------------------------------------------------------------------------
 + 
   body SrcTextWin::LoadFromCache {w name asm lib} {
     debug "LoadFromCache $w $name $asm"
 +   global tcl_platform
     upvar ${w}win win
     upvar _${w}pane pane
   
 ***************
 *** 2525,2531 ****
   
     set oldpane $pane
     if {[info exists Stwc($full_name:pane)]} {
 !     #debug "READING CACHE $full_name->$Stwc($full_name:pane)"
       set pane $Stwc($full_name:pane)
       if {$oldpane != ""} {
         $itk_interior.p replace $oldpane $pane
 --- 2536,2542 ----
   
     set oldpane $pane
     if {[info exists Stwc($full_name:pane)]} {
 !     debug "READING CACHE $full_name->$Stwc($full_name:pane)"
       set pane $Stwc($full_name:pane)
       if {$oldpane != ""} {
         $itk_interior.p replace $oldpane $pane
 ***************
 *** 2557,2564 ****
       # out.
   
       if {$loadingSource} {
 !       if {[catch {file mtime $name} file_time]} {
 !       debug "Could not stat file \"$name\" - \"$file_time\""
         return -1
         } else {
           set Stwc($full_name:pane) pane$filenum
 --- 2568,2580 ----
       # out.
   
       if {$loadingSource} {
 !       if {[string compare $tcl_platform(platform) "windows"] == 0} {
 !         set f [ide_cygwin_path to_win32 $name]
 !       } else {
 !         set f $name
 !       }
 !       if {[catch {file mtime $f} file_time]} {
 !       debug "Could not stat file \"$f\" - \"$file_time\""
         return -1
         } else {
           set Stwc($full_name:pane) pane$filenum
 
 
 
 
 
 
 
 
 
 
 
 -- 
 Fernando Nasser
 Red Hat Canada Ltd.                     E-Mail:  fnasser@cygnus.com
 2323 Yonge Street, Suite #300
 Toronto, Ontario   M4P 2C9

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]