projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Follow the changes in XMLTree API: xml_tree::subtree_elements() does
[SXSI/xpathcomp.git]
/
src
/
tree.ml
diff --git
a/src/tree.ml
b/src/tree.ml
index
ef2a082
..
f73e347
100644
(file)
--- a/
src/tree.ml
+++ b/
src/tree.ml
@@
-347,10
+347,10
@@
let rec iter_array_tag i a len tree node acc =
iter_array_tag (i+1) a len tree node
(acc - (tree_subtree_tags tree node a.(i)))
iter_array_tag (i+1) a len tree node
(acc - (tree_subtree_tags tree node a.(i)))
-external tree_subtree_elements : tree -> [`Tree] Node.t ->
tag_list ->
int = "caml_xml_tree_subtree_elements" "noalloc"
+external tree_subtree_elements : tree -> [`Tree] Node.t -> int = "caml_xml_tree_subtree_elements" "noalloc"
let subtree_elements t node =
let subtree_elements t node =
- tree_subtree_elements t.doc node
t.attribute_array
+ tree_subtree_elements t.doc node
(*
let subtree_elements t node =
let size = tree_subtree_size t.doc node - 1 in
(*
let subtree_elements t node =
let size = tree_subtree_size t.doc node - 1 in