klisp

commit 64398900ac1286a80942d404cb9c9cb5e957f690
parent b8a3e2ab88cfe9d161718fcb789fc59dac9049ec
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat, 23 Apr 2011 13:32:23 -0300

Added code to gc to handle bigrats.

Diffstat:
M
src/kgc.c
 | 
12
+++++++++---

1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/src/kgc.c b/src/kgc.c
@@ -90,8 +90,9 @@ static void reallymarkobject (klisp_State *K, GCObject *o)
 	return;
     }
 #endif
+    case K_TBIGRAT: /* the n & d are copied in the bigrat, not pointed to */
     case K_TBIGINT:
-	gray2black(o);  /* bigint are never gray */
+	gray2black(o);  /* bigint & bigrats are never gray */
 	break;
     case K_TPAIR:
     case K_TSYMBOL:
@@ -234,7 +235,8 @@ static int32_t propagatemark (klisp_State *K) {
     uint8_t type = o->gch.tt;
 
     switch (type) {
-/*    case K_TBIGINT: bigints are never gray */
+/*    case K_TBIGRAT: 
+      case K_TBIGINT: bigints & bigrats are never gray */
     case K_TPAIR: {
 	Pair *p = cast(Pair *, o);
 	markvalue(K, p->mark);
@@ -369,13 +371,17 @@ static void cleartable (GCObject *l) {
 }
 
 static void freeobj (klisp_State *K, GCObject *o) {
-    /* TODO use specific functions like in bigint & table */
+    /* TODO use specific functions like in bigint, bigrat & table */
     uint8_t type = o->gch.tt;
     switch (type) {
     case K_TBIGINT: {
 	mp_int_free(K, (Bigint *)o);
 	break;
     }
+    case K_TBIGRAT: {
+	mp_rat_free(K, (Bigrat *)o);
+	break;
+    }
     case K_TPAIR:
 	klispM_free(K, (Pair *)o);
 	break;