Overview
| Comment: | Fixed issue causing kit initialization failure when not boot strapping |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ede635a763cd2fbb8d22ae01ece3d079 |
| User & Date: | rkeene on 2010-09-26 04:45:08 |
| Other Links: | manifest | tags |
Context
|
2010-09-26
| ||
| 04:45 | KitCreator 0.3.4.x check-in: 3f98704439 user: rkeene tags: trunk, 0.3.4 | |
| 04:45 | Fixed issue causing kit initialization failure when not boot strapping check-in: ede635a763 user: rkeene tags: trunk | |
| 04:45 | Fixed result message for storage when not specified check-in: f71575204d user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [55f719fa55] to [87800da22f].
| ︙ | |||
106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 | 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | + + + + |
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
# include "zipvfs.tcl.h"
"catch {\n"
"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"
"}\n"
"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
"catch {\n"
"seek $::tclKitStorage_fd $sb(ino)\n"
"zip::Data $::tclKitStorage_fd sb s\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_ZIP */
"if {![info exists s]} {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
"uplevel #0 $s\n"
|
| ︙ |