tcl: icepick: add icepick_d_set_coreid