equal
deleted
inserted
replaced
77 (value ~~ InvalidValue and:[debugger currentInferiorStateSequnceNumber == seqno]) ifTrue:[ |
77 (value ~~ InvalidValue and:[debugger currentInferiorStateSequnceNumber == seqno]) ifTrue:[ |
78 ^ value. |
78 ^ value. |
79 ]. |
79 ]. |
80 old := value == InvalidValue ifTrue:[ nil ] ifFalse:[ value ]. |
80 old := value == InvalidValue ifTrue:[ nil ] ifFalse:[ value ]. |
81 lock critical:[ |
81 lock critical:[ |
82 value := token := Object new. |
82 (value ~~ InvalidValue and:[debugger currentInferiorStateSequnceNumber == seqno]) ifFalse:[ |
83 new := factory valueWithOptionalArgument: old. |
83 value := token := Object new. |
84 value == token ifTrue:[ |
84 new := factory valueWithOptionalArgument: old. |
85 self value: new. |
85 value == token ifTrue:[ |
|
86 self value: new. |
|
87 ]. |
86 ]. |
88 ]. |
87 ]. |
89 ]. |
88 ^ value |
90 ^ value |
89 |
91 |
90 "Created: / 17-09-2014 / 22:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
92 "Created: / 17-09-2014 / 22:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
91 "Modified: / 08-09-2018 / 15:41:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
93 "Modified: / 26-09-2018 / 13:10:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
92 ! |
94 ! |
93 |
95 |
94 value: anObject |
96 value: anObject |
95 value := anObject. |
97 value := anObject. |
96 seqno := debugger currentInferiorStateSequnceNumber. |
98 seqno := debugger currentInferiorStateSequnceNumber. |