From 91e94a8438e68143b0c913fd6d8c2f1a15c2f950 Mon Sep 17 00:00:00 2001
From: Erik Charlebois <erikcharlebois@gmail.com>
Date: Thu, 19 May 2011 18:28:10 -0400
Subject: [PATCH] Fix GDB-based disassemble for GDB 7

---
 basis/tools/disassembler/gdb/gdb.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/tools/disassembler/gdb/gdb.factor b/basis/tools/disassembler/gdb/gdb.factor
index dda666ce6a..3e06aead9f 100644
--- 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" ;