From b6f5aadfccea8bccadd6c56b57fe6f6b80cfc213 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 23 Nov 2009 15:46:24 -0800
Subject: Improving portability. It is no longer assumed that pointers can be
 converted to a type long and vice versa. The configure script tries to detect
 the appropriate type to use. Also, some run-time checking is performed in the
 streams module to detect which conversions specifier strings to use for
 printing numbers.

---
 gc.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gc.c')

diff --git a/gc.c b/gc.c
index 0de0c3f2..ec192a9e 100644
--- a/gc.c
+++ b/gc.c
@@ -31,6 +31,7 @@
 #include <setjmp.h>
 #include <dirent.h>
 #include <wchar.h>
+#include "config.h"
 #include "lib.h"
 #include "stream.h"
 #include "hash.h"
@@ -231,7 +232,7 @@ tail_call:
     {
       val alloc_size = obj->v.vec[-2];
       val fill_ptr = obj->v.vec[-1];
-      long i, fp = c_num(fill_ptr);
+      cnum i, fp = c_num(fill_ptr);
 
       mark_obj(alloc_size);
       mark_obj(fill_ptr);
-- 
cgit v1.2.3