| #! /usr/bin/env perl |
| # Copyright (c) 2003-2005 The Regents of The University of Michigan |
| # All rights reserved. |
| # |
| # Redistribution and use in source and binary forms, with or without |
| # modification, are permitted provided that the following conditions are |
| # met: redistributions of source code must retain the above copyright |
| # notice, this list of conditions and the following disclaimer; |
| # redistributions in binary form must reproduce the above copyright |
| # notice, this list of conditions and the following disclaimer in the |
| # documentation and/or other materials provided with the distribution; |
| # neither the name of the copyright holders nor the names of its |
| # contributors may be used to endorse or promote products derived from |
| # this software without specific prior written permission. |
| # |
| # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
| # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
| # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
| # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
| # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
| # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
| # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
| # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| # |
| # Authors: Steve Reinhardt |
| |
| # Script to simplify using rundiff on trace outputs from two |
| # invocations of m5. |
| # |
| # Note that you need to enable some trace flags in the args in order |
| # to do anything useful! |
| # |
| # If you want to pass different arguments to the two instances of m5, |
| # you can embed them in the simulator arguments like this: |
| # |
| # % tracediff "m5.opt --foo:bar=1" "m5.opt --foo:bar=2" [common args] |
| # |
| |
| if (@ARGV < 2) { |
| die "Usage: tracediff sim1 sim2 [--trace:flags=X args...]\n"; |
| } |
| |
| # First two args are the two simulator binaries to compare |
| $sim1 = shift; |
| $sim2 = shift; |
| |
| # Everything else on the command line is taken to be an m5 argument to |
| # be given to both invocations |
| $simargs = '"' . join('" "', @ARGV) . '"'; |
| |
| # Redirect config output to cout so that gets diffed too (in case |
| # that's the source of the problem). |
| $simargs .= " --root:config_output_file=cout"; |
| |
| $cmd1 = "$sim1 $simargs --stats:text_file=tracediff-$$-1.stats 2>&1 |"; |
| $cmd2 = "$sim2 $simargs --stats:text_file=tracediff-$$-2.stats 2>&1 |"; |
| |
| # This only works if you have rundiff in your path. I just edit it |
| # with an explicit path if necessary. |
| $fullcmd = "rundiff '$cmd1' '$cmd2' 2>&1 > tracediff-$$.out"; |
| |
| print "Executing $fullcmd\n"; |
| system($fullcmd); |
| |
| |
| |