tclapi: Remove unused -bool flag from get_param and document -[su]int

This commit is contained in:
Jannis Harder 2024-12-03 18:59:52 +01:00
parent cac6dd9bcb
commit 81de54f436
1 changed files with 2 additions and 3 deletions

View File

@ -430,20 +430,19 @@ static int tcl_set_attr(ClientData, Tcl_Interp *interp, int objc, Tcl_Obj *const
static int tcl_get_param(ClientData, Tcl_Interp *interp, int argc, const char *argv[]) static int tcl_get_param(ClientData, Tcl_Interp *interp, int argc, const char *argv[])
{ {
int i; int i;
bool string_flag = false, bool_flag = false; bool string_flag = false;
bool int_flag = false, sint_flag = false, uint_flag = false; bool int_flag = false, sint_flag = false, uint_flag = false;
for (i = 1; i < argc; i++) { for (i = 1; i < argc; i++) {
FLAG(string) FLAG(string)
FLAG(int) FLAG(int)
FLAG(sint) FLAG(sint)
FLAG(uint) FLAG(uint)
FLAG(bool)
break; break;
} }
if ((i != argc - 3) || if ((i != argc - 3) ||
(string_flag + int_flag > 1)) (string_flag + int_flag > 1))
ERROR("bad usage: expected \"get_param [-string|-int] <module> <cellid> <paramname>") ERROR("bad usage: expected \"get_param [-string|-int|-sint|-uint] <module> <cellid> <paramname>")
IdString mod_id, cell_id, param_id; IdString mod_id, cell_id, param_id;
mod_id = RTLIL::escape_id(argv[i++]); mod_id = RTLIL::escape_id(argv[i++]);