fix gdb on freebsd

db4
sheeple 2008-03-30 12:21:44 -05:00
parent ea12d45337
commit d367dc8462
1 changed files with 4 additions and 1 deletions

View File

@ -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 ;