Virtualization/openbios
1
0
Fork 0
mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00
Code Issues Projects Releases Wiki Activity

Implement "$=" to compare two strings (needed by BootX)

Browse Source 
git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@572 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Laurent Vivier
2009-08-29 20:42:22 +00:00
parent 2db781a446
commit 3e457210bd
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
forth/bootstrap/bootstrap.fs
View File

@@ -533,6 +533,20 @@ variable leaves 0 leaves !
drop
;
\ compare two string
: $= ( str1 len1 str2 len2 -- true|false )
rot ( str1 str2 len2 len1 )
over ( str1 str2 len2 len1 len2 )
<> if ( str1 str2 len2 )
3drop
false
else ( str1 str2 len2 )
comp
0=
then
;
\ : +! tuck @ + swap ! ;
: off false swap ! ;
: on true swap ! ;