73 ! |
73 ! |
74 |
74 |
75 label |
75 label |
76 ^ String streamContents:[ :aStream | |
76 ^ String streamContents:[ :aStream | |
77 aStream nextPutAll:(breakpoint enabled ifTrue:[ 'e ' ] ifFalse:[ 'd ' ]). |
77 aStream nextPutAll:(breakpoint enabled ifTrue:[ 'e ' ] ifFalse:[ 'd ' ]). |
78 breakpoint number printOn:aStream. |
78 |
79 aStream nextPutAll:', '. |
79 (breakpoint type = 'watchpoint' or:[ breakpoint type = 'hw watchpoint' ]) ifTrue:[ |
80 breakpoint func notNil ifTrue:[ |
80 | location | |
81 aStream nextPutAll:'in '. |
81 |
82 breakpoint func printOn:aStream. |
82 aStream nextPutAll: 'W '. |
83 aStream nextPutAll:'(), '. |
83 breakpoint number printOn:aStream. |
84 ]. |
84 aStream nextPutAll:', '. |
85 breakpoint file notNil ifTrue:[ |
85 |
86 breakpoint file printOn:aStream. |
86 aStream nextPutAll:'at '. |
87 aStream nextPut:$:. |
87 location := breakpoint propertyAt: 'what'. |
88 breakpoint line printOn:aStream. |
88 aStream nextPutAll: location ? '??'. |
89 ] ifFalse:[ |
89 ] ifFalse:[ |
90 aStream nextPutAll:'at 0x'. |
90 aStream nextPutAll: 'B '. |
91 breakpoint addr printOn: aStream radix: 16 |
91 breakpoint number printOn:aStream. |
92 ]. |
92 aStream nextPutAll:', '. |
|
93 |
|
94 breakpoint func notNil ifTrue:[ |
|
95 aStream nextPutAll:'in '. |
|
96 breakpoint func printOn:aStream. |
|
97 aStream nextPutAll:'(), '. |
|
98 ]. |
|
99 breakpoint file notNil ifTrue:[ |
|
100 breakpoint file printOn:aStream. |
|
101 aStream nextPut:$:. |
|
102 breakpoint line printOn:aStream. |
|
103 ] ifFalse:[ |
|
104 | addr | |
|
105 |
|
106 addr := breakpoint addr. |
|
107 addr isNil ifTrue:[ |
|
108 aStream nextPutAll:'at ??'. |
|
109 ] ifFalse:[addr isInteger ifTrue:[ |
|
110 aStream nextPutAll:'at 0x'. |
|
111 addr printOn: aStream radix: 16 |
|
112 ] ifFalse:[ |
|
113 addr printOn: aStream |
|
114 ]]. |
|
115 ]. |
|
116 ] |
93 ]. |
117 ]. |
94 |
118 |
95 "Created: / 10-07-2017 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
119 "Created: / 10-07-2017 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
96 "Modified: / 16-01-2019 / 23:59:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120 "Modified: / 21-01-2019 / 21:13:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
97 ! |
121 ! |
98 |
122 |
99 subject |
123 subject |
100 "Return an instance of GDB object that this presenter displays." |
124 "Return an instance of GDB object that this presenter displays." |
101 |
125 |