--- a/GDBMI_break_after.st Sat May 22 16:52:20 2021 +0100
+++ b/GDBMI_break_after.st Mon Jun 28 12:43:27 2021 +0100
@@ -1,6 +1,7 @@
"
jv:libgdbs - GNU Debugger Interface Library
Copyright (C) 2015-now Jan Vrany
+Copyright (C) 2021 LabWare
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@@ -33,6 +34,7 @@
"
jv:libgdbs - GNU Debugger Interface Library
Copyright (C) 2015-now Jan Vrany
+Copyright (C) 2021 LabWare
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@@ -107,3 +109,26 @@
^ 'break-after'
! !
+!GDBMI_break_after methodsFor:'accessing-descriptors'!
+
+resultDescription
+ ^ (super resultDescription)
+ define:#bkpt as:GDBBreakpoint;
+ yourself
+
+ "Created: / 22-05-2021 / 15:28:49 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
+!GDBMI_break_after methodsFor:'hooks'!
+
+postExecuteIn: debugger result: result
+ result isDone ifTrue: [
+ | event |
+ event := GDBBreakpointModifiedEvent new.
+ event _bkpt: (Array with: (result propertyAt: #bkpt)).
+ debugger push: event
+ ].
+
+ "Created: / 22-05-2021 / 15:31:20 / Jan Vrany <jan.vrany@labware.com>"
+! !
+