/[dejagnu]/dejagnu/lib/remote.exp
ViewVC logotype

Diff of /dejagnu/lib/remote.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by rsavoye, Wed Feb 27 05:33:07 2002 UTC revision 1.6 by rsavoye, Thu Mar 7 05:12:59 2002 UTC
# Line 1067  proc standard_wait { dest timeout } { Line 1067  proc standard_wait { dest timeout } {
1067    
1068  proc check_for_board_status  { variable } {  proc check_for_board_status  { variable } {
1069      upvar $variable output;      upvar $variable output;
1070        
1071       # If all programs of this board have a wrapper that always outputs a      # If all programs of this board have a wrapper that always outputs a
1072       # status message, then the absence of it means that the program      # status message, then the absence of it means that the program
1073       # crashed, regardless of status found elsewhere (e.g. simulator exit      # crashed, regardless of status found elsewhere (e.g. simulator exit
1074       # code).      # code).
1075       if { [target_info needs_status_wrapper] != "" } then {        if { [target_info needs_status_wrapper] != "" } then {  
1076         set nomatch_return 2           set nomatch_return 2  
1077       } else {      } else {
1078         set nomatch_return -1         set nomatch_return -1
1079       }      }
1080    
1081      if [regexp "(^|\[\r\n\])\\*\\*\\* EXIT code" $output] {      if [regexp "(^|\[\r\n\])\\*\\*\\* EXIT code" $output] {
1082          regsub "^.*\\*\\*\\* EXIT code " $output "" result;          regsub "^.*\\*\\*\\* EXIT code " $output "" result;
# Line 1087  proc check_for_board_status  { variable Line 1087  proc check_for_board_status  { variable
1087          verbose "got board status $result" 3          verbose "got board status $result" 3
1088          verbose "output is $output" 3          verbose "output is $output" 3
1089          if { $result == "" } {          if { $result == "" } {
1090              return $nomatch_return;              return $nomatch_return
1091          } else {          } else {
1092              return [expr $result];              return [expr $result]
1093          }          }
1094      } else {      } else {
1095          return $nomatch_return;          return $nomatch_return;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26