16 lines
407 B
Tcl
16 lines
407 B
Tcl
proc merge_phase { prefix } {
|
|
set pattern $prefix
|
|
append pattern "_*"
|
|
set dumps [glob $pattern ]
|
|
foreach f $dumps {
|
|
lappend input -in $f
|
|
}
|
|
#layout filemerge $input -out dump_merged.oas -smartdiff -mode append
|
|
eval "layout filemerge $input -out dump_merged_$prefix.oas -smartdiff -mode append"
|
|
}
|
|
|
|
merge_phase phase0
|
|
merge_phase phase1
|
|
merge_phase phase2
|
|
merge_phase phase3
|