Am Samstag 31 Juli 2010, 02:23:39 schrieb Jay Skeer: > Reading through the docs, I tried one of the examples "see +" and get > a funny bug. After typing "see +" in gforth it seems to be hanging. > Typing control-c control-d <enter> control-c control-d <enter> seems > to get control back to the gforth REPL. My wild guess, something is > different about running gdb under gforth on my system as opposed to > the system(s) where see was developed. I am running ubuntu 10.4, and > include version info about gdb and gforth below in the typescript from > my terminal session. Not a blocking issue for me or anything. Let me > know if there is a better way to report bugs or request help.
Try the attached patch - I've seen the same problem with OpenSuSE 11.3, and fixed in the CVS already. -- Bernd Paysan "If you want it done right, you have to do it yourself" http://www.jwdt.com/~paysan/
Index: dis-gdb.fs
===================================================================
RCS file: /usr/local/lib/cvs-repository/src-master/gforth/dis-gdb.fs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- dis-gdb.fs 1 Nov 2008 22:19:30 -0000 1.8
+++ dis-gdb.fs 17 Jul 2010 20:25:04 -0000 1.9
@@ -25,7 +25,7 @@
: disasm-gdb { addr u -- }
base @ >r hex
s\" type mktemp >/dev/null && type gdb >/dev/null && file=`mktemp -t gforthdis.XXXXXXXXXX` && file2=`mktemp -t gforthdis.XXXXXXXXXX` && echo \"set verbose off\nset logging file $file\nset logging on\ndisas " save-mem ( addr u addr1 u1 )
- addr 0 <<# bl hold # #s 'x hold # #> append-extend-string #>>
+ addr 0 <<# ',' hold # #s 'x hold # #> append-extend-string #>>
addr u + 0 <<# # #s 'x hold # #> append-extend-string #>>
r> base ! cr
s\" \nset logging off\nquit\n\" >$file2 && gdb -nx -q -p `ps -p $$ -o ppid=` -x $file2 2>/dev/null >/dev/null && rm $file2 && grep -v \"of assembler\" $file && rm $file" append-extend-string
signature.asc
Description: This is a digitally signed message part.
