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. |
94 |
96 |
95 operation |
97 operation |
96 ^ 'break-commands' |
98 ^ 'break-commands' |
97 ! ! |
99 ! ! |
98 |
100 |
|
101 !GDBMI_break_commands methodsFor:'accessing-descriptors'! |
|
102 |
|
103 resultDescription |
|
104 ^ (super resultDescription) |
|
105 define:#bkpt as:GDBBreakpoint; |
|
106 yourself |
|
107 |
|
108 "Created: / 22-05-2021 / 15:28:49 / Jan Vrany <jan.vrany@labware.com>" |
|
109 ! ! |
|
110 |
|
111 !GDBMI_break_commands methodsFor:'hooks'! |
|
112 |
|
113 postExecuteIn: debugger result: result |
|
114 result isDone ifTrue: [ |
|
115 | breakpoint event | |
|
116 |
|
117 breakpoint := debugger breakpointForId: arguments first. |
|
118 breakpoint _script: arguments allButFirst. |
|
119 |
|
120 event := GDBBreakpointModifiedEvent new. |
|
121 event _bkpt: (Array with: breakpoint). |
|
122 debugger push: event |
|
123 ]. |
|
124 |
|
125 "Created: / 22-05-2021 / 15:31:20 / Jan Vrany <jan.vrany@labware.com>" |
|
126 "Modified: / 28-06-2021 / 12:28:18 / Jan Vrany <jan.vrany@labware.com>" |
|
127 ! ! |
|
128 |
99 !GDBMI_break_commands class methodsFor:'documentation'! |
129 !GDBMI_break_commands class methodsFor:'documentation'! |
100 |
130 |
101 version_HG |
131 version_HG |
102 |
132 |
103 ^ '$Changeset: <not expanded> $' |
133 ^ '$Changeset: <not expanded> $' |