Virtualization
/
SLOF
mirror of https://gitlab.com/qemu-project/SLOF.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Spelling fixes in forth code 

Signed-off-by: Stefan Weil <sw@weilnetz.de>
Signed-off-by: Nikunj A Dadhania <nikunj@linux.vnet.ibm.com>
This commit is contained in:
Stefan Weil 2012-12-24 09:47:48 +01:00 committed by Nikunj A Dadhania
parent 32f32a72bb
commit f564e52f44
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
board-js2x/slof/pci-device_1002_515e.fs
View File

@ -391,10 +391,10 @@ pllwriteoff
_color h# B4 reg-rl!
;
: SET-COLORS ( addr index #indicies -- )
: SET-COLORS ( addr index #indices -- )
swap h# B0 pc!
( addr #indicies ) 0 ?do dup ( index ) i 3 * + DO-COLOR loop
( addr #indices ) 0 ?do dup ( index ) i 3 * + DO-COLOR loop
( addr ) drop ;
: init-card

2
slof/fs/usb/usb-storage-support.fs
View File

@ -17,7 +17,7 @@ s" entered usb-storage-support.fs" usb-debug-print
\ ---------------------------------------------------------------------------
: rw-endpoint
( pt ed-type toggle buffer length mps addres -- toggle TRUE | toggle FALSE )
( pt ed-type toggle buffer length mps address -- toggle TRUE | toggle FALSE )
s" rw-endpoint" $call-parent
( toggle TRUE | toggle FALSE )
;