Mercurial > pygar

comparison scripts/setup-mit-6.375-bmark-audio-core @ 40:7ac38b0f93fa pygar svn.41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r41] made perl build script automatically generate program.vmh
author rlm
date Tue, 04 May 2010 19:53:09 -0400
parents 1a21b4cd85ee
children 97d1959f7c5c
comparison
equal deleted inserted replaced
39:5a30f173bbac 40:7ac38b0f93fa
102 } 102 }
103 103
104 my $dst_prog = basename($src_prog); 104 my $dst_prog = basename($src_prog);
105 105
106 unlink($dst_prog); 106 unlink($dst_prog);
107
108 print "\n\nRLM: putting $src_prog in $dst_prog, and also program.vmh\n";
109
107 symlink($src_prog, $dst_prog) or ErrorExit("Failed to symlink $dst_prog => $src_prog"); 110 symlink($src_prog, $dst_prog) or ErrorExit("Failed to symlink $dst_prog => $src_prog");
108 111 symlink($src_prog, "program.vmh") or ErrorExit("Failed to symlink $dst_prog => $src_prog");
112
109 # Copy input data files 113 # Copy input data files
110 if (defined($data)) { 114 if (defined($data)) {
111 # No trailing slash. Just link to a single object 115 # No trailing slash. Just link to a single object
112 116
113 117
174 if ($numContexts != 0) { 178 if ($numContexts != 0) {
175 print ENV "workloadContexts=\"${numContexts}\"\n"; 179 print ENV "workloadContexts=\"${numContexts}\"\n";
176 } 180 }
177 if (defined($compare)) { 181 if (defined($compare)) {
178 print ENV "compare=\"${compare}\"\n"; 182 print ENV "compare=\"${compare}\"\n";
183 #print ENV "compare=\"ls\"\n";
179 } 184 }
180 close(ENV); 185 close(ENV);
181 186
182 # Set up m5 environment 187 # Set up m5 environment
183 if ($feeder eq 'm5') { 188 if ($feeder eq 'm5') {