@@ -30,7 +30,7 @@ eregs:
* defined in $(TARG).c
* the_exception_frame can be accessed from paflof through
* the word eregs
- * in the case an excpetion is handled paflof will read
+ * in the case an exception is handled paflof will read
* from eregs the values of all registers and print them
* out in the exception handler */
.quad the_exception_frame
@@ -16,7 +16,7 @@ VARIABLE chosen-memory-ih 0 chosen-memory-ih !
\ Maintain "available" property.
\ Sun has a single memory node with "available" property
\ and separate memory controller nodes.
-\ We corespond memory nodes with their respective memory controllers
+\ We correspond memory nodes with their respective memory controllers
\ and use /chosen/memory as default memory node to hold the "available" map
\ NOTE -> /chosen/memory is expected 2B initialized before using claim/release
\ +
@@ -553,11 +553,11 @@ defer cursor-off ( -- )
: reset-all reboot ;
\ load-base is an env. variable now, but it can
-\ be overriden temporarily provided users use
+\ be overridden temporarily provided users use
\ get-load-base rather than load-base directly
\
\ default-load-base is set here and can be
-\ overriden by the board code. It will be used
+\ overridden by the board code. It will be used
\ to set the default value of the envvar "load-base"
\ when booting without a valid nvram
@@ -178,7 +178,7 @@ VARIABLE mem-pre-released 0 mem-pre-released !
\ position
\ +
\ insert-available should also check adjacent elements and merge if new
-\ region is contiguos w. others
+\ region is contiguous with others
\ +
: (insert-available) ( available-ptr -- available-ptr )
dup \ current element
@@ -175,7 +175,7 @@
new-token
;
-\ decide wether or not to give a new token an own name in the dictionary
+\ decide whether or not to give a new token an own name in the dictionary
: named-token
fcode-debug? IF
external-token
@@ -98,7 +98,7 @@ localsstackbuf VALUE localsstack
: fc-pop-locals ( -- )
\ ." popping locals" cr
localsstack 8 cells - TO localsstack
- localsstack localsstackbuf - 0 < ABORT" Locals stack undeflow!"
+ localsstack localsstackbuf - 0 < ABORT" Locals stack underflow!"
;
@@ -38,7 +38,7 @@ new-device set-unit ( str len )
s" 0 pci-alias-" 2swap $cat evaluate
s" block" device-type
-\ Requiered interface for deblocker
+\ Required interface for deblocker
s" block-size" $call-parent CONSTANT block-size
s" max-transfer" $call-parent CONSTANT max-transfer
@@ -349,7 +349,7 @@ d# 10 CONSTANT MAX-ALIAS
ELSE 2drop list-alias THEN THEN ;
\ sub-alias does a single iteration of an alias at the beginning od dev path
-\ expression. de-alias will repeat this until all indirect alising is resolved
+\ expression. de-alias will repeat this until all indirect aliasing is resolved
: sub-alias ( arg-str arg-len -- arg' len' | false )
2dup
2dup [char] / findchar ?dup IF ELSE 2dup [char] : findchar THEN
@@ -109,7 +109,7 @@ INSTANCE VARIABLE index
;
-\ This method coverts the iso file name to user readble form
+\ This method converts the ISO file name to user readable form
: file-name ( str len -- str' len' )
2dup [char] ; findchar IF
@@ -169,7 +169,7 @@ INSTANCE VARIABLE index
;
-\ METHOD for searching for a file with in a direcotory
+\ METHOD for searching for a file with in a directory
: search-file-dir ( str len -- TRUE | FALSE )
dir-addr @ 800 * dir-addr ! ( str len )
@@ -48,7 +48,7 @@ s" dma-function.fs" included
\ this device and so for the scanning for the devices behind
pci-device-disable
-\ Enalbe #PERR and #SERR reporting
+\ Enable #PERR and #SERR reporting
pci-error-enable
\ Print out device information
@@ -95,7 +95,7 @@ s" dma-function.fs" included
\ if Bus Master function is needed it should be enabled/disabled by open/close in the device driver code
pci-device-disable
-\ Enalbe #PERR and #SERR reporting
+\ Enable #PERR and #SERR reporting
pci-error-enable
\ Print out device information
@@ -128,13 +128,13 @@
THEN
;
-\ check wether this device is a pci-express device
+\ check whether this device is a pci-express device
: pci-express? ( addr -- 0|1 ) 10 pci-cap-find 0<> ;
-\ check wether this device is a pci-express device
+\ check whether this device is a pci-express device
: pci-x? ( addr -- 0|1 ) 07 pci-cap-find 0<> ;
-\ check wether this device has extended config space
+\ check whether this device has extended config space
: pci-config-ext? ( addr -- 0|1 ) pci-express? ;
@@ -668,7 +668,7 @@
: pci-bridge-generic-setup ( addr -- )
pci-device-slots >r \ save the slot array on return stack
dup pci-common-props \ set the common properties before scanning the bus
- s" pci" device-type \ the type is allways "pci"
+ s" pci" device-type \ the type is always "pci"
dup func-pci-bridge-probe \ find all device connected to it
dup assign-all-bridge-bars \ set up all memory access BARs
dup pci-set-irq-line \ set the interrupt pin
@@ -679,7 +679,7 @@
DEFER func-pci-device-props
-\ used for an gerneric device set up
+\ used for an generic device set up
\ if a device has no special handling for setup
\ the device file (pci-device_VENDOR_DEVICE.fs) can call
\ this word to setup the device
@@ -265,7 +265,7 @@ DEFER func-pci-bridge-probe
;
\ check for multifunction and for each function
-\ (dependig from header type) call device or bridge setup
+\ (depending from header type) call device or bridge setup
: pci-setup-device ( addr -- )
dup pci-htype@ \ read HEADER-Type
80 and IF 8 ELSE 1 THEN \ check for multifunction
@@ -44,7 +44,7 @@ VARIABLE chosen-cpu-ihandle
: chosen-cpu-unit ( -- ret ) chosen-cpu-ihandle @ ihandle>phandle >unit ;
-\ Look for an exising root, create one if needed
+\ Look for an existing root, create one if needed
" /" find-node dup 0= IF
drop
new-device
@@ -43,7 +43,7 @@
>r \ stash #retries
to rcmd-cmd-len to rcmd-cmd-addr to rcmd-dir to rcmd-buf-len to rcmd-buf-addr
0 \ dummy status & sense
- r> \ retreive #retries ( stat #retries )
+ r> \ retrieve #retries ( stat #retries )
0 DO
\ drop previous status & sense
0<> IF 2drop THEN
@@ -107,7 +107,7 @@ VARIABLE stdout
false
ELSE
1 - \ remove 1 from length to ignore null-termination char
- \ device_type found, check wether it is serial or keyboard
+ \ device_type found, check whether it is serial or keyboard
2dup s" serial" str= IF
2drop serial-key? r> drop EXIT
THEN \ call serial-key, cleanup return-stack, exit
@@ -561,7 +561,7 @@ PRIM(STRING_X3d_CI)
}
MIRP
-// bool dependend pick
+// bool dependent pick
// ?PICK ( v1 v2 bool -- v1|v2 )
PRIM(_X3f_PICK)
type_u b = TOS.u; POP;
Found with the "codespell" utility. I kept "busses" which codespell also complains about since it seems to be an old but still valid plural of the word "bus". Signed-off-by: Thomas Huth <thuth@redhat.com> --- slof/entry.S | 2 +- slof/fs/available.fs | 2 +- slof/fs/base.fs | 4 ++-- slof/fs/claim.fs | 2 +- slof/fs/fcode/1275.fs | 2 +- slof/fs/fcode/locals.fs | 2 +- slof/fs/generic-disk.fs | 2 +- slof/fs/node.fs | 2 +- slof/fs/packages/iso-9660.fs | 4 ++-- slof/fs/pci-bridge.fs | 2 +- slof/fs/pci-device.fs | 2 +- slof/fs/pci-helper.fs | 6 +++--- slof/fs/pci-properties.fs | 4 ++-- slof/fs/pci-scan.fs | 2 +- slof/fs/root.fs | 2 +- slof/fs/scsi-host-helpers.fs | 2 +- slof/fs/term-io.fs | 2 +- slof/prim.code | 2 +- 18 files changed, 23 insertions(+), 23 deletions(-)