Changeset ed3716e in tol for toltcl/generic
- Timestamp:
- Oct 11, 2015, 9:56:21 PM (11 years ago)
- Branches:
- 1941-docker-image-to-test, devel, master
- Children:
- db5c687
- Parents:
- a716459
- File:
-
- 1 edited
-
toltcl/generic/tolaccess.cpp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
toltcl/generic/tolaccess.cpp
ra716459 red3716e 695 695 syn, indexes))) { 696 696 /* found!!! */ 697 indexes.AppendObject((void*)j); 697 intptr_t jCast = j; 698 indexes.AppendObject((void*)jCast); 698 699 return 1; 699 700 } … … 804 805 int last = indexes.GetLast(); 805 806 for(j = last; j >= 0; j--) 806 items[last+2-j] = Tcl_NewIntObj( long(*indexes._GetObject(j)));807 items[last+2-j] = Tcl_NewIntObj(intptr_t(*indexes._GetObject(j))); 807 808 Tcl_SetListObj(obj_result, indexes.GetSize()+2, items); 808 809 Tcl_Free((char*)items);
Note: See TracChangeset
for help on using the changeset viewer.
