CAMLlocal1(str);
uchar* txt = XMLTREE(tree)->GetText((DocID) Int_val(id));
str = caml_copy_string((const char*)txt);
- delete (txt);
CAMLreturn (str);
}
extern "C" CAMLprim value caml_text_collection_get_cached_text(value tree, value id){
CAMLparam2(tree,id);
CAMLlocal1(str);
- char* txt = (char*) XMLTREE(tree)->GetCachedText((DocID) Int_val(id));
+ char* txt = (char*) XMLTREE(tree)->GetText((DocID) Int_val(id));
str = caml_copy_string(txt);
- free(txt);
CAMLreturn (str);
}