Re: Problems in current

[Aleksej S. <as...@in...>]

Sam Steingold <sd...@gn...> writes:

> Hi,
> does this patch fix the problem?
>
> --- stream.d.~1.682.~	2010-06-20 00:19:48.000000000 -0400
> +++ stream.d	2010-06-20 00:22:09.000000000 -0400

Yes, it does.

> (it probably does, the question is whether it looks right).

That I don't know now.


Another problem (NetBSD 5.99.30 i386, I'll check FreeBSD later):

RUN-TEST: started 
#<INPUT BUFFERED FILE-STREAM CHARACTER
  #P"/tmp/wip/clisp/work/clisp/modules/regexp/test.tst" @1>
(REQUIRE "regexp")
EQL-OK: NIL
(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "regexp" T)) :PRETTY T))
("regexp" 3 (REGEXP::REGEXP-FREE REGEXP:REGEXP-EXEC REGEXP:REGEXP-COMPILE) 12
 (#() REGEXP::MAKE-MATCH-BOA :START :RETURN-TYPE :NOTEOL :NOTBOL :NOSUB
  :NEWLINE :IGNORE-CASE :EXTENDED :END :BOOLEAN))
EQL-OK: T
(LET ((RC (REGEXP:REGEXP-COMPILE "a(a)*" :EXTENDED T))) (PROG1 (LIST (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC RC "a")) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'LIST) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'VECTOR) (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC RC "z")) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'LIST) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'VECTOR)) (GC) (GC)))

*** - handle_fault error2 ! address = 0xdf5bcc8 not in [0x202a4000,0x2072c648) !
SIGSEGV cannot be cured. Fault address = 0xdf5bcc8.
GC count: 54
Space collected by GC: 0 64378864
Run time: 1 676299
Real time: 114 459163
GC time: 0 300239
Permanently allocated: 92992 bytes.
Currently in use: 6406656 bytes.
Free space: 293298 bytes.
[1]   Segmentation fault (core dumped) ./clisp -E UTF-8...
*** Error code 139


BTW, what should be fixed to use system malloc instead of gmalloc?


-- 
HE CE3OH...