fix gdb on freebsd

2008-03-30 12:21:44 -05:00 · 2008-03-30 12:21:44 -05:00 · d367dc8462
parent ea12d45337
commit d367dc8462
1 changed files with 4 additions and 1 deletions
--- a/extra/tools/disassembler/disassembler.factor
+++ b/extra/tools/disassembler/disassembler.factor
@ -26,11 +26,14 @@ M: pair make-disassemble-cmd
 M: method-spec make-disassemble-cmd
    first2 method make-disassemble-cmd ;

+: gdb-binary ( -- string )
+    os "freebsd" = "gdb66" "gdb" ? ;
+
 : run-gdb ( -- lines )
    <process>
        +closed+ >>stdin
        out-file >>stdout
-        [ "gdb" , "-x" , in-file , "-batch" , ] { } make >>command
+        [ gdb-binary , "-x" , in-file , "-batch" , ] { } make >>command
    try-process
    out-file ascii file-lines ;