fix gdb on freebsd
parent
ea12d45337
commit
d367dc8462
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue