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