I found and repaired one bug that would explain all the crashes I've seen so far today. It's not a new bug, so I don't know why it would have escaped detection before.
At Tue, 22 Sep 2015 16:13:52 -0600, Matthew Flatt wrote: > I've tried the "rewind-gc" branch, and I still see the crash. > > So, the good news is that the problem doesn't seem to be in recent GC > changes. The bad news is that I don't yet know the source of the > problem. > > At Tue, 22 Sep 2015 10:54:10 -0600, Matthew Flatt wrote: > > It's possible that recent attempts to improve the GC are to blame. > > I hope to take a look soon. > > > > Meanwhile, you could try the "rewind-gc" branch of > > > > https://github.com/mflatt/racket/ > > > > to see whether the problem persists. You might even try reverting > > reverts to help pin down which attempted improvement went wrong. > > > > At Tue, 22 Sep 2015 09:31:54 -0700 (PDT), Tim Brown wrote: > > > Matthew, > > > > > > I have built and installed: > > > > > > Welcome to Racket v6.2.900.17. > > > > > > on the same machine described in the original post. > > > > > > The test script below has started failing again. > > > > > > Has the code reverted back to its old behaviour? > > > > > > Tim > > > > > > On Monday, August 24, 2015 at 3:59:03 PM UTC+1, Tim Brown wrote: > > > > > --------------------------------------------------------------------------- > > > > #lang racket/base > > > > (require racket/place > > > > racket/match > > > > racket/sandbox > > > > db) > > > > > > > > (provide server-place) > > > > > > > > (define (server-place pl) > > > > (define pgc (postgresql-connect #:database "my_db" > > > > #:user "tim" > > > > #:password "letmein")) > > > > (define bcast-read-ch (place-channel-get pl)) > > > > > > > > ;; This is either necessary or aggravating > > > > ;; [6 places survives 2 runs of 10,000,000 without a crash] > > > > (define do-sbx? (not (getenv "NO_SANDBOX"))) > > > > (unless do-sbx? (displayln "NO SANDBOX!")) > > > > (define sbx (when do-sbx? (parameterize ([sandbox-eval-limits #f]) > > > > (make-evaluator > 'racket/base)))) > > > > > > > > (place-channel-put pl "standing by") > > > > (let loop () > > > > (match-define reply-to-pch (place-channel-get bcast-read-ch)) > > > > (define n 1) > > > > (define rsp-val > > > > ;; This causes: SIGSEGV MAPERR si_code 1 fault on addr ... > > > > (query-value pgc "SELECT $1 + 1" n) > > > > ;;(query-value pgc "SELECT 1") ; This causes a spin+grow > > > > ) > > > > > > > > (place-channel-put reply-to-pch 1) > > > > (loop))) > > > > > > > > (module main racket/base > > > > (require racket/place syntax/location) > > > > > > > > (define (env->int e) (let ((v (getenv e))) (and v (string->number > > > > v)))) > > > > (define max-clients (or (env->int "CLIENT_THREADS") 20)) > > > > (define report-period (or (env->int "REPORT_PERIOD") 10000)) > > > > (define n-tests (or (env->int "TESTS") 10000000)) > > > > (define n-servers (or (env->int "SERVER_PLACES") 3)) > > > > > > > > (define-values (bcast-to-ch bcast-from-ch) (place-channel)) > > > > > > > > (for/list ((n (in-range n-servers))) > > > > (define srv-pl (dynamic-place (quote-module-path "..") > 'server-place)) > > > > ;; Tell server where to get its broadcast requests > > > > (place-channel-put srv-pl bcast-from-ch) > > > > (place-channel-get srv-pl)) ; Synchronise > > > > > > > > (define thread-limiter-sem (make-semaphore max-clients)) > > > > > > > > (define (consumer n) > > > > (unless (zero? n) > > > > (semaphore-wait thread-limiter-sem) > > > > (thread > > > > (lambda () > > > > (define-values (reply-read-ch reply-write-ch) (place-channel)) > > > > (when (zero? (modulo n report-period)) (displayln (- n-tests > > > > n))) > > > > (place-channel-put bcast-to-ch reply-write-ch) > > > > (place-channel-get reply-read-ch) > > > > (semaphore-post thread-limiter-sem))) > > > > (consumer (sub1 n)))) > > > > (consumer n-tests)) > > > > > --------------------------------------------------------------------------- > > > > > > > > ----------------------------------------------------------------------- > > > > $ racket --version > > > > Welcome to Racket v6.2.900.10. > > > > # racket is vanilla ./configure and make > > > > $ uname -a > > > > Linux XXX 3.2.0-4-amd64 #1 SMP Debian 3.2.68-1+deb7u1 x86_64 GNU/Linux > > > > $ grep 'model name' /proc/cpuinfo > > > > model name : Intel(R) Core(TM) i5-3470 CPU @ 3.20GHz > > > > model name : Intel(R) Core(TM) i5-3470 CPU @ 3.20GHz > > > > model name : Intel(R) Core(TM) i5-3470 CPU @ 3.20GHz > > > > model name : Intel(R) Core(TM) i5-3470 CPU @ 3.20GHz > > > > ----------------------------------------------------------------------- > > > > > > -- > > > You received this message because you are subscribed to the Google Groups > > > "Racket Users" group. > > > To unsubscribe from this group and stop receiving emails from it, send an > > > email to racket-users+unsubscr...@googlegroups.com. > > > For more options, visit https://groups.google.com/d/optout. > > > > -- > > You received this message because you are subscribed to the Google Groups > > "Racket Users" group. > > To unsubscribe from this group and stop receiving emails from it, send an > > email to racket-users+unsubscr...@googlegroups.com. > > For more options, visit https://groups.google.com/d/optout. > > -- > You received this message because you are subscribed to the Google Groups > "Racket Users" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to racket-users+unsubscr...@googlegroups.com. > For more options, visit https://groups.google.com/d/optout. -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
