[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory clnet:/tmp/cvs-serv15998/src/db-bdb

Modified Files:
	libberkeley-db.c 
Log Message:
Fixed lispworks serialization issues with floats & strings; fixed remove-derived-index bug that wouldn't properly delete

--- /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.c	2007/02/04 04:34:56	1.8
+++ /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.c	2007/03/18 20:40:50	1.9
@@ -1011,6 +1011,7 @@
 #define S2_FIXNUM32 1
 #define S2_FIXNUM64 2
 #define S2_CHAR 3
+#define S2_SHORT_FLOAT 30
 #define S2_SINGLE_FLOAT 4
 #define S2_DOUBLE_FLOAT 5
 #define S2_NEGATIVE_BIGNUM 6
@@ -1034,7 +1035,7 @@
 #define S2_FILL_POINTER_P 0x40
 #define S2_ADJUSTABLE_P 0x80
 
-#define type_numeric2(c) (((c)<9) || ((c)==14))
+#define type_numeric2(c) (((c)<9) || ((c)==14) || ((c)==30))
 
 /******
   Serialized BTree keys have the form:
@@ -1149,6 +1150,8 @@
   case S2_FIXNUM64:
   case S2_SYMBOL_ID:
     return (double)read_int(buf, 1);
+  case S2_SHORT_FLOAT:
+    return (double)read_float(buf, 1);
   case S2_SINGLE_FLOAT:
     return (double)read_float(buf, 1);
   case S2_DOUBLE_FLOAT: