diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tries module: fix bug in trie_traverse/2

Browse Source
This commit is contained in:
Ricardo Rocha 2010-02-24 18:03:43 +00:00
parent eab72f6ab7
commit 5d0e404191
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/tries.yap
View File

@ -50,5 +50,4 @@ trie_dup(Trie, CopyTrie) :-
trie_join(CopyTrie, Trie). trie_join(CopyTrie, Trie).
trie_traverse(Trie, Ref) :- trie_traverse(Trie, Ref) :-
trie_get_first_entry(Trie, InitRef), trie_traverse(Trie, 0, Ref).
(Ref = InitRef ; trie_traverse(Trie, InitRef, Ref)).

4
library/tries/base_tries.c
View File

@ -189,7 +189,11 @@ inline
TrData trie_traverse_init(TrEntry trie, TrData init_data) { TrData trie_traverse_init(TrEntry trie, TrData init_data) {
TrData data; TrData data;
if (init_data) {
data = TrData_next(init_data); data = TrData_next(init_data);
} else {
data = TrEntry_first_data(trie);
}
TrEntry_traverse_data(trie) = data; TrEntry_traverse_data(trie) = data;
return data; return data;
} }