Ignore:
Timestamp:
Oct 3, 2002, 12:15:56 AM (16 years ago)
Author:
kevin
Message:

Print error messages in target_run.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r835 r900  
    653653       
    654654                if {[$this has init]} {
    655                         set result [catch {[$this get init] $name}]
     655                        set result [catch {[$this get init] $name} errstr]
    656656                }
    657657                               
     
    662662                        # Execute pre-run procedure
    663663                        if {[$this has prerun]} {
    664                                 set result [catch {[$this get prerun] $name}]
     664                                set result [catch {[$this get prerun] $name} errstr]
    665665                        }
    666666
     
    668668                                foreach pre [$this get pre] {
    669669                                        ui_debug "Executing $pre"
    670                                         set result [catch {$pre $name}]
     670                                        set result [catch {$pre $name} errstr]
    671671                                        if {$result != 0} { break }
    672672                                }
     
    675675                        if {$result == 0} {
    676676                                ui_debug "Executing $name ($portname)"
    677                                 set result [catch {$procedure $name}]
     677                                set result [catch {$procedure $name} errstr]
    678678                        }
    679679                       
     
    681681                                foreach post [$this get post] {
    682682                                        ui_debug "Executing $post"
    683                                         set result [catch {$post $name}]
     683                                        set result [catch {$post $name} errstr]
    684684                                        if {$result != 0} { break }
    685685                                }
     
    689689                                set postrun [$this get postrun]
    690690                                ui_debug "Executing $postrun"
    691                                 set result [catch {$postrun $name}]
     691                                set result [catch {$postrun $name} errstr]
    692692                        }
    693693                }
     
    697697                        }
    698698                } else {
    699                         ui_error "Target error: $name returned $result"
     699                        ui_error "Target error: $name returned $errstr"
    700700                        set result 1
    701701                }
Note: See TracChangeset for help on using the changeset viewer.