Tcl Source Code

Check-in [5ed1c2b366]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix clang warning: tclWinTime.c:84:6: error: suggest braces around initialization of subobject [-Werror,-Wmissing-braces] {0, 0}, ^~~~ { }
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | main
Files: files | file ages | folders
SHA3-256: 5ed1c2b3664bb1c52005370287aaeb2485dd0e3036844c3d3649640d1dff9171
User & Date: jan.nijtmans 2024-04-27 17:30:09
Context
2024-04-28
17:18
Remove outdated comment check-in: 097ebd1f35 user: jan.nijtmans tags: trunk, main
2024-04-27
17:30
Fix clang warning: tclWinTime.c:84:6: error: suggest braces around initialization of subobject [-Wer... check-in: 5ed1c2b366 user: jan.nijtmans tags: trunk, main
17:26
Fix clang warning: tclWinTime.c:84:6: error: suggest braces around initialization of subobject [-Wer... check-in: 240572962a user: jan.nijtmans tags: core-8-branch
17:11
This construct doens't work on MSVC check-in: 6c824b0137 user: jan.nijtmans tags: trunk, main
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/stringObj.test.

162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
} {11 17 ab34567890x}
test stringObj-6.8 {Tcl_AppendStringsToObj procedure, object totally empty} testobj {
    testobj freeallvars
    testobj newobj 1
    teststringobj appendstrings 1 {}
    list [teststringobj length2 1] [teststringobj get 1]
} {0 {}}
test stringObj-6.9 {Tcl_AppendStringToObj, pure unicode} testobj {
    testobj freeallvars
    teststringobj set2 1 [string replace abc 1 1 d]
    teststringobj appendstrings 1 foo bar soom
    teststringobj get 1
} adcfoobarsoom

test stringObj-7.1 {SetStringFromAny procedure} testobj {







|







162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
} {11 17 ab34567890x}
test stringObj-6.8 {Tcl_AppendStringsToObj procedure, object totally empty} testobj {
    testobj freeallvars
    testobj newobj 1
    teststringobj appendstrings 1 {}
    list [teststringobj length2 1] [teststringobj get 1]
} {0 {}}
test stringObj-6.9 {Tcl_AppendStringsToObj, pure unicode} testobj {
    testobj freeallvars
    teststringobj set2 1 [string replace abc 1 1 d]
    teststringobj appendstrings 1 foo bar soom
    teststringobj get 1
} adcfoobarsoom

test stringObj-7.1 {SetStringFromAny procedure} testobj {

Changes to win/tclWinTime.c.

77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#if defined(HAVE_CAST_TO_UNION) && !defined(__cplusplus)
    (LARGE_INTEGER) (long long) 0,
    (ULARGE_INTEGER) (DWORDLONG) 0,
    (LARGE_INTEGER) (long long) 0,
    (LARGE_INTEGER) (long long) 0,
    (LARGE_INTEGER) (long long) 0,
#else
    {0, 0},
    {0, 0},
    {0, 0},
    {0, 0},
    {0, 0},
#endif
    { 0 },
    { 0 },
    0
};

/*







|
|
|
|
|







77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#if defined(HAVE_CAST_TO_UNION) && !defined(__cplusplus)
    (LARGE_INTEGER) (long long) 0,
    (ULARGE_INTEGER) (DWORDLONG) 0,
    (LARGE_INTEGER) (long long) 0,
    (LARGE_INTEGER) (long long) 0,
    (LARGE_INTEGER) (long long) 0,
#else
    {{0, 0}},
    {{0, 0}},
    {{0, 0}},
    {{0, 0}},
    {{0, 0}},
#endif
    { 0 },
    { 0 },
    0
};

/*