Update of /cvsroot/win32forth/win32forth-610old/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/src/kernel
Modified Files:
fkernel.f
Log Message:
gah: changed STR(NC)= to ISTR=
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/fkernel.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** fkernel.f 18 Dec 2004 08:44:33 -0000 1.2
--- fkernel.f 20 Jun 2005 12:25:47 -0000 1.3
***************
*** 1413,1417 ****
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
--- 1413,1417 ----
next c;
! CODE ISTR= ( adr1 len1 adr2 len2 -- flag ) \ compares two strings, case insensitive
mov -4 [ebp], esi \ save esi
pop edi \ edi=adr2
|
