equal
deleted
inserted
replaced
19 "{ Package: 'jv:libgdbs' }" |
19 "{ Package: 'jv:libgdbs' }" |
20 |
20 |
21 "{ NameSpace: Smalltalk }" |
21 "{ NameSpace: Smalltalk }" |
22 |
22 |
23 GDBInternalEvent subclass:#GDBExitEvent |
23 GDBInternalEvent subclass:#GDBExitEvent |
24 instanceVariableNames:'status' |
24 instanceVariableNames:'status trace' |
25 classVariableNames:'' |
25 classVariableNames:'' |
26 poolDictionaries:'' |
26 poolDictionaries:'' |
27 category:'GDB-Core-Events' |
27 category:'GDB-Core-Events' |
28 ! |
28 ! |
29 |
29 |
56 "Return the GDB process exit status (if known)" |
56 "Return the GDB process exit status (if known)" |
57 |
57 |
58 ^ status |
58 ^ status |
59 |
59 |
60 "Modified (comment): / 04-02-2018 / 20:24:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
60 "Modified (comment): / 04-02-2018 / 20:24:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
61 ! |
|
62 |
|
63 trace |
|
64 ^ trace |
61 ! ! |
65 ! ! |
62 |
66 |
63 !GDBExitEvent methodsFor:'initialization'! |
67 !GDBExitEvent methodsFor:'initialization'! |
64 |
68 |
65 setStatus: anOSProcessStatus |
69 setStatus: anOSProcessStatus |
66 status := anOSProcessStatus |
70 status := anOSProcessStatus |
67 |
71 |
68 "Created: / 04-02-2018 / 20:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
72 "Created: / 04-02-2018 / 20:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
73 ! |
|
74 |
|
75 setTrace: GDBMITrace |
|
76 trace:= GDBMITrace |
|
77 |
|
78 "Created: / 28-05-2018 / 22:58:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69 ! ! |
79 ! ! |
70 |
80 |