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
- |
