projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use attribute force_align_arg_pointer only for architectures where it
[SXSI/xpathcomp.git]
/
src
/
tree.ml
diff --git
a/src/tree.ml
b/src/tree.ml
index
31e2f79
..
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
@@
-809,3
+809,6
@@
Largest tag id: %i@\n@?"
;;
*)
;;
*)
+
+type tree_pointer = tree
+let get_tree_pointer x = x.doc