diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2015-07-17 14:31:05 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2015-07-17 14:31:05 +0000 |
| commit | 860c670848440f791d1b9c68a1ace8fb629da234 (patch) | |
| tree | 6b856e6a04cf876221c6740e8df75a8778a3b8b7 /byterun/callback.c | |
| parent | 7fdba8f53360d9355dc96953a0d8225e111ab722 (diff) | |
| download | ocaml-860c670848440f791d1b9c68a1ace8fb629da234.tar.gz | |
merge branch 4.02 from 4.02.1 (rev 15540) to a few fixes after 4.02.2 (rev 16205)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16214 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/callback.c')
| -rw-r--r-- | byterun/callback.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/byterun/callback.c b/byterun/callback.c index bb149d7019..3010985162 100644 --- a/byterun/callback.c +++ b/byterun/callback.c @@ -245,3 +245,14 @@ CAMLexport value * caml_named_value(char const *name) } return NULL; } + +CAMLexport void caml_iterate_named_values(caml_named_action f) +{ + int i; + for(i = 0; i < Named_value_size; i++){ + struct named_value * nv; + for (nv = named_value_table[i]; nv != NULL; nv = nv->next) { + f( &nv->val, nv->name ); + } + } +} |