Add semi-hosting example
This commit adds an example showing how to implement a semi-hosting
environment using libgdbs. This example is for RISC-V and requires
recent Pharo-ArchC [1] for assembling / disassembling of RISC-V code.
[1]: https://github.com/shingarov/Pharo-ArchC
"
jv:libgdbs - GNU Debugger Interface Library
Copyright (C) 2015-now Jan Vrany
Copyright (C) 2020-2021 LabWare
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
"
"{ Package: 'jv:libgdbs' }"
"{ NameSpace: Smalltalk }"
GDBExecutionEvent subclass:#GDBStoppedEvent
instanceVariableNames:'frame reason stopped_threads'
classVariableNames:''
poolDictionaries:''
category:'GDB-Core-Events'
!
!GDBStoppedEvent class methodsFor:'documentation'!
copyright
"
jv:libgdbs - GNU Debugger Interface Library
Copyright (C) 2015-now Jan Vrany
Copyright (C) 2020-2021 LabWare
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
"
! !
!GDBStoppedEvent class methodsFor:'accessing - GDB value descriptors'!
description
^ (super description)
define:#'thread-id' as:Integer;
define:#'stopped-threads' as:String;
define:#'frame' as: GDBFrame;
define:#'reason' as: String;
yourself
"Created: / 08-09-2014 / 22:13:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 31-08-2018 / 14:15:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GDBStoppedEvent methodsFor:'accessing'!
frame
^ frame
!
reason
"Return stop reason as reported by the GDB.
See GDBStopReasons for list of common reasons. Note, that
that list os not exhaustive."
^ reason
"Modified (comment): / 31-08-2018 / 23:20:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
stoppedThread
thread_id isNil ifTrue:[ ^ nil ].
^ threads detect:[:thread | thread id = thread_id ]
"Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 27-02-2015 / 12:36:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-01-2018 / 11:52:17 / jv"
!
stoppedThreadId
^ thread_id asInteger
"Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
stoppedThreadIds
^ stopped_threads ? 'all'
"Created: / 08-09-2014 / 22:15:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-01-2018 / 11:50:38 / jv"
!
type
^ 'stopped'
! !
!GDBStoppedEvent methodsFor:'initialization'!
reason: aString
GDBStopReasons classVarNames do:[:name |
| value |
value := GDBStopReasons classVarAt: name.
aString = value ifTrue:[
reason := value.
^ self.
].
].
reason := aString
"Created: / 31-08-2018 / 23:23:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 29-09-2020 / 09:37:31 / Jan Vrany <jan.vrany@labware.com>"
!
setFrame: aGFBFrame
frame := aGFBFrame
"Created: / 10-03-2021 / 14:21:11 / Jan Vrany <jan.vrany@labware.com>"
! !
!GDBStoppedEvent methodsFor:'testing'!
isStopEvent
^ true
"Created: / 10-09-2021 / 13:56:16 / Jan Vrany <jan.vrany@labware.com>"
! !
!GDBStoppedEvent class methodsFor:'documentation'!
version_HG
^ '$Changeset: <not expanded> $'
! !