klisp

commit b35612993b49cab464793121377e59ed084f8501
parent 0f8f3c4109facac98d734f1eb9bb45e6e9ae50d3
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Tue, 12 Apr 2011 15:12:02 -0300

Completed support for klisp allocator in IMath. It was a success, imath branch will be merged.

Diffstat:
M
src/imath.c
 | 
4
----
M
src/imath.h
 | 
10
+---------
M
src/kstate.c
 | 
4
----

3 files changed, 1 insertion(+), 17 deletions(-)
diff --git a/src/imath.c b/src/imath.c
@@ -35,10 +35,6 @@
 #include "kmem.h"
 #include "kerror.h"
 
-/* XXX */
-klisp_State *KK = NULL;
-/* XXX */
-
 /* {{{ Constants */
 
 const mp_result MP_OK     = 0;  /* no error, all is well  */
diff --git a/src/imath.h b/src/imath.h
@@ -25,20 +25,13 @@
 #include "kobject.h"
 #include "kstate.h"
 
-/* XXX */
-extern klisp_State *KK;
-/* XXX */
-
-
 #ifdef USE_C99
 #include <stdint.h>
 #endif
 
-/* XXX
 #ifdef __cplusplus
 extern "C" {
 #endif
-*/
 
 #if USE_C99
 typedef unsigned char      mp_sign;
@@ -298,9 +291,8 @@ void      s_print(char *tag, mp_int z);
 void      s_print_buf(char *tag, mp_digit *buf, mp_size num);
 #endif
 
-/* XXX
 #ifdef __cplusplus
 }
 #endif
-*/
+
 #endif /* end IMATH_H_ */
diff --git a/src/kstate.c b/src/kstate.c
@@ -150,10 +150,6 @@ klisp_State *klisp_newstate (klisp_Alloc f, void *ud) {
     
     kinit_ground_env(K);
 
-    /* XXX */
-    KK = k; /* imath.h */
-    /* XXX */
-
     return K;
 }