hg/jv-libgdbs: GDBThread.st@0ce76b671515 (annotated)

35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libgdbs' }"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	3	GDBDebuggerObject subclass:#GDBThread
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	4	instanceVariableNames:'id group status stack'
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'GDB-Core'
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	10	!GDBThread class methodsFor:'instance creation'!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	11
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	12	newWithDebugger: debugger id: id group: group
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	13	^ self new
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	14	setDebugger: debugger;
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	15	setId: id;
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	16	setGroup: group;
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	17	yourself.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	18
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	19	"Created: / 07-09-2014 / 21:33:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	20	! !
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	21
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!GDBThread class methodsFor:'accessing - GDB value descriptors'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	gdbValueDescriptor
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	^ (super gdbValueDescriptor)
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	define: #id as: Integer;
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	yourself
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	"Created: / 06-09-2014 / 02:21:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	32	!GDBThread methodsFor:'accessing'!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	33
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	34	id
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	35	^ id
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	36
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	37	"Created: / 07-09-2014 / 22:41:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	38	!
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	39
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	40	stack
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	41	self ensureIsStopped.
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	42	stack isNil ifTrue:[
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	43	\| result depth \|
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	44	result := debugger send: (GDBMI_stack_info_depth new arguments: { '--thread' . id . 100 }).
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	45	depth := result propertyAt: #depth.
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	46	result := debugger send: (GDBMI_stack_list_frames new arguments: { '--thread' . id . 0 . depth - 1 }).
0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	47	stack := result propertyAt: #stack.
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	48	].
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	49	^ stack
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	50
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	51	"Created: / 09-09-2014 / 00:02:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	52	"Modified: / 17-09-2014 / 00:02:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	53	!
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	54
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	55	status
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	56	^ status
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	57	! !
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	58
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	59	!GDBThread methodsFor:'initialization'!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	60
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	61	setGroup: aGDBThreadGroup
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	62	self assert: group isNil.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	63	group := aGDBThreadGroup.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	64
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	65	"Created: / 07-09-2014 / 21:32:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	66	!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	67
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	68	setId: tid
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	69	self assert: id isNil.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	70	id := tid.
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	71	status := GDBThreadStatusRunning theOneAndOnlyInstance
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	72
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	73	"Created: / 07-09-2014 / 21:31:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	74	"Modified: / 07-09-2014 / 23:27:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	75	!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	76
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	77	setStatus: aGDBThreadStatus
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	78	status := aGDBThreadStatus.
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	79	status isStopped ifFalse:[
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	80	stack := nil.
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	81	].
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	82
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	83	"Created: / 07-09-2014 / 23:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	84	"Modified: / 09-09-2014 / 00:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	85	!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	86
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	87	setTerminated
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	88	status := GDBThreadStatusTerminated theOneAndOnlyInstance
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	89
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	90	"Created: / 07-09-2014 / 21:37:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	91	"Modified: / 07-09-2014 / 23:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	92	! !
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	93
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	94	!GDBThread methodsFor:'private'!
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	95
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	96	ensureIsStopped
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	97	self isStopped ifFalse:[
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	98	(GDBInvalidObject newException)
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	99	parameter:self;
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	100	messageText:'Invalid state (thread is running or already dead)';
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	101	raise.
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	102	].
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	103
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	104	"Created: / 09-09-2014 / 00:04:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	105	"Modified: / 16-09-2014 / 23:51:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	106	! !
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	107
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	108	!GDBThread methodsFor:'testing'!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	109
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	110	isRunning
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	111	^ status isRunning
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	112
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	113	"Created: / 07-09-2014 / 23:23:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	114	!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	115
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	116	isStopped
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	117	^ status isStopped
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	118
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	119	"Created: / 07-09-2014 / 23:23:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	120	!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	121
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	122	isTerminated
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	123	^ status isTerminated
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	124
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	125	"Created: / 07-09-2014 / 23:23:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	126	! !
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	127

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 17 Sep 2014 09:01:56 +0100
changeset 40	0ce76b671515
parent 39	2b9d2f75906f
child 41	fb48207b6104
permissions	-rw-r--r--