Check-in [3bd068a425]
Overview
Comment:Fixed Mk4tcl compiling issue
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:3bd068a4255779d58de01e0ab81504430fdeedc0
User & Date: rkeene on 2013-09-30 06:08:33
Other Links: manifest | tags
Context
2013-09-30
06:24
Added initial support for Win64-amd64 nightly builds check-in: 9ef1199acb user: rkeene tags: trunk
06:08
Fixed Mk4tcl compiling issue check-in: 3bd068a425 user: rkeene tags: trunk
2013-09-29
23:17
Added file "tclkit.ico" to VFS check-in: 079f112af3 user: rkeene tags: trunk
Changes

Added mk4tcl/patches/all/metakit-2.4.9.7-fix64bitfilespace.diff version [f7a1c0ce58].

            1  +diff -uNr metakit-2.4.9.7.orig/tcl/mk4tcl.cpp metakit-2.4.9.71fix64bitfilespace/tcl/mk4tcl.cpp
            2  +--- metakit-2.4.9.7.orig/tcl/mk4tcl.cpp	2007-06-18 16:05:24.000000000 -0500
            3  ++++ metakit-2.4.9.7-fix64bitfilespace/tcl/mk4tcl.cpp	2013-09-30 01:02:52.745003499 -0500
            4  +@@ -1911,7 +1911,11 @@
            5  +         // now return the values as a list
            6  +         Tcl_Obj *r = tcl_GetObjResult();
            7  +         for (int i = 1; i < a->GetSize() - 1 && !_error; ++i)
            8  ++#ifdef TCL_WIDE_INT_TYPE
            9  ++          tcl_ListObjAppendElement(r, Tcl_NewWideIntObj((Tcl_WideInt)a->GetAt(i)));
           10  ++#else
           11  +           tcl_ListObjAppendElement(r, Tcl_NewLongObj((long)a->GetAt(i)));
           12  ++#endif  
           13  +         return _error;
           14  +       }
           15  +   }