Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25090
Modified Files:
dis486.f
Log Message:
arm: rework of disassembler, simplify, correct some formatting bugs, now does prefix
operations (specifically 16 bit) correctly
Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** dis486.f 22 Mar 2007 02:08:33 -0000 1.16
--- dis486.f 11 Apr 2007 20:20:28 -0000 1.17
***************
*** 97,101 ****
[char] + emit $. \ and the non-zero offset
else space then
! else drop $.
then ;
--- 97,101 ----
[char] + emit $. \ and the non-zero offset
else space then
! else drop $s.
then ;
[...1085 lines suppressed...]
2dup - 0> \ anything left?
***************
*** 1147,1153 ****
next-inst c@ $c3 = if cr inst then
." ( end )" 2drop
! dup >name n>tfa c@ tdef = if \ if it's a defer
defer@ recurse \ do again for deferred word
! else drop then ;
: see ( <name> -- )
--- 1119,1127 ----
next-inst c@ $c3 = if cr inst then
." ( end )" 2drop
! dup >name n>tfa c@ tdef <> if \ if it's not a defer
! drop
! else
defer@ recurse \ do again for deferred word
! then ;
: see ( <name> -- )
|
