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. |
105 |
107 |
106 operation |
108 operation |
107 ^ 'break-after' |
109 ^ 'break-after' |
108 ! ! |
110 ! ! |
109 |
111 |
|
112 !GDBMI_break_after methodsFor:'accessing-descriptors'! |
|
113 |
|
114 resultDescription |
|
115 ^ (super resultDescription) |
|
116 define:#bkpt as:GDBBreakpoint; |
|
117 yourself |
|
118 |
|
119 "Created: / 22-05-2021 / 15:28:49 / Jan Vrany <jan.vrany@labware.com>" |
|
120 ! ! |
|
121 |
|
122 !GDBMI_break_after methodsFor:'hooks'! |
|
123 |
|
124 postExecuteIn: debugger result: result |
|
125 result isDone ifTrue: [ |
|
126 | event | |
|
127 event := GDBBreakpointModifiedEvent new. |
|
128 event _bkpt: (Array with: (result propertyAt: #bkpt)). |
|
129 debugger push: event |
|
130 ]. |
|
131 |
|
132 "Created: / 22-05-2021 / 15:31:20 / Jan Vrany <jan.vrany@labware.com>" |
|
133 ! ! |
|
134 |