equal
deleted
inserted
replaced
155 label |
155 label |
156 ^String streamContents:[ :s | |
156 ^String streamContents:[ :s | |
157 (parent notNil and:[ parent askFor: #isInstructionsAndSourcePresenter ]) ifTrue:[ |
157 (parent notNil and:[ parent askFor: #isInstructionsAndSourcePresenter ]) ifTrue:[ |
158 s next: parent lineDigitsToDisplay put: Character space. |
158 s next: parent lineDigitsToDisplay put: Character space. |
159 ]. |
159 ]. |
160 instruction address printOn: s base: 16 size: 16 fill: $0. |
160 instruction opcodes isEmpty ifTrue: [ |
|
161 s next: 16 put: Character space. |
|
162 ] ifFalse: [ |
|
163 instruction address printOn: s base: 16 size: 16 fill: $0. |
|
164 ]. |
161 s space. |
165 s space. |
162 s nextPutAll: instruction assembly withTabsExpanded |
166 s nextPutAll: instruction assembly withTabsExpanded |
163 ] |
167 ] |
164 |
168 |
165 "Created: / 22-06-2018 / 12:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
169 "Created: / 22-06-2018 / 12:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
166 "Modified: / 30-01-2019 / 11:33:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
170 "Modified: / 30-01-2019 / 11:33:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
171 "Modified: / 26-07-2022 / 13:04:40 / Jan Vrany <jan.vrany@labware.com>" |
167 ! ! |
172 ! ! |
168 |
173 |
169 !VDBInstructionPresenter methodsFor:'testing'! |
174 !VDBInstructionPresenter methodsFor:'testing'! |
170 |
175 |
171 isInstructionPresenter |
176 isInstructionPresenter |