GDBInstruction.st
changeset 261 45c8f1eedf12
parent 260 a1a3e5b7b693
child 272 cdd1c9ad00de
equal deleted inserted replaced
260:a1a3e5b7b693 261:45c8f1eedf12
    71 
    71 
    72     "Created: / 22-06-2018 / 11:10:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    72     "Created: / 22-06-2018 / 11:10:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    73     "Modified: / 03-07-2018 / 14:40:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    73     "Modified: / 03-07-2018 / 14:40:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    74 ! !
    74 ! !
    75 
    75 
    76 
       
    77 !GDBInstruction methodsFor:'accessing'!
    76 !GDBInstruction methodsFor:'accessing'!
    78 
    77 
    79 address
    78 address
    80     ^ address
    79     ^ address
    81 !
    80 !
    95 
    94 
    96 branchTarget
    95 branchTarget
    97     dissection isNil ifTrue:[
    96     dissection isNil ifTrue:[
    98         self dissect
    97         self dissect
    99     ].
    98     ].
   100     ^ dissection branchTarget
    99     ^ dissection branchTargetFrom: address
   101 
   100 
   102     "Created: / 16-08-2018 / 11:13:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   101     "Created: / 16-08-2018 / 11:13:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   103     "Modified: / 16-08-2018 / 14:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   102     "Modified: / 16-08-2018 / 14:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   103     "Modified: / 01-09-2022 / 22:44:04 / Jan Vrany <jan.vrany@labware.com>"
   104 !
   104 !
   105 
   105 
   106 breakpoints
   106 breakpoints
   107     "Return a list of breakpoints a this instructions' address"
   107     "Return a list of breakpoints a this instructions' address"
   108     debugger isNil ifTrue: [ ^ #() ].
   108     debugger isNil ifTrue: [ ^ #() ].