Update of /cvsroot/win32forth/win32forth-610old/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13857/win32forth-610old/src
Modified Files:
SEE.F
Log Message:
gah: altered .LOCALS and (.LOCALS) to print in reverse order (i.e. correctly)
Index: SEE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/SEE.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SEE.F 14 Dec 2004 23:53:57 -0000 1.1
--- SEE.F 1 Jun 2005 09:56:57 -0000 1.2
***************
*** 114,119 ****
.word .word ;
! : (.LOCALS) ( n m -- )
! ?do i ." LOCAL" 1 .r space loop ;
: .LOCALS ( IP -- IP' )
--- 114,119 ----
.word .word ;
! : (.LOCALS) ( t-1 n -- )
! 0 ?do dup i - ." LOCAL" 1 .r space loop drop ;
: .LOCALS ( IP -- IP' )
***************
*** 121,128 ****
dup 2 + sw@ negate \ init locals ( IP init )
over sw@ negate \ uninit locals ( IP init uninit )
! over 0 (.locals) \ init locals ( IP init uninit init 0 ... do )
! -if ." | " \ if any unit locals ( IP init uninit )
! bounds (.locals)
! else 2drop
then ." } "
CELL+ ;
--- 121,129 ----
dup 2 + sw@ negate \ init locals ( IP init )
over sw@ negate \ uninit locals ( IP init uninit )
! 2dup + 1-
! rot (.locals) \ init locals ( IP uninit total-1 init 0 ... do )
! -if ." | " \ if any unit locals ( IP uninit )
! dup 1- swap (.locals)
! else drop
then ." } "
CELL+ ;
***************
*** 296,297 ****
--- 297,299 ----
MODULE \ end of the module
+ |
