GDBStoppedEvent.st
author Jan Vrany <jan.vrany@labware.com>
Mon, 30 May 2022 13:58:25 +0100
changeset 259 651864c2aa29
parent 242 ab6978ab27f5
child 272 cdd1c9ad00de
permissions -rw-r--r--
Relicense under MIT license.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
     1
"
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
     2
jv:libgdbs - GNU Debugger Interface Library
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
     3
Copyright (C) 2015-now Jan Vrany
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
     4
Copyright (C) 2020-2022 LabWare
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
     5
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
     6
Permission is hereby granted, free of charge, to any person obtaining a copy
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
     7
of this software and associated documentation files (the 'Software'), to deal
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
     8
in the Software without restriction, including without limitation the rights
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
     9
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    10
copies of the Software, and to permit persons to whom the Software is
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    11
furnished to do so, subject to the following conditions:
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    12
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    13
The above copyright notice and this permission notice shall be included in all
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    14
copies or substantial portions of the Software.
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    15
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    16
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    17
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    18
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    19
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    20
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    21
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    22
SOFTWARE.
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    23
"
13
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
"{ Package: 'jv:libgdbs' }"
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
53
63669c2c0f9e Test fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 45
diff changeset
    26
"{ NameSpace: Smalltalk }"
63669c2c0f9e Test fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 45
diff changeset
    27
13
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
GDBExecutionEvent subclass:#GDBStoppedEvent
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    29
	instanceVariableNames:'frame reason stopped_threads'
13
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
	classVariableNames:''
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
	poolDictionaries:''
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
	category:'GDB-Core-Events'
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
!
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    35
!GDBStoppedEvent class methodsFor:'documentation'!
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    36
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    37
copyright
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    38
"
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    39
jv:libgdbs - GNU Debugger Interface Library
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    40
Copyright (C) 2015-now Jan Vrany
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    41
Copyright (C) 2020-2022 LabWare
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    42
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    43
Permission is hereby granted, free of charge, to any person obtaining a copy
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    44
of this software and associated documentation files (the 'Software'), to deal
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    45
in the Software without restriction, including without limitation the rights
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    46
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    47
copies of the Software, and to permit persons to whom the Software is
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    48
furnished to do so, subject to the following conditions:
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    49
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    50
The above copyright notice and this permission notice shall be included in all
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    51
copies or substantial portions of the Software.
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    52
259
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    53
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    54
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    55
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    56
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    57
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    58
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
651864c2aa29 Relicense under MIT license.
Jan Vrany <jan.vrany@labware.com>
parents: 242
diff changeset
    59
SOFTWARE.
91
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    60
"
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    61
! !
472a4841a8b6 License this package under 'GNU Lesser General Public License'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 53
diff changeset
    62
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    63
!GDBStoppedEvent class methodsFor:'accessing - GDB value descriptors'!
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    64
45
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 44
diff changeset
    65
description
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 44
diff changeset
    66
    ^ (super description)
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 44
diff changeset
    67
        define:#'thread-id' as:Integer;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 44
diff changeset
    68
        define:#'stopped-threads' as:String;
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    69
        define:#'frame' as: GDBFrame;
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    70
        define:#'reason' as: String;
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    71
        yourself
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    72
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    73
    "Created: / 08-09-2014 / 22:13:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    74
    "Modified: / 31-08-2018 / 14:15:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    75
! !
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    76
13
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
!GDBStoppedEvent methodsFor:'accessing'!
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    79
frame
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    80
    ^ frame
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    81
!
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    82
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    83
reason
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    84
    "Return stop reason as reported by the GDB.
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    85
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    86
     See GDBStopReasons for list of common reasons. Note, that
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    87
     that list os not exhaustive."
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    88
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    89
    ^ reason
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    90
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    91
    "Modified (comment): / 31-08-2018 / 23:20:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    92
!
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
    93
44
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
    94
stoppedThread
95
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
    95
    thread_id isNil ifTrue:[ ^ nil ].
44
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
    96
    ^ threads detect:[:thread | thread id = thread_id ]
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
    97
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
    98
    "Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
