Re: cvs head problems

[Sam S. <sd...@gn...>]

> * Bruno Haible <oe...@py...t> [2004-08-02 21:52:39 +0200]:
>
> Sam wrote:
>> 1. as mentioned in TODO, struct accessors are defined twice which
>>    results in a barrage of warnings.
>
> Well, that's why it's in the TODO list :-)

please give it higher priority.
this is far too serious to postpone

>> 2. berkeley-db on linux crashes during build:
>
> Given that "make check-tests" for the core clisp works (except for a
> trivial failure in excepsit), I guess the problem is in the
> berkeley-db module?

maybe, but how do I debug it?
note the `Thread' messages!
besides, the actual problem happens in the core:

WARNING: DEFUN/DEFMACRO: redefining function DB-LOG-STAT-REGION_NOWAIT in
         /usr/local/src/clisp/current/build-g/berkeley-db/dbi.fas, was defined
         in top-level[Switching to Thread -150941568 (LWP 26936)]

Breakpoint 14, C_subr_bdb_dbe_get_options () at bdb.c:672
672       object what = STACK_0;
(gdb) n
674       DB_ENV *dbe = bdb_handle(STACK_1,`BDB::DBE`,eq(what,`:DB_XIDDATASIZE`)

(gdb) s
bdb_handle (obj={one_o = 136700278}, type={one_o = 554302550},
    oh=BH_NIL_IS_NULL) at bdb.c:130
130       while (!typep_classname(obj,type)) {
(gdb) s
typep_classname (obj={one_o = 136700278}, classname={one_o = 554302550})
    at predtype.d:2101
2101      pushSTACK(obj); C_class_of();
(gdb) n
2102      var object objclass = value1;
(gdb)
2109      if (matomp(TheClass(objclass)->current_version)) {
(gdb) finish
Run till exit from #0  typep_classname (obj={one_o = 136700278}, classname=
      {one_o = 554302550}) at predtype.d:2109
Couldn't get registers: No such process.
(gdb) n
Cannot fetch general-purpose registers for thread -150941568: generic error
(gdb)


> (Btw, did you recompile berkeley-db's .fas files recently?)

I do
  rm -fv `find . -name \*.fas`
after each
  cvs up

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
(let((a'(list'let(list(list'a(list'quote a)))a)))`(let((a(quote ,a))),a))