Fix GDB-based disassemble for GDB 7

diff --git a/basis/tools/disassembler/gdb/gdb.factor b/basis/tools/disassembler/gdb/gdb.factor
index dda666ce6a38dffa0cefe8ea3726142a6cfa63a4..3e06aead9fd3396fea8adbd412416fae558b53bc 100644 (file)
--- a/basis/tools/disassembler/gdb/gdb.factor
+++ b/basis/tools/disassembler/gdb/gdb.factor
@@ -3,7 +3,7 @@
 USING: io.files io.files.temp io words alien kernel math.parser
 alien.syntax io.launcher assocs arrays sequences namespaces make
 system math io.encodings.ascii accessors tools.disassembler
-tools.disassembler.private ;
+tools.disassembler.private locals ;
 IN: tools.disassembler.gdb
 
 SINGLETON: gdb-disassembler
@@ -12,12 +12,12 @@ SINGLETON: gdb-disassembler
 
 : out-file ( -- path ) "gdb-out.txt" temp-file ;
 
-: make-disassemble-cmd ( from to -- )
+:: make-disassemble-cmd ( from to -- )
     in-file ascii [
         "attach " write
         current-process-handle number>string print
-        "disassemble " write
-        [ number>string write bl ] bi@
+        "x/" write to from - 4 / number>string write
+        "i" write bl from number>string write
     ] with-file-writer ;
 
 : gdb-binary ( -- string ) "gdb" ;