equal
deleted
inserted
replaced
1 "{ Package: 'jv:vdb/plugins/bee' }" |
1 "{ Package: 'jv:vdb/plugins/bee' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 GDBObject subclass:#BeeSymbol |
5 GDBDebuggerObject subclass:#BeeSymbol |
6 instanceVariableNames:'name addr size' |
6 instanceVariableNames:'name addr size' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'VDB-Plugin-Bee-Model' |
9 category:'VDB-Plugin-Bee-Model' |
10 ! |
10 ! |
27 ^ addr |
27 ^ addr |
28 ! |
28 ! |
29 |
29 |
30 addr:something |
30 addr:something |
31 addr := something. |
31 addr := something. |
|
32 ! |
|
33 |
|
34 disassemble |
|
35 | result disassembly arch | |
|
36 |
|
37 result := debugger send: (GDBMI_data_disassemble arguments: (Array with: '-s' with: addr with: '-e' with: addr + size with: '--' with: 5)). |
|
38 |
|
39 disassembly := result propertyAt: 'asm_insns'. |
|
40 arch := GDBArchitecture named: 'i386:x86-64'. |
|
41 disassembly do:[:each | each setDebugger: debugger; setArchitecture: arch ]. |
|
42 ^ disassembly |
|
43 |
|
44 "Created: / 10-06-2019 / 10:30:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
45 "Modified: / 10-06-2019 / 11:34:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
32 ! |
46 ! |
33 |
47 |
34 name |
48 name |
35 ^ name |
49 ^ name |
36 ! |
50 ! |