equal
deleted
inserted
replaced
22 " |
22 " |
23 "{ Package: 'jv:libgdbs' }" |
23 "{ Package: 'jv:libgdbs' }" |
24 |
24 |
25 "{ NameSpace: Smalltalk }" |
25 "{ NameSpace: Smalltalk }" |
26 |
26 |
27 GDBInternalEvent subclass:#GDBRegisterChangedEvent |
27 GDBNotificationEvent subclass:#GDBRegisterChangedEvent |
28 instanceVariableNames:'register' |
28 instanceVariableNames:'frame regnum' |
29 classVariableNames:'' |
29 classVariableNames:'' |
30 poolDictionaries:'' |
30 poolDictionaries:'' |
31 category:'GDB-Events' |
31 category:'GDB-Events' |
32 ! |
32 ! |
33 |
33 |
56 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE |
56 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE |
57 SOFTWARE. |
57 SOFTWARE. |
58 " |
58 " |
59 ! ! |
59 ! ! |
60 |
60 |
61 !GDBRegisterChangedEvent methodsFor:'accessing'! |
61 !GDBRegisterChangedEvent class methodsFor:'accessing - GDB value descriptors'! |
62 |
62 |
63 register |
63 description |
64 ^ register |
64 ^ (super description) |
|
65 define:#frame as:Integer; |
|
66 define:#regnum as:Integer; |
|
67 yourself |
|
68 |
|
69 "Created: / 18-11-2021 / 23:04:07 / Jan Vrany <jan.vrany@labware.com>" |
|
70 "Modified: / 18-09-2023 / 17:41:00 / Jan Vrany <jan.vrany@labware.com>" |
65 ! ! |
71 ! ! |
66 |
72 |
67 !GDBRegisterChangedEvent methodsFor:'initialization'! |
73 !GDBRegisterChangedEvent methodsFor:'initialization'! |
68 |
74 |
69 setRegister: aGDBRegisterWithValue |
75 setFrame: aGDBFrameOrInteger |
70 register := aGDBRegisterWithValue |
76 self assert: frame isNil. |
|
77 |
|
78 frame := aGDBFrameOrInteger |
|
79 |
|
80 "Created: / 06-12-2023 / 11:11:24 / Jan Vrany <jan.vrany@labware.com>" |
|
81 ! |
|
82 |
|
83 setRegnum: anInteger |
|
84 self assert: regnum isNil. |
|
85 self assert: anInteger isInteger. |
|
86 |
|
87 regnum := anInteger |
|
88 |
|
89 "Created: / 06-12-2023 / 11:12:35 / Jan Vrany <jan.vrany@labware.com>" |
71 ! ! |
90 ! ! |
72 |
91 |