equal
deleted
inserted
replaced
1 " |
1 " |
2 jv:libgdbs - GNU Debugger Interface Library |
2 jv:libgdbs - GNU Debugger Interface Library |
3 Copyright (C) 2015-now Jan Vrany |
3 Copyright (C) 2015-now Jan Vrany |
|
4 Copyright (C) 2021 LabWare |
4 |
5 |
5 This library is free software; you can redistribute it and/or |
6 This library is free software; you can redistribute it and/or |
6 modify it under the terms of the GNU Lesser General Public |
7 modify it under the terms of the GNU Lesser General Public |
7 License as published by the Free Software Foundation; either |
8 License as published by the Free Software Foundation; either |
8 version 2.1 of the License. |
9 version 2.1 of the License. |
31 |
32 |
32 copyright |
33 copyright |
33 " |
34 " |
34 jv:libgdbs - GNU Debugger Interface Library |
35 jv:libgdbs - GNU Debugger Interface Library |
35 Copyright (C) 2015-now Jan Vrany |
36 Copyright (C) 2015-now Jan Vrany |
|
37 Copyright (C) 2021 LabWare |
36 |
38 |
37 This library is free software; you can redistribute it and/or |
39 This library is free software; you can redistribute it and/or |
38 modify it under the terms of the GNU Lesser General Public |
40 modify it under the terms of the GNU Lesser General Public |
39 License as published by the Free Software Foundation; either |
41 License as published by the Free Software Foundation; either |
40 version 2.1 of the License. |
42 version 2.1 of the License. |
101 |
103 |
102 operation |
104 operation |
103 ^ 'thread-select' |
105 ^ 'thread-select' |
104 ! ! |
106 ! ! |
105 |
107 |
|
108 !GDBMI_thread_select methodsFor:'accessing-descriptors'! |
|
109 |
|
110 resultDescription |
|
111 ^ (super resultDescription) |
|
112 define:#'frame' as: GDBFrame; |
|
113 define:#'new-thread-id' as: Integer; |
|
114 yourself |
|
115 |
|
116 " |
|
117 GDBMI_thread_select new resultDescription |
|
118 " |
|
119 |
|
120 "Created: / 09-03-2021 / 14:10:28 / Jan Vrany <jan.vrany@labware.com>" |
|
121 ! ! |
|
122 |
|
123 !GDBMI_thread_select methodsFor:'hooks'! |
|
124 |
|
125 postExecuteIn: debugger result: result |
|
126 result isDone ifTrue: [ |
|
127 | event | |
|
128 |
|
129 event := GDBThreadSelectedEvent new. |
|
130 event |
|
131 setThread: (debugger threadForId: (result propertyAt: 'new-thread-id')). |
|
132 event setFrame: (result propertyAt: 'frame'). |
|
133 debugger push: event |
|
134 ]. |
|
135 |
|
136 "Created: / 09-03-2021 / 14:17:05 / Jan Vrany <jan.vrany@labware.com>" |
|
137 ! ! |
|
138 |