From: David Lichteblau <david@lichteblau.com>
Date: Tue, 18 Sep 2012 15:11:14 +0000 (+0200)
Subject: Reduce the numbers of threads in test ATOMIC-UPDATE on 32bit platforms
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8afcf4f95efb986b5eabd5f19731de4e2ee192e2;p=sbcl.git

Reduce the numbers of threads in test ATOMIC-UPDATE on 32bit platforms

This test creates 1000 threads in a row -- too many for some 32bit
platforms due to lack of memory or fragmentation.
---

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index 03da75b..2db34c2 100644
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -22,15 +22,16 @@
 
 (with-test (:name atomic-update
             :skipped-on '(not :sb-thread))
-  (let ((x (cons :count 0)))
+  (let ((x (cons :count 0))
+        (nthreads (ecase sb-vm:n-word-bits (32 100) (64 1000))))
     (mapc #'sb-thread:join-thread
           (loop repeat 1000
                 collect (sb-thread:make-thread
                          (lambda ()
-                           (loop repeat 1000
+                           (loop repeat nthreads
                                  do (atomic-update (cdr x) #'1+)
                                     (sleep 0.00001))))))
-    (assert (equal x '(:count . 1000000)))))
+    (assert (equal x `(:count ,@(* 1000 nthreads))))))
 
 (with-test (:name mutex-owner)
   ;; Make sure basics are sane on unithreaded ports as well