Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21126
Modified Files:
dis486.f
Log Message:
arm: correct 3 addr form of imul (opcode 69/6B) disassembly error
Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** dis486.f 2 May 2007 05:53:57 -0000 1.18
--- dis486.f 10 May 2007 06:28:16 -0000 1.19
***************
*** 76,80 ****
0 value dis.16bit \ start in 32 bit mode
0 value dis.base-addr \ no offset by default
! 0 value dis.size \ size of data in opcode
0 value dis.data16 \ 16 bit data
0 value dis.addr16 \ 16 bit address
--- 76,80 ----
0 value dis.16bit \ start in 32 bit mode
0 value dis.base-addr \ no offset by default
! 0 value dis.size \ size of data in opcode (false=8bit reg, true=16/32bit reg)
0 value dis.data16 \ 16 bit data
0 value dis.addr16 \ 16 bit address
***************
*** 477,483 ****
: bnd ( addr op -- addr' ) .sop" bound" drop 1 to dis.size r,r/m ;
: arp ( addr op -- addr' ) .sop" arpl" drop true to dis.data16 1 to dis.size r,r/m ;
! : mli ( addr op -- addr' )
1 to dis.size
! .sop" imul" swap r,r/m ., bit1 if .imm8 else .imm16/32 then ;
\ -------------------- Jumps and Calls --------------------
--- 477,483 ----
: bnd ( addr op -- addr' ) .sop" bound" drop 1 to dis.size r,r/m ;
: arp ( addr op -- addr' ) .sop" arpl" drop true to dis.data16 1 to dis.size r,r/m ;
! : mli ( addr op -- addr' ) \ 3 addr form of imul
1 to dis.size
! .sop" imul" swap r,r/m ., swap bit1 if .imm8 else .imm16/32 then ;
\ -------------------- Jumps and Calls --------------------
|