53
63669c2c0f9e Test fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 45
diff changeset
    99
    "Modified: / 27-02-2015 / 12:36:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
95
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   100
    "Modified: / 15-01-2018 / 11:52:17 / jv"
44
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
   101
!
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
   102
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   103
stoppedThreadId
44
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
   104
    ^ thread_id asInteger
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   105
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   106
    "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44
e78460ac5d58 Added a GDBStoppedEvent >> stoppedThread
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 38
diff changeset
   107
    "Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   108
!
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   109
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   110
stoppedThreadIds
95
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   111
    ^ stopped_threads ? 'all'
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   112
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   113
    "Created: / 08-09-2014 / 22:15:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
95
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   114
    "Modified: / 15-01-2018 / 11:50:38 / jv"
38
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   115
!
c9eaa506824b More work on GDBThreadStatus
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
   116
13
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
type
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
	^  'stopped'
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
! !
45ec9353003f Added classes for each async event type.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   121
!GDBStoppedEvent methodsFor:'initialization'!
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   122
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   123
reason: aString
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   124
    GDBStopReasons classVarNames do:[:name | 
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   125
        | value |
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   126
211
d493b4969b59 Use `#classVarAt:` and `#classVariableNames`
Jan Vrany <jan.vrany@labware.com>
parents: 135
diff changeset
   127
        value := GDBStopReasons classVarAt: name.
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   128
        aString = value ifTrue:[ 
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   129
            reason := value.
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   130
            ^ self.
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   131
        ].
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   132
    ].
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   133
    reason := aString
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   134
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   135
    "Created: / 31-08-2018 / 23:23:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
211
d493b4969b59 Use `#classVarAt:` and `#classVariableNames`
Jan Vrany <jan.vrany@labware.com>
parents: 135
diff changeset
   136
    "Modified: / 29-09-2020 / 09:37:31 / Jan Vrany <jan.vrany@labware.com>"
223
5ba4abfcb7e7 Track user context (selected thread and frame) in `GDBDebugger`
Jan Vrany <jan.vrany@labware.com>
parents: 211
diff changeset
   137
!
5ba4abfcb7e7 Track user context (selected thread and frame) in `GDBDebugger`
Jan Vrany <jan.vrany@labware.com>
parents: 211
diff changeset
   138
5ba4abfcb7e7 Track user context (selected thread and frame) in `GDBDebugger`
Jan Vrany <jan.vrany@labware.com>
parents: 211
diff changeset
   139
setFrame: aGFBFrame
5ba4abfcb7e7 Track user context (selected thread and frame) in `GDBDebugger`
Jan Vrany <jan.vrany@labware.com>
parents: 211
diff changeset
   140
    frame := aGFBFrame
5ba4abfcb7e7 Track user context (selected thread and frame) in `GDBDebugger`
Jan Vrany <jan.vrany@labware.com>
parents: 211
diff changeset
   141
5ba4abfcb7e7 Track user context (selected thread and frame) in `GDBDebugger`
Jan Vrany <jan.vrany@labware.com>
parents: 211
diff changeset
   142
    "Created: / 10-03-2021 / 14:21:11 / Jan Vrany <jan.vrany@labware.com>"
135
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   143
! !
6efae6456f14 Added pool `GDBStopReasons` with constants for (know) reasons
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 95
diff changeset
   144
242
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   145
!GDBStoppedEvent methodsFor:'testing'!
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   146
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   147
isStopEvent
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   148
    ^ true
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   149
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   150
    "Created: / 10-09-2021 / 13:56:16 / Jan Vrany <jan.vrany@labware.com>"
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   151
! !
ab6978ab27f5 Add semi-hosting example
Jan Vrany <jan.vrany@labware.com>
parents: 223
diff changeset
   152
95
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   153
!GDBStoppedEvent class methodsFor:'documentation'!
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   154
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   155
version_HG
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   156
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   157
    ^ '$Changeset: <not expanded> $'
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   158
! !
f417138e9c48 Win32: initial support for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 91
diff changeset
   159