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: