equal
deleted
inserted
replaced
739 ! |
739 ! |
740 |
740 |
741 suspendedContext |
741 suspendedContext |
742 "return the processes suspended context |
742 "return the processes suspended context |
743 - this is the context from which a process switch into the scheduler |
743 - this is the context from which a process switch into the scheduler |
744 or another process occured. |
744 or another process occurred. |
745 For the active process, a dead process, or one which |
745 For the active process, a dead process, or one which |
746 had no chance to run yet, nil is returned. |
746 had no chance to run yet, nil is returned. |
747 Typically, only the debugger is interested in this one." |
747 Typically, only the debugger is interested in this one." |
748 |
748 |
749 %{ /* NOCONTEXT */ |
749 %{ /* NOCONTEXT */ |
750 OBJ i; |
750 OBJ i; |
751 |
751 |
752 if (__isSmallInteger(i = __INST(id))) { |
752 if (__isSmallInteger(i = __INST(id))) { |
753 RETURN (__threadContext(__intVal(i))); |
753 RETURN (__threadContext(__intVal(i))); |
754 } |
754 } |
755 %}. |
755 %}. |
756 ^ nil |
756 ^ nil |
757 |
|
758 |
|
759 |
|
760 |
|
761 ! ! |
757 ! ! |
762 |
758 |
763 !Process methodsFor:'accessing-change notifications'! |
759 !Process methodsFor:'accessing-change notifications'! |
764 |
760 |
765 addExitAction:aBlock |
761 addExitAction:aBlock |