Re: [Chicken-janitors] #724: segfault in symbolGC tests on openbsd 5.0 with 4.7.0.3-stability

[Chicken Trac]

#724: segfault in symbolGC tests on openbsd 5.0 with 4.7.0.3-stability
-----------------------------+----------------------------------------------
  Reporter:  zbigniew        |       Owner:       
      Type:  defect          |      Status:  new  
  Priority:  major           |   Milestone:       
 Component:  core libraries  |     Version:  4.7.x
Resolution:                  |    Keywords:       
-----------------------------+----------------------------------------------

Comment(by ckeen):

 Hm, my OpenBSD 5.0 fails on the ports test instead.

 Procedures check on output ports being closed

 write...OK
 fprintf...OK
 print-call-chain...OK
 print-error-message...OK
 print...OK
 print*...OK
 display...OK
 terminal-port?...OK
 newline...OK
 write-char...OK
 write-line...OK
 write-u8vector...OK
 port->fileno...FAIL [ 6 ]

 Error: assertion failed: (eq? okay (condition-case (begin (print* (quote
 port->fileno) "...") (flush-output) (let ((output (port->fileno out)))
 (printf "FAIL [ ~S ]\n" output))) ((exn i/o file) (printf "OK\n") okay)))

         Call history:

         <eval>    (memv688 (##core#quote i/o682) kvar686)
         <eval>    (memv688 (##core#quote file683) kvar686)
         <eval>    (printf680 "OK\n")
         <eval>    (list712 (quote713 okay711))
         <eval>    (eq?715 okay711 (condition-case716 (begin717 (print*718
 (quote709 port->fileno) "...") (flush-output......
         <eval>    ((call-with-current-continuation735 (##core#lambda
 (k733) (with-exception-handler736 (##core#lambda ...
         <eval>    (call-with-current-continuation735 (##core#lambda (k733)
 (with-exception-handler736 (##core#lambda (......
         <eval>    (with-exception-handler736 (##core#lambda (exvar726)
 (k733 (##core#lambda () (##core#let ((kvar727 (......
         <eval>    (##sys#call-with-values (##core#lambda () (begin717
 (print*718 (quote709 port->fileno) "...") (flush......
         <eval>    (print*718 (quote709 port->fileno) "...")
         <eval>    (flush-output719)
         <eval>    (port->fileno out)
         <eval>    (printf721 "FAIL [ ~S ]\n" output720)
         <eval>    (k733 (##core#lambda () (##sys#apply ##sys#values
 args734)))
         <eval>    (##sys#apply ##sys#values args734)
         <eval>    (##sys#error "assertion failed" (##core#quote (eq? okay
 (condition-case (begin (print* (quote port->......    <--

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/724#comment:1>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.