Ignore:
Timestamp:
Dec 9, 2002, 12:27:16 PM (16 years ago)
Author:
landonf
Message:

Fix target run error checking

File:
1 edited

Legend:

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

    r1375 r1376  
    505505        }
    506506       
    507         if {[check_statefile target $name $target_state_fd]} {
     507        if {[check_statefile target $name $target_state_fd] && $result == 0} {
    508508            set result 0
    509509            ui_debug "Skipping completed $name ($portname)"
    510         } else {
     510        } elseif {$result == 0} {
    511511            # Execute pre-run procedure
    512512            if {[$this has prerun]} {
     
    964964                        eval \"proc proc-${ident}-${target} \{name\} \{ \n\
    965965                                if \{\\\[catch userproc-${ident}-${target} result\\\]\} \{ \n\
    966                                         ui_info \\\$result \n\
    967                                         return 1 \n\
     966                                        return -code error \\\$result \n\
    968967                                \} else \{ \n\
    969968                                        return 0 \n\
     
    978977                        eval \"proc proc-pre-${ident}-${target} \{name\} \{ \n\
    979978                                if \{\\\[catch userproc-pre-${ident}-${target} result\\\]\} \{ \n\
    980                                         ui_info \\\$result \n\
    981                                         return 1 \n\
     979                                        return -code error \\\$result \n\
    982980                                \} else \{ \n\
    983981                                        return 0 \n\
     
    990988                        eval \"proc proc-post-${ident}-${target} \{name\} \{ \n\
    991989                                if \{\\\[catch userproc-post-${ident}-${target} result\\\]\} \{ \n\
    992                                         ui_info \\\$result \n\
    993                                         return 1 \n\
     990                                        return -code error \\\$result \n\
    994991                                \} else \{ \n\
    995992                                        return 0 \n\
Note: See TracChangeset for help on using the changeset viewer.