equal
deleted
inserted
replaced
3077 Returns the previous blocking status i.e. true if interrupts |
3077 Returns the previous blocking status i.e. true if interrupts |
3078 where already blocked. You need this information for proper |
3078 where already blocked. You need this information for proper |
3079 unblocking, in case of nested block/unblock calls." |
3079 unblocking, in case of nested block/unblock calls." |
3080 |
3080 |
3081 %{ /* NOCONTEXT */ |
3081 %{ /* NOCONTEXT */ |
|
3082 #ifdef __SCHTEAM__ |
|
3083 return __c__._RETURN( __c__.blockInterrupts() ? STObject.True : STObject.False); |
|
3084 #else |
3082 RETURN ( __BLOCKINTERRUPTS() ); |
3085 RETURN ( __BLOCKINTERRUPTS() ); |
|
3086 #endif /* not SCHTEAM */ |
3083 %} |
3087 %} |
3084 ! |
3088 ! |
3085 |
3089 |
3086 defaultSignal:signalNumber |
3090 defaultSignal:signalNumber |
3087 "revert to the default action on arrival of a (Unix-)signal. |
3091 "revert to the default action on arrival of a (Unix-)signal. |
3436 these will be handled immediately. |
3440 these will be handled immediately. |
3437 When unblocking interrupts, take care of nested block/unblock |
3441 When unblocking interrupts, take care of nested block/unblock |
3438 calls - you must only unblock after a blockcall if they where |
3442 calls - you must only unblock after a blockcall if they where |
3439 really not blocked before. See OperatingSystemclass>>blockInterrupts." |
3443 really not blocked before. See OperatingSystemclass>>blockInterrupts." |
3440 %{ |
3444 %{ |
|
3445 #ifdef __SCHTEAM__ |
|
3446 return __c__._RETURN( __c__.unblockInterrupts() ? STObject.True : STObject.False); |
|
3447 #else |
3441 RETURN(__UNBLOCKINTERRUPTS()); |
3448 RETURN(__UNBLOCKINTERRUPTS()); |
|
3449 #endif |
3442 %} |
3450 %} |
3443 ! ! |
3451 ! ! |
3444 |
3452 |
3445 !AbstractOperatingSystem class methodsFor:'misc'! |
3453 !AbstractOperatingSystem class methodsFor:'misc'! |
3446 |
3454 |
7733 ! ! |
7741 ! ! |
7734 |
7742 |
7735 !AbstractOperatingSystem class methodsFor:'documentation'! |
7743 !AbstractOperatingSystem class methodsFor:'documentation'! |
7736 |
7744 |
7737 version |
7745 version |
7738 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.300 2015-05-16 09:59:50 cg Exp $' |
7746 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.301 2015-05-18 00:16:20 cg Exp $' |
7739 ! |
7747 ! |
7740 |
7748 |
7741 version_CVS |
7749 version_CVS |
7742 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.300 2015-05-16 09:59:50 cg Exp $' |
7750 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.301 2015-05-18 00:16:20 cg Exp $' |
7743 ! ! |
7751 ! ! |
7744 |
7752 |
7745 |
7753 |
7746 AbstractOperatingSystem initialize! |
7754 AbstractOperatingSystem initialize! |