hg/jv-libgdbs: GDBThread.st@fb48207b6104 (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:[
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	43	stack := GDBTransientDataHolder debugger: debugger factory:[
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	44	\| result depth \|
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	45	result := debugger send: (GDBMI_stack_info_depth new arguments: { '--thread' . id . 100 }).
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	46	depth := result propertyAt: #depth.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	47	result := debugger send: (GDBMI_stack_list_frames new arguments: { '--thread' . id . 0 . depth - 1 }).
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	48	result propertyAt: #stack.
fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	49	].
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	50	].
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	51	^ stack value
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	52
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	53	"Created: / 09-09-2014 / 00:02:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41 fb48207b6104 Fixes in thread's stack mangement. Dispatch events to applications using their UI event loop. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	54	"Modified: / 17-09-2014 / 22:12:12 / 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	55	!
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	56
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	57	status
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	58	^ status
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	59	! !
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	!GDBThread methodsFor:'initialization'!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	62
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	63	setGroup: aGDBThreadGroup
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	64	self assert: group isNil.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	65	group := aGDBThreadGroup.
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	"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	68	!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	69
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	70	setId: tid
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	71	self assert: id isNil.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	72	id := tid.
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	73	status := GDBThreadStatusRunning theOneAndOnlyInstance
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	74
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	75	"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	76	"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	77	!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	78
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	79	setStatus: aGDBThreadStatus
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	80	status := aGDBThreadStatus.
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	81	status isStopped ifFalse:[
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	82	stack := nil.
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	83	].
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	84
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	85	"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	86	"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	87	!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	88
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	89	setTerminated
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	90	status := GDBThreadStatusTerminated theOneAndOnlyInstance
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	91
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	92	"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	93	"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	94	! !
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	95
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	96	!GDBThread methodsFor:'private'!
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	97
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	98	ensureIsStopped
40 0ce76b671515 Some more support for stack frames. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	99	self isStopped ifFalse:[
39 2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	100	(GDBInvalidObject newException)
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	101	parameter:self;
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	102	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	103	raise.
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	104	].
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	105
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	106	"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	107	"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	108	! !
2b9d2f75906f Some work on execution stack model Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	109
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	110	!GDBThread methodsFor:'testing'!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	111
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	112	isRunning
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	113	^ status isRunning
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	"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	116	!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	117
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	118	isStopped
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	119	^ status isStopped
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	"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	122	!
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	123
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	124	isTerminated
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	125	^ status isTerminated
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	"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	128	! !
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	129

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 18 Sep 2014 09:32:30 +0100
changeset 41	fb48207b6104
parent 40	0ce76b671515
child 43	22236b6d1d9a
permissions	-rw-r--r--