URL
                    https://opencores.org/ocsvn/openrisc/openrisc/trunk
                
             
            
            
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
   
    
      
         | Rev 90 | 
         Rev 93 | 
      
    
    
      
        | Line 64... | 
        Line 64... | 
      
      
         
  | 
         
  | 
      
      
        #       send_user "matching |$matchstr|\n";
  | 
        #       send_user "matching |$matchstr|\n";
  | 
      
      
         
  | 
         
  | 
      
      
                expect {
  | 
                expect {
  | 
      
      
         
  | 
         
  | 
      
      
           | 
                    $matchstr {
  | 
      
      
           | 
                        # String to match. Silently accept. Do first, so we can match
  | 
      
      
           | 
                        # specific warnings or errors if desired
  | 
      
      
           | 
                    }
  | 
      
      
           | 
         
  | 
      
      
                    -re "Warning" {
  | 
                    -re "Warning" {
  | 
      
      
                        fail "$testname: warning: $expect_out(buffer)";
  | 
                        fail "$testname: warning: $expect_out(buffer)";
  | 
      
      
                        return
  | 
                        return
  | 
      
      
                    }
  | 
                    }
  | 
      
      
         
  | 
         
  | 
      
      
                    -re "ERROR" {
  | 
                    -re "ERROR" {
  | 
      
      
                        fail "$testname: error: $expect_out(buffer)";
  | 
                        fail "$testname: error: $expect_out(buffer)";
  | 
      
      
                        return
  | 
                        return
  | 
      
      
                    }
  | 
                    }
  | 
      
      
         
  | 
         
  | 
      
      
                    $matchstr {
  | 
           | 
      
      
                        # String to match. Silently accept
  | 
           | 
      
      
                    }
  | 
           | 
      
      
         
  | 
           | 
      
      
                    eof {
  | 
                    eof {
  | 
      
      
                        fail "$testname: hit EOF seeking match line $match_line";
  | 
                        fail "$testname: hit EOF seeking match line $match_line";
  | 
      
      
                        return
  | 
                        return
  | 
      
      
                    }
  | 
                    }
  | 
      
      
         
  | 
         
  | 
      
    
   
 
 
         
                
        
            
            
        
        
             
    
        © copyright 1999-2025
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.