equal
deleted
inserted
replaced
19 |
19 |
20 Block comment:' |
20 Block comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.34 1995-05-01 21:28:12 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.35 1995-05-18 15:08:46 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Block class methodsFor:'documentation'! |
27 !Block class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.34 1995-05-01 21:28:12 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.35 1995-05-18 15:08:46 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
648 |
648 |
649 !Block methodsFor:'privileged evaluation'! |
649 !Block methodsFor:'privileged evaluation'! |
650 |
650 |
651 valueUninterruptably |
651 valueUninterruptably |
652 "evaluate the receiver with interrupts blocked. |
652 "evaluate the receiver with interrupts blocked. |
653 This does not prevent preemption by higher priority processes." |
653 This does not prevent preemption by a higher priority processes |
|
654 if any becomes runnable due to the evaluation of the receiver |
|
655 (i.e. if a semaphore is signalled)." |
654 |
656 |
655 Processor activeProcess uninterruptablyDo:self |
657 Processor activeProcess uninterruptablyDo:self |
656 ! |
658 ! |
657 |
659 |
658 valueUnpreemptively |
660 valueUnpreemptively |