fix gdb on freebsd
parent
ea12d45337
commit
d367dc8462
|
@ -26,11 +26,14 @@ M: pair make-disassemble-cmd
|
||||||
M: method-spec make-disassemble-cmd
|
M: method-spec make-disassemble-cmd
|
||||||
first2 method make-disassemble-cmd ;
|
first2 method make-disassemble-cmd ;
|
||||||
|
|
||||||
|
: gdb-binary ( -- string )
|
||||||
|
os "freebsd" = "gdb66" "gdb" ? ;
|
||||||
|
|
||||||
: run-gdb ( -- lines )
|
: run-gdb ( -- lines )
|
||||||
<process>
|
<process>
|
||||||
+closed+ >>stdin
|
+closed+ >>stdin
|
||||||
out-file >>stdout
|
out-file >>stdout
|
||||||
[ "gdb" , "-x" , in-file , "-batch" , ] { } make >>command
|
[ gdb-binary , "-x" , in-file , "-batch" , ] { } make >>command
|
||||||
try-process
|
try-process
|
||||||
out-file ascii file-lines ;
|
out-file ascii file-lines ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue