Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5599/src/runtime
Modified Files:
gc-common.c gc-internal.h gc.h gencgc.c purify.c
Added Files:
fixnump.h
Log Message:
0.8.14.23:
Attempt to fix the fixnump()-related problems in the runtime.
This version Works For Me, but then so did the old one...
--- NEW FILE: fixnump.h ---
/*
* This software is part of the SBCL system. See the README file for
* more information.
*
* This software is derived from the CMU CL system, which was
* written at Carnegie Mellon University and released into the
* public domain. The software is in the public domain and is
* provided with absolutely no warranty. See the COPYING and CREDITS
* files for more information.
*/
#ifndef _FIXNUMP_H
#define _FIXNUMP_H
static inline int fixnump(lispobj obj) {
return((obj &
(LOWTAG_MASK &
(~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG))))
== 0);
}
#endif
Index: gc-common.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/gc-common.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- gc-common.c 8 Sep 2004 16:05:14 -0000 1.17
+++ gc-common.c 14 Sep 2004 17:25:17 -0000 1.18
@@ -37,6 +37,7 @@
#include "validate.h"
#include "lispregs.h"
#include "arch.h"
+#include "fixnump.h"
#include "gc.h"
#include "genesis/primitive-objects.h"
#include "genesis/static-symbols.h"
Index: gc-internal.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/gc-internal.h,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- gc-internal.h 8 Sep 2004 16:05:14 -0000 1.8
+++ gc-internal.h 14 Sep 2004 17:25:17 -0000 1.9
@@ -80,6 +80,8 @@
lispobj *search_static_space(void *pointer);
lispobj *search_dynamic_space(void *pointer);
+#include "fixnump.h"
+
/* Scan an area looking for an object which encloses the given pointer.
* Return the object start on success or NULL on failure. */
static lispobj *
Index: gc.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/gc.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- gc.h 8 Jan 2004 16:26:33 -0000 1.10
+++ gc.h 14 Sep 2004 17:25:17 -0000 1.11
@@ -29,11 +29,6 @@
extern int maybe_gc_pending;
-static inline int fixnump(lispobj obj) {
- return((obj &
- (LOWTAG_MASK &
- (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG))))
- == 0);
-}
+#include "fixnump.h"
#endif /* _GC_H_ */
Index: gencgc.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/gencgc.c,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -d -r1.60 -r1.61
--- gencgc.c 8 Sep 2004 16:05:14 -0000 1.60
+++ gencgc.c 14 Sep 2004 17:25:17 -0000 1.61
@@ -37,6 +37,7 @@
#include "validate.h"
#include "lispregs.h"
#include "arch.h"
+#include "fixnump.h"
#include "gc.h"
#include "gc-internal.h"
#include "thread.h"
Index: purify.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/purify.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- purify.c 10 Aug 2004 00:20:47 -0000 1.41
+++ purify.c 14 Sep 2004 17:25:17 -0000 1.42
@@ -27,6 +27,7 @@
#include "interrupt.h"
#include "purify.h"
#include "interr.h"
+#include "fixnump.h"
#include "gc.h"
#include "gc-internal.h"
#include "thread.h"
|