From c52d7a182cb45c7018cf72c261d738746243d07f Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 7 Dec 2012 08:06:45 +0000
Subject: [PATCH] fix memory leak in foreign code handling

---
 C/load_dl.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/C/load_dl.c b/C/load_dl.c
index 6d6046219..f172e78b2 100755
--- a/C/load_dl.c
+++ b/C/load_dl.c
@@ -191,21 +191,27 @@ Yap_ShutdownLoadForeign(void)
 
   f_code = ForeignCodeLoaded;
   while (f_code != NULL) {
-    StringList objs, libs;
+    StringList objs, libs, old;
+    ForeignObj *of_code = f_code;
 
     objs = f_code->objs;
     while (objs != NULL) {
+      old = objs;
       if (dlclose(objs->handle) != 0)
       	return; /* ERROR */
       objs = objs->next;
+      Yap_FreeCodeSpace(old);
     }
     libs = f_code->libs;
     while (libs != NULL) {
+      old = libs;
       if (dlclose(libs->handle) != 0)
 	return; /* ERROR */
-      objs = libs->next;
+      libs = libs->next;
+      Yap_FreeCodeSpace(old);
     }
     f_code = f_code->next;
+    Yap_FreeCodeSpace((ADDR)of_code);
   }
   /*
     make sure that we don't try to close foreign code several times, eg,