242 |
{ |
{ |
243 |
procedure (save_write_case_func, t); |
procedure (save_write_case_func, t); |
244 |
save_trns_free (&t->h); |
save_trns_free (&t->h); |
245 |
|
free(t); |
246 |
return CMD_SUCCESS; |
return CMD_SUCCESS; |
247 |
} |
} |
248 |
else |
else |
550 |
|
|
551 |
procedure (export_write_case_func, proc); |
procedure (export_write_case_func, proc); |
552 |
export_proc_free (proc); |
export_proc_free (proc); |
553 |
|
free (proc); |
554 |
|
|
555 |
return CMD_SUCCESS; |
return CMD_SUCCESS; |
556 |
|
|
557 |
error: |
error: |
558 |
dict_destroy (dict); |
dict_destroy (dict); |
559 |
export_proc_free (proc); |
export_proc_free (proc); |
560 |
|
free (proc); |
561 |
return CMD_FAILURE; |
return CMD_FAILURE; |
562 |
} |
} |
563 |
|
|
1626 |
for (i = 0; i < var_cnt; i++) |
for (i = 0; i < var_cnt; i++) |
1627 |
{ |
{ |
1628 |
struct variable *v = dict_get_var (d, i); |
struct variable *v = dict_get_var (d, i); |
1629 |
int src_fv = *(int *) var_detach_aux (v); |
int *src_fv = (int *) var_detach_aux (v); |
1630 |
size_t idx; |
size_t idx; |
1631 |
|
|
1632 |
if (v->fv != src_fv) |
if (v->fv != *src_fv) |
1633 |
identity_map = 0; |
identity_map = 0; |
1634 |
|
|
1635 |
for (idx = 0; idx < v->nv; idx++) |
for (idx = 0; idx < v->nv; idx++) |
1636 |
{ |
{ |
1637 |
int src_idx = src_fv + idx; |
int src_idx = *src_fv + idx; |
1638 |
int dst_idx = v->fv + idx; |
int dst_idx = v->fv + idx; |
1639 |
|
|
1640 |
assert (map->map[dst_idx] == -1); |
assert (map->map[dst_idx] == -1); |
1641 |
map->map[dst_idx] = src_idx; |
map->map[dst_idx] = src_idx; |
1642 |
} |
} |
1643 |
|
free (src_fv); |
1644 |
} |
} |
1645 |
|
|
1646 |
if (identity_map) |
if (identity_map) |