Eco Auto

proc is_hvt {ref} {
if {[string match "*_HVT" $ref]} {
return 1
} else {return 0}
}
proc is_lvt {ref} {
if {[string match "*_LVT" $ref]} {
return 1
} else {return 0}
}
proc is_svt {ref} {
if {![is_hvt $ref] && ![is_lvt $ref]} {
return 1
} else {return 0}
}

proc get_lvt {ref} {
if {[is_hvt $ref]} {
return [string map {"HVT" "LVT"} $ref]
} elseif {[is_svt $ref]} {
return "${ref}_LVT"
} else {
return $ref
}
}

#set endp oc8051_dptr1_data_hi_reg_7_/D

proc eco_auto_fix_setup_on_one_path {path} {
set points [get_attri $path points]
foreach_in_coll point $points {
set obj [get_attri $point object]
set dir [get_attri $obj direction]
if {$dir=="in"} {continue}
set objn [get_attri $obj full_name]
set inst [file dir $objn]
set cell [get_cells $inst]
set isseq [get_attri $cell is_sequential]
if {$isseq=="true"} {continue}
set ref [get_attri $cell ref_name]
echo "$ref \t $inst"
if {[is_lvt $ref]} {continue}
set lvt [get_lvt $ref]
size_cell $inst $lvt
set ::SIZE_FLAG 1
}
}
proc eco_auto_fix_setup_to_endp {endp} {
set path [get_timing_paths -to $endp -group reg2reg]
set slk [get_attri $path slack]
set ::SIZE_FLAG 1
while {$slk<0 && $::SIZE_FLAG==1} {
set ::SIZE_FLAG 0
eco_auto_fix_setup_on_one_path $path
set path [get_timing_paths -to $endp -group reg2reg]
set slk [get_attri $path slack]
}
echo "#break loop."
echo "#slk = $slk, SIZE_FLAG = \ $::SIZE_FLAG"
}