equal
deleted
inserted
replaced
180 |
180 |
181 |
181 |
182 (* scheduling parameters *) |
182 (* scheduling parameters *) |
183 |
183 |
184 val parallel_proofs = Unsynchronized.ref 1; |
184 val parallel_proofs = Unsynchronized.ref 1; |
185 val parallel_proofs_threshold = Unsynchronized.ref 50; |
185 val parallel_proofs_threshold = Unsynchronized.ref 100; |
186 |
186 |
187 fun future_enabled_level n = |
187 fun future_enabled_level n = |
188 Multithreading.enabled () andalso ! parallel_proofs >= n andalso |
188 Multithreading.enabled () andalso ! parallel_proofs >= n andalso |
189 is_some (Future.worker_task ()); |
189 is_some (Future.worker_task ()); |
190 |
190 |