[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.13,1.14 meta-fkernel.f,1.1,1.2

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23246/src/kernel

Modified Files:
	fkernel.f meta-fkernel.f 
Log Message:
arm: rename word str(nc)= to istr= (case insensitive compare)
add id headers to assembler files
modifications to disassembler to allow reassembley from generated text
move LDP inline to system area
correct comment in meta compiler

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** fkernel.f	3 May 2005 13:19:49 -0000	1.13
--- fkernel.f	2 Jun 2005 21:14:55 -0000	1.14
***************
*** 1419,1423 ****
                  next    c;
  
! CODE STR(NC)=   ( adr1 len1 adr2 len2 -- flag ) \ compares two strings, case insensitive
                  mov     -4 [ebp], esi           \ save esi
                  pop     edi                     \ edi=adr2
--- 1419,1423 ----
                  next    c;
  
! CODE ISTR=      ( adr1 len1 adr2 len2 -- flag ) \ compares two strings, case insensitive
                  mov     -4 [ebp], esi           \ save esi
                  pop     edi                     \ edi=adr2
***************
*** 5010,5014 ****
                      ' LOCAL10 , ' LOCAL11 ,
  
! | CREATE LDP  0 , 0 , 0 , DP-LINK LINK, ," LOCALS"  \ locals pointer
  
  in-system
--- 5010,5014 ----
                      ' LOCAL10 , ' LOCAL11 ,
  
! | CREATE LDP  0 , 0 , 0 , DP-LINK LINK, ," *LOCALS"  \ locals pointer
  
  in-system
***************
*** 5391,5395 ****
                  tiblen    +     (source) cell+ !
                  sys-size if                            \ when not turnkeyed
!                   locals-len malloc to LOCALS-AREA \ allocate buffers
                    LOCALS-VOCINIT                   \ initialise
                  then
--- 5391,5395 ----
                  tiblen    +     (source) cell+ !
                  sys-size if                            \ when not turnkeyed
!                   sys-here locals-len sys-allot to LOCALS-AREA \ allocate buffers
                    LOCALS-VOCINIT                   \ initialise
                  then
***************
*** 5732,5734 ****
  ' ?THROW        RESOLVES ?THROW
  ' WARNMSG       RESOLVES WARNMSG
-