improve string support

fix non-thread compilation.
2011-03-11 23:21:23 +00:00
parent d42db0dc5c
commit 0d6be2d858
12 changed files with 92 additions and 46 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -3498,14 +3498,14 @@ X_API int
 YAP_Erase(void *handle)
 {
  DBRecordList *dbr = (DBRecordList *)handle;
-  Yap_ReleaseTermFromDB(dbr->dbrecord);
  if (dbr->next_rec) 
    dbr->next_rec->prev_rec = dbr->prev_rec;
  if (dbr->prev_rec) 
-    dbr->next_rec->prev_rec = dbr->next_rec;
+    dbr->prev_rec->next_rec = dbr->next_rec;
  else if (Yap_Records == dbr) {
    Yap_Records = dbr->next_rec;
  }
+  Yap_ReleaseTermFromDB(dbr->dbrecord);
  Yap_FreeCodeSpace(handle);
  return 1;
 }