hg/jv-libgdbs: GDBThreadGroup.st@deb908479a37 (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:#GDBThreadGroup
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:'id pid exit_code threads'
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
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!GDBThreadGroup class methodsFor:'instance creation'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	12	newWithDebugger: debugger id: aString
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	13	^ self new setDebugger: debugger; setId: aString; yourself
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	15	"Created: / 07-09-2014 / 21:18:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	!GDBThreadGroup 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	19
45 deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	20	description
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	21	^ (super description)
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	22	define:#id as:String;
deb908479a37 Code refactored to use Magritte to meta-describe GDB objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 43 diff changeset	23	define:#pid as:Integer;
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	yourself
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	"Created: / 06-09-2014 / 02:21:51 / 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	27	! !
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	!GDBThreadGroup methodsFor:'accessing'!
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	exitCode
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	^ exit_code
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	"Created: / 07-09-2014 / 12:34:44 / 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	35	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	id
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	^ id
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	pid
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	^ pid
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	45	threadWithId: tid
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	46	^ threads ? #() detect:[:e \| e isDead not and:[ e id = tid ] ] ifNone:[
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	47	self error: ('No thread with id ''%1'' found!!' bindWith: tid)
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	48	].
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	49
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	50	"Created: / 07-09-2014 / 21:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	51	"Modified: / 22-09-2014 / 01:23:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	52	!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	53
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	threads
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	threads isNil ifTrue:[
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	threads := List new.
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	^ threads
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	"Modified: / 06-09-2014 / 02:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	61	"Modified (format): / 07-09-2014 / 21:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	64	!GDBThreadGroup methodsFor:'event handling'!
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	65
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	66	onThreadCreatedEvent:aGDBThreadCreatedEvent
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	67	\| thread \|
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	68
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	69	threads isNil ifTrue:[
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	70	threads := List new.
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	].
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	72	thread := GDBThread
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	73	newWithDebugger:debugger
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	74	id:aGDBThreadCreatedEvent threadId
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	75	group:self.
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	76	threads add:thread.
a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	77	aGDBThreadCreatedEvent setThread:thread.
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	78
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	79	"Created: / 07-09-2014 / 21:25:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	80	!
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
37 a85f0c91f164 Some more work on threads (thread status) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	82	onThreadExitedEvent:aGDBThreadExitedEvent
36 095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	83	\| thread \|
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	84
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	85	thread := self threadWithId:aGDBThreadExitedEvent threadId.
095c4b0b74d3 Added support for threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 35 diff changeset	86	thread setTerminated.
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	87	aGDBThreadExitedEvent setThread:thread.
36 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	"Created: / 07-09-2014 / 21:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	90	"Modified: / 22-09-2014 / 00:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	!GDBThreadGroup methodsFor:'initialization'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	setExitCode: anInteger
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	exit_code := anInteger.
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	97	threads removeAll
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	"Created: / 06-09-2014 / 02:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	100	"Modified: / 22-09-2014 / 01:23:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	setId: aString
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	id := aString.
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	"Created: / 06-09-2014 / 02:32:33 / 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	107	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	setPid: anInteger
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	pid := anInteger.
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	exit_code := nil.
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	"Created: / 06-09-2014 / 02:32:38 / 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	114	"Modified: / 07-09-2014 / 12:34:58 / 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	115	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116
43 22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	117	!GDBThreadGroup methodsFor:'printing & storing'!
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	118
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	119	printOn:aStream
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	120	"append a printed representation if the receiver to the argument, aStream"
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	121
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	122	aStream nextPutAll:'thread group '.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	123	id printOn:aStream.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	124	aStream nextPutAll:' pid '.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	125	pid printOn:aStream.
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	126
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	127	"Modified: / 22-09-2014 / 01:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	128	! !
22236b6d1d9a Remove threads from thread group when threadgroup terminates. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	129
35 c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	!GDBThreadGroup methodsFor:'private'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	threadAdd: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	self threads add: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	"Created: / 06-09-2014 / 02:23:47 / 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	136	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	threadRemove: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	self threads remove: aGDBThread
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	"Created: / 06-09-2014 / 02:23:58 / 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	142	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	!GDBThreadGroup methodsFor:'testing'!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	isDead
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	^ exit_code notNil
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	"Created: / 06-09-2014 / 02:38:31 / 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	150	!
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	isRunning
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	^ pid notNil and: [ exit_code isNil ].
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	"Created: / 06-09-2014 / 02:38:18 / 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	156	! !
c17ecf90e446 Initial support for thread groups, threads and breakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 23 Sep 2014 23:48:13 +0100
changeset 45	deb908479a37
parent 43	22236b6d1d9a
child 51	2fa20404923c
permissions	-rw-r--r--