[uim-commit] r1590 - branches/0.4/uim

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-25 08:24:25 -0700 (Sun, 25 Sep 2005)
New Revision: 1590

Modified:
   branches/0.4/uim/slib.c
Log:
* uim/slib.c : Port r1539 from trunk.


Modified: branches/0.4/uim/slib.c
===================================================================
--- branches/0.4/uim/slib.c	2005-09-25 13:21:34 UTC (rev 1589)
+++ branches/0.4/uim/slib.c	2005-09-25 15:24:25 UTC (rev 1590)
@@ -257,7 +257,7 @@
 #define STACK_CHECK(_ptr) \
   if (((char *) (_ptr)) < stack_limit_ptr) err_stack((char *) _ptr);
 
-#define NEWCELL(_into, _type)         \
+#define _NEWCELL(_into, _type)         \
 {  if NULLP(freelist)                 \
       gc_for_newcell();               \
     _into = freelist;                 \
@@ -269,8 +269,12 @@
 #if ! DEBUG_SCM
 #define dbg_readini(f)
 #define dbg_readend()
-#define dbg_readabrt()
 #define dbg_register_closure(x)
+#define NEWCELL(_into, _type)	_NEWCELL (_into, _type)
+#else
+#define NEWCELL(_into, _type)		\
+{  _NEWCELL (_into, _type);		\
+   (*_into).dbg_info = car (dbg_pos);}
 #endif /* DEBUG_SCM */
 
 /* exported global symbol */