Menu
▾
▴
[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.31,1.32
|
From: Alex M. <ale...@us...> - 2007-03-13 23:49:38
|
Update of /cvsroot/win32forth/win32forth-stc/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6466/src/kernel Modified Files: gkernel.f Log Message: arm: minor mods to disassembler; show offsets as signed hex Index: gkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** gkernel.f 1 Feb 2007 23:02:02 -0000 1.31 --- gkernel.f 13 Mar 2007 23:49:34 -0000 1.32 *************** *** 3354,3358 **** --- 3354,3362 ---- mov eax, esi next; + + : base@ ( n -- base n ) base @ ; + : base! ( base -- ) base ! ; + : (.$) ( -- ) [char] $ emit ; : "HOLD ( addr len -- ) dup negate hld +! hld @ swap move ; : #s ( d1 -- d2 ) begin # 2dup or 0= until ; *************** *** 3364,3372 **** : u. ( u -- ) 0 d. ; : u.r ( u w -- ) 0 swap d.r ; ! : h. ( u -- ) base @ swap hex u. base ! ; : ? ( addr -- ) @ . ; : .id ( nfa -- ) count type space ; ! : 10. ( u -- ) base @ swap decimal . base ! ; \ display number in decimal ! : $. ( u -- ) [char] $ emit h. ; \ display $hex \ -------------------- Header structure as of Aug 2005 ---------------------- --- 3368,3377 ---- : u. ( u -- ) 0 d. ; : u.r ( u w -- ) 0 swap d.r ; ! : h. ( u -- ) base@ swap hex u. base! ; : ? ( addr -- ) @ . ; : .id ( nfa -- ) count type space ; ! : 10. ( n -- ) base@ swap decimal . base! ; \ display number in decimal ! : $. ( u -- ) (.$) h. ; \ display $hex ! : $s. ( n -- ) (.$) base@ swap hex . base! ; \ display signed $hex \ -------------------- Header structure as of Aug 2005 ---------------------- |
