improve indexing on floats

fix sending large lists to DB git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1692 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-09-20 20:03:51 +00:00
parent 07b2b76c48
commit 4ff41f7a62
16 changed files with 694 additions and 331 deletions
--- a/C/globals.c
+++ b/C/globals.c
@@ -709,6 +709,7 @@ CopyTermToArena(Term t, Term arena, UInt arity, Term *newarena, Term *att_arenap
    if (IsExtensionFunctor(f)) {
      switch((CELL)f) {
      case (CELL)FunctorDBRef:
+	CloseArena(oldH, oldHB, oldASP, newarena, old_size);
 	return t;
      case (CELL)FunctorLongInt:
 	if (H > ASP - (128+3)) {