changeset 62501 | 98fa1f9a292f |
parent 62498 | 5dfcc9697f29 |
child 62502 | 8857237c3a90 |
62498:5dfcc9697f29 | 62501:98fa1f9a292f |
---|---|
1 (* Title: Pure/RAW/ml_stack_polyml-5.6.ML |
|
2 |
|
3 Maximum stack size (in words) for ML threads -- Poly/ML 5.6, or later. |
|
4 *) |
|
5 |
|
6 signature ML_STACK = |
|
7 sig |
|
8 val limit: int option -> Thread.threadAttribute list |
|
9 end; |
|
10 |
|
11 structure ML_Stack: ML_STACK = |
|
12 struct |
|
13 |
|
14 fun limit m = [Thread.MaximumMLStack m]; |
|
15 |
|
16 end; |