Update get_host_platform.tcl