2 

     3 !Block methodsFor:'accessing'!

     4 

     5 dbgVariableTableBlock

     6     "Return a variable table block describing variables of

     7      this method (including those of inlined blocks)."     

     8 

     9     | varTable |

    10 

    11     varTable := self homeMethod dbgVariableTable.

    12     ^ varTable lookupBlock:sourcePos.

    13 

    14     "Created: / 15-07-2018 / 11:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    15     "Modified (comment): / 15-07-2018 / 17:12:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    16 ! !

    17 

    18 !Context methodsFor:'accessing'!

    19 

    20 dbgVariableTableBlock

    21     "Returns a table describing variables of this context (as `DIVariableBlock`)"

    22     

    23     ^ method dbgVariableTableBlock

    24 

    25     "Created: / 15-07-2018 / 11:52:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    26     "Modified: / 15-07-2018 / 16:09:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    27 ! !

    28 

    29 !Method methodsFor:'accessing'!

    30 

    31 dbgInfo

    32     "Returns debug info for this method or `nil` if not debug info

    33      available."

    34 

    35     | l |

    36 

    37     l := self at: 1.

    38     ^ l isByteArray ifTrue:[ DIInfo decode: l readStream ] ifFalse:[ nil ].

    39 

    40     "

    41     (Smalltalk class >> #loadPackage:asAutoloaded:) dbgInfo

    42     "

    43 

    44     "Created: / 10-07-2018 / 13:11:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    45     "Modified (comment): / 15-07-2018 / 17:10:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    46 ! !

    47 

    48 !Method methodsFor:'accessing'!

    49 

    50 dbgVariableTable

    51     ^ self dbgInfo dbgVariableTable

    52 

    53     "Created: / 15-07-2018 / 11:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    54 ! !

    55 

    56 !Method methodsFor:'accessing'!

    57 

    58 dbgVariableTableBlock

    59     "Return a variable table block describing variables of

    60      this method (including those of inlined blocks)."

    61 

    62     | varTable |

    63 

    64     varTable := self dbgVariableTable.

    65     ^ varTable lookupBlock:0.

    66 

    67     "Created: / 15-07-2018 / 11:53:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    68     "Modified (comment): / 15-07-2018 / 17:12:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    69 ! !