static function rename
This commit is contained in:
parent
6458fdc5bd
commit
8eaada23f0
|
|
@ -2484,6 +2484,21 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
|
|||
if(!strcmp(argv[1],"test"))
|
||||
{
|
||||
cmd_found = 1;
|
||||
/* {
|
||||
xRect boundbox;
|
||||
rebuild_selected_array();
|
||||
calc_drawing_bbox(&boundbox, 1);
|
||||
xctx->movelastsel = xctx->lastsel;
|
||||
xctx->x1=boundbox.x1;
|
||||
xctx->y_1=boundbox.y1;
|
||||
xctx->rotatelocal=0;
|
||||
xctx->move_flip = 1;
|
||||
xctx->move_rot = 0;
|
||||
xctx->ui_state|=STARTCOPY;
|
||||
xctx->deltax = 5000.0;
|
||||
xctx->deltay = 5000.0;
|
||||
copy_objects(END);
|
||||
} */
|
||||
}
|
||||
|
||||
else if(!strcmp(argv[1],"toggle_colorscheme"))
|
||||
|
|
|
|||
|
|
@ -108,13 +108,13 @@ static struct inst_hashentry *inst_hash_lookup(char *token, int value, int what,
|
|||
}
|
||||
}
|
||||
|
||||
static struct inst_hashentry *inst_free_hash_entry(struct inst_hashentry *entry)
|
||||
static struct inst_hashentry *inst_hash_free_entry(struct inst_hashentry *entry)
|
||||
{
|
||||
struct inst_hashentry *tmp;
|
||||
while( entry ) {
|
||||
tmp = entry -> next;
|
||||
my_free(970, &(entry->token));
|
||||
dbg(3, "inst_free_hash_entry(): removing entry %lu\n", (unsigned long)entry);
|
||||
dbg(3, "inst_hash_free_entry(): removing entry %lu\n", (unsigned long)entry);
|
||||
my_free(971, &entry);
|
||||
entry = tmp;
|
||||
}
|
||||
|
|
@ -128,7 +128,7 @@ static void inst_hash_free(void) /* remove the whole hash table */
|
|||
dbg(1, "inst_hash_free(): removing hash table\n");
|
||||
for(i=0;i<HASHSIZE;i++)
|
||||
{
|
||||
xctx->inst_table[i] = inst_free_hash_entry( xctx->inst_table[i] );
|
||||
xctx->inst_table[i] = inst_hash_free_entry( xctx->inst_table[i] );
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -351,7 +351,7 @@ tclcommand="
|
|||
update ;# allow event loop to come in (update screen, user input etc)
|
||||
incr count
|
||||
if \{$count>100 || $tclstop == 1\} break
|
||||
puts \\"simulating: loop $count\\"
|
||||
# puts \\"simulating: loop $count\\"
|
||||
xschem logic_set $logic_value
|
||||
after $duration
|
||||
set logic_value [expr !$logic_value]
|
||||
|
|
|
|||
Loading…
Reference in New Issue