diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2023-05-19 12:02:49 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2023-05-19 12:02:49 (GMT) |
commit | b0f19e41f2c3e29950af3fb586b0f7a7f9112b2c (patch) | |
tree | b744be174ece6b694da314852f5e1143ba086c48 /generic/tclOOInt.h | |
parent | fea912c676a71b362b8c7d77e3f4242e374de1bb (diff) | |
parent | e47cbdc798e9744e9a89840e9ace30186872a762 (diff) | |
download | tcl-b0f19e41f2c3e29950af3fb586b0f7a7f9112b2c.zip tcl-b0f19e41f2c3e29950af3fb586b0f7a7f9112b2c.tar.gz tcl-b0f19e41f2c3e29950af3fb586b0f7a7f9112b2c.tar.bz2 |
merge core-8-branch
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index ed98af7..851623d 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -619,12 +619,12 @@ MODULE_SCOPE void TclOOSetupVariableResolver(Tcl_Namespace *nsPtr); /* * A variation where the array is an array of structs. There's no issue with * possible NULLs; every element of the array will be iterated over and the - * varable set to a pointer to each of those elements in turn. - * REQUIRES DECLARATION: int i; + * variable set to a pointer to each of those elements in turn. + * REQUIRES DECLARATION: int i; See [96551aca55] for more FOREACH_STRUCT details. */ #define FOREACH_STRUCT(var,ary) \ - for(i=0 ; var=&((ary).list[i]), i<(ary).num; i++) + if (i=0, (ary).num>0) for(; var=&((ary).list[i]), i<(ary).num; i++) /* * Convenience macros for iterating through hash tables. FOREACH_HASH_DECLS |