68 use "System/options.ML"; |
68 use "System/options.ML"; |
69 |
69 |
70 |
70 |
71 (* concurrency within the ML runtime *) |
71 (* concurrency within the ML runtime *) |
72 |
72 |
73 use "Concurrent/event_timer.ML"; |
|
74 |
|
75 if ML_System.is_polyml |
73 if ML_System.is_polyml |
76 then use "ML/exn_properties_polyml.ML" |
74 then use "ML/exn_properties_polyml.ML" |
77 else use "ML/exn_properties_dummy.ML"; |
75 else use "ML/exn_properties_dummy.ML"; |
78 |
76 |
79 if ML_System.name = "polyml-5.5.0" |
77 if ML_System.name = "polyml-5.5.0" |
82 |
80 |
83 use "Concurrent/single_assignment.ML"; |
81 use "Concurrent/single_assignment.ML"; |
84 if Multithreading.available then () |
82 if Multithreading.available then () |
85 else use "Concurrent/single_assignment_sequential.ML"; |
83 else use "Concurrent/single_assignment_sequential.ML"; |
86 |
84 |
87 if ML_System.is_polyml then use "Concurrent/time_limit.ML" else (); |
|
88 |
|
89 if Multithreading.available |
85 if Multithreading.available |
90 then use "Concurrent/bash.ML" |
86 then use "Concurrent/bash.ML" |
91 else use "Concurrent/bash_sequential.ML"; |
87 else use "Concurrent/bash_sequential.ML"; |
92 |
88 |
93 use "Concurrent/par_exn.ML"; |
89 use "Concurrent/par_exn.ML"; |
94 use "Concurrent/task_queue.ML"; |
90 use "Concurrent/task_queue.ML"; |
95 use "Concurrent/future.ML"; |
91 use "Concurrent/future.ML"; |
|
92 use "Concurrent/event_timer.ML"; |
|
93 |
|
94 if ML_System.is_polyml then use "Concurrent/time_limit.ML" else (); |
96 |
95 |
97 use "Concurrent/lazy.ML"; |
96 use "Concurrent/lazy.ML"; |
98 if Multithreading.available then () |
97 if Multithreading.available then () |
99 else use "Concurrent/lazy_sequential.ML"; |
98 else use "Concurrent/lazy_sequential.ML"; |
100 |
99 |