90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
+
+
+
+
-
-
-
-
|
for (idx = 0; idx < (sizeof(ret_list_items) / sizeof(ret_list_items[0])); idx++) {
Tcl_IncrRefCount(ret_list_items[idx]);
}
ret_list = Tcl_NewListObj(sizeof(ret_list_items) / sizeof(ret_list_items[0]), ret_list_items);
Tcl_IncrRefCount(ret_list);
Tcl_SetObjResult(interp, ret_list);
Tcl_DecrRefCount(ret_list);
for (idx = 0; idx < (sizeof(ret_list_items) / sizeof(ret_list_items[0])); idx++) {
Tcl_DecrRefCount(ret_list_items[idx]);
}
Tcl_SetObjResult(interp, ret_list);
Tcl_DecrRefCount(ret_list);
|