Description: Correct some typographical and grammatical errors. Forwarded: not-yet Author: Peter Pentchev Last-Update: 2017-01-09 --- a/INSTALL.DOS +++ b/INSTALL.DOS @@ -5,7 +5,7 @@ MS-DOS: You need DJ Delorie's port of GCC to DOS (DJGPP 2.0) to compile -Gforth. DJGPP provides a DPMI client that allows to use the 32-bit +Gforth. DJGPP provides a DPMI client that allows you to use the 32-bit features of the 80386, but on the other hand it requires at least a 386. A DPMI host is also part of the DJGPP 2.0 package, this is required if you don't have a DPMI host yourself (Windows/OS/2/Linux @@ -54,11 +54,11 @@ Compiling under DOS or OS/2 has a number of quirks, and if it doesn't compile out of the box, you should know what you do. I therefore -discourage unexperienced users to compile gforth themselves. There's a +discourage inexperienced users from compiling gforth themselves. There's a binary package for it anyway. Compiling using CygWin32 works a bit better, but there are still -quirks. The package allows to "mount" Windows directories under +quirks. The package allows you to "mount" Windows directories under typical unix locations. E.g. I installed the package in E:\cygnus, and then I mount /usr, /usr/local and /bin with @@ -107,7 +107,7 @@ make bench and compare them with the results in Benchres and in the manual. DOS -and OS/2 don't allow to run the benchmarks, since the command TIME +and OS/2 don't allow you to run the benchmarks, since the command TIME means something different there. Don't try to do "make install" there, it won't work, either. It is not @@ -120,7 +120,7 @@ Use / instead of \ in your gforth source directory. Gforth now uses ';' as path separator for DOS and OS/2 (not for Cygwin32), so you -won't have problems with DOS pathes that may contain ':', which is the +won't have problems with DOS paths that may contain ':', which is the default path separator in Unix. Use ~+ for the current directory. For paper documentation, print gforth.ps (a Postscript file (300dpi --- a/NEWS +++ b/NEWS @@ -71,7 +71,7 @@ OPEN-LIB now understands ~ at the start, like OPEN-FILE. TRY...ENDTRY changed significantly, compatibility files available (see docs). The disassembler (DISCODE) can now use gdb to disassemble code - Uninitialized defered words now give a warning when executed + Uninitialized deferred words now give a warning when executed Division is floored (disable with "configure --enable-force-cdiv") Gforth (not gforth-fast) reports division by zero and overflow on division on all platforms. --- a/README +++ b/README @@ -4,8 +4,8 @@ decompiler and a powerful locals facility, and it even has a manual. Gforth combines traditional implementation techniques with newer techniques for portability and performance: its inner -interpreter is direct threaded with several optimizations, but you can -also use a traditional-style indirect threaded interpreter. Gforth is +interpreter is direct-threaded with several optimizations, but you can +also use a traditional-style indirect-threaded interpreter. Gforth is distributed under the GNU General Public license (see COPYING). Gforth runs under GNU, BSD, and similar systems, MS Windows, MacOS X, @@ -90,7 +90,7 @@ *.fi Forth image files (start with "gforth -i ") *.fb Forth blocks file (load with "use 1 load") *.i C include files -*.ds documenation source +*.ds documentation source *TAGS etags files A number of Forth source files are included in this package that are --- a/ToDo +++ b/ToDo @@ -54,7 +54,7 @@ **use the Foreign Language Interface to make X-Windows support *Program Development Environment -Issues: Convenience, portability across plattforms, compatibility with +Issues: Convenience, portability across platforms, compatibility with existing tools (Emacs, F-PC) ** Decompiler and Debugger need debugging --- a/answords.fs +++ b/answords.fs @@ -6,7 +6,7 @@ \ by Norman Smith. \ The format is: -\ answord word-name wordset pronounciation \ dpans6-section dpans6-page +\ answord word-name wordset pronunciation \ dpans6-section dpans6-page \ I replaced the wordset name FLOATING (EXT) with FLOAT (EXT) @@ -380,4 +380,4 @@ answord [THEN] TOOLS-EXT bracket-then \ 15.6.2.2533 116 answord \ CORE-EXT backslash \ 6.2.2535 58 answord \ BLOCK-EXT backslash \ 7.6.2.2535 64 -answord ] CORE right-bracket \ 6.1.2540 49 \ No newline at end of file +answord ] CORE right-bracket \ 6.1.2540 49 --- a/arch/386/asm.fs +++ b/arch/386/asm.fs @@ -29,7 +29,7 @@ \ in .86 mode .w is the default size, in .386 mode .d is default \ .wa and .da change address size. .b, .w(a) and .d(a) are not \ switches like in my assem68k, they are prefixes. -\ [A-D][L|H] implicitely set the .b size. So +\ [A-D][L|H] implicitly set the .b size. So \ AH AL mov \ generates a byte move. Sure you need .b for memory operations \ like .b ax ) inc which is inc BYTE PTR [eAX] --- a/arch/4stack/asm.fs +++ b/arch/4stack/asm.fs @@ -115,7 +115,7 @@ move? 0= IF finish 4 instfield ! THEN instfield @ lastmove ! !inst ; -: !br ( 10bit likelyhood -- addr ) +: !br ( 10bit likelihood -- addr ) br? 0= abort" No Data in Branch!" alu? IF 4 instfield ! THEN >r !inst ibuf 2@ 2 r> 3 and 2* 2* + 0 2or ibuf 2! 4here ; @@ -171,7 +171,7 @@ $FFFFFFFFFFFFC1FF , $FFFFFFFFFFFFFE0F , -: !cond ( n -- ) condfield @ 3 > abort" too much conds!" +: !cond ( n -- ) condfield @ 3 > abort" too many conds!" $1F and 3 condfield @ - 5 * 4 + lshift ibuf cell+ @ condmasks condfield @ cells + @ and or ibuf cell+ ! 1 condfield +! @@ -389,7 +389,7 @@ 3s0 3s1 3s2 3s3 :D -\ relativ to current stack 21jan94py +\ relative to current stack 21jan94py : curstack: ( 5bit -- ) Create , DOES> @ >curstack !stack ; @@ -400,12 +400,12 @@ %10010 curstack: s2 %10011 curstack: s3 -\ Abbrevations 21jan94py +\ Abbreviations 21jan94py ' #$7FFFFFFF Alias #max ' #$80000000 Alias #min -\ FP abbrevations 21jan94py +\ FP abbreviations 21jan94py [A] : fabs and #max ; @@ -413,7 +413,7 @@ : f2* add c3 ; : f2/ sub c3 ; -\ ALU abbrevations 21jan94py +\ ALU abbreviations 21jan94py : nop or #0 ; : not xor #-1 ; @@ -421,7 +421,7 @@ : inc sub #-1 ; : dec add #-1 ; -\ Stack abbrevations 21jan94py +\ Stack abbreviations 21jan94py : dup pick s0 ; : over pick s1 ; --- a/arch/amd64/asm.fs +++ b/arch/amd64/asm.fs @@ -31,7 +31,7 @@ \ in .amd64 mode .q is default size. \ .wa, .da, and .qa change address size. .b, .w(a) and .d(a) are not \ switches like in my assem68k, they are prefixes. -\ [A-D][L|H] implicitely set the .b size. So +\ [A-D][L|H] implicitly set the .b size. So \ AH AL mov \ generates a byte move. Sure you need .b for memory operations \ like .b ax ) inc which is inc BYTE PTR [eAX] --- a/arch/misc/prim.fs +++ b/arch/misc/prim.fs @@ -68,7 +68,7 @@ End-Label \ The virtual machine registers an data (stacks) go -\ to a seperate memory region (hopefully ram) +\ to a separate memory region (hopefully ram) \ UNLOCK \ current-region vm-memory activate ( saved-region ) --- a/arch/power/asm.fs +++ b/arch/power/asm.fs @@ -32,7 +32,7 @@ 1 cells 8 = [if] : h, ( h -- ) \ 32 bit store + allot -\ dup hex. \ uncoment this for testing with the test_asm.py script +\ dup hex. \ uncomment this for testing with the test_asm.py script here here aligned = if 32 lshift here ! --- a/arch/power/disasm.fs +++ b/arch/power/disasm.fs @@ -128,7 +128,7 @@ : disasm-unknown ( addr w -- addr w flag ) \ used to init tables for instructions with opcode 31, since there are forms \ the XO starts from 22,30 and also 21,30 , this word will put a flag on the - \ stack which signiliasies wheter the word for disasm-22,30, disasm-21,30 or + \ stack which signifies whether the word for disasm-22,30, disasm-21,30 or \ disasm-21,29 (i.e. opcode 31) should be invoked. true ; --- a/arch/r8c/asm.fs +++ b/arch/r8c/asm.fs @@ -17,7 +17,7 @@ \ You should have received a copy of the GNU General Public License \ along with this program. If not, see http://www.gnu.org/licenses/. \ -\ Autor: Heinz Schnitter (hfs) +\ Author: Heinz Schnitter (hfs) \ \ Information: \ @@ -113,7 +113,7 @@ \ %0000 2 M: [SP] -\ two cells are used for each adress mode in the table: +\ two cells are used for each address mode in the table: \ \ cell 1 contains the src and dst MODE# searched for. \ --- a/arch/r8c/prim.fs +++ b/arch/r8c/prim.fs @@ -36,13 +36,13 @@ \ hfs wichtig, damit der erste Befehl richtig compiliert wird reset \ hfs - \ system depending macros + \ system-dependent macros : next1, [w] , r1 mov.w:g r3r1 jmpi.a ; : next, [ip] , w mov.w:g # 2 , ip add.w:q next1, ; -\ note that this is really for 8086 and 286, and _not_ intented to run +\ note that this is really for 8086 and 286, and _not_ intended to run \ fast on a Pentium (Pro). These old chips load their code from real RAM \ and do it slow, anyway. \ If you really want to have a fast 16 bit Forth on modern processors, @@ -343,7 +343,7 @@ next, End-Code - \ moving datas between stacks + \ moving data between stacks Code r> ( -- n ; R: n -- ) tos push.w:g rp , w mov.w:g @@ -439,7 +439,7 @@ end-code \ ============================================================== -\ usefull lowlevel words +\ useful low-level words \ ============================================================== \ word definitions @@ -643,7 +643,7 @@ next, End-Code - \ additon io routines + \ additional io routines Code (key?) ( -- f ) \ check for read sio character tos push.w:g 3 , $AD btst:g --- a/arch/shboom/compiler.fs +++ b/arch/shboom/compiler.fs @@ -180,8 +180,8 @@ dup $9A = IF EXIT THEN \ r> dup _push.b = IF EXIT THEN \ push.b ? dup _push.l = IF EXIT THEN \ push.l ? - \ we count for fillers - \ too much fillers means we have a forward reference!! + \ we count the fillers + \ too many fillers means we have a forward reference!! dup _filler = IF 1 filler-cnt +! THEN filler-cnt @ 2 u> IF drop true EXIT THEN 020 u< \ branch? @@ -317,10 +317,10 @@ Cond: M $num (compile,) ;Cond -Cond: _inline rest 4 <> ABORT" inline statement not at beginning!" +Cond: _inline rest 4 <> ABORT" inline statement not at the beginning!" _skip (compile,) 1 prim, 4 needed ;Cond -Cond: _noinline rest 4 <> ABORT" noinline statement not at beginning!" +Cond: _noinline rest 4 <> ABORT" noinline statement not at the beginning!" _skip (compile,) 0 prim, 4 needed ;Cond : (bd) 4 needed ; ' (bd) is branchto, @@ -412,7 +412,7 @@ r> swap 07 and r> or swap 0 ?DO J I + X c! LOOP rdrop ; IS branchtoresolve, -\ assembler extentions 09aug97jaw +\ assembler extensions 09aug97jaw : parsenum postpone [ --- a/arch/shboom/doers.fs +++ b/arch/shboom/doers.fs @@ -70,7 +70,7 @@ : call-destination \ isolate value dup @ $07FFFFFF and - \ do sign extention if we need to + \ do sign extension if we need to dup $04000000 and IF $F8000000 or THEN \ and resolve offset --- a/arch/shboom/prim.fs +++ b/arch/shboom/prim.fs @@ -166,7 +166,7 @@ \ nochmal testen! \ : pick >r \ -&14 .quad2 -\ ,scache \ wirte all to memory +\ ,scache \ write all to memory \ ,push_sa drop \ r> cells + @ ; --- a/arch/shboom/sh.p +++ b/arch/shboom/sh.p @@ -22,7 +22,7 @@ include cross.fs include ec/shex.fs -\ load compiler extentions +\ load compiler extensions unlock >CROSS include arch/shboom/compiler.fs --- a/asm/bitmask.fs +++ b/asm/bitmask.fs @@ -18,8 +18,8 @@ \ along with this program. If not, see http://www.gnu.org/licenses/. \ This is a tool for building up assemblers. -\ In modern CPU's instrutions there are often some bitfields that -\ sepcify a register, a addressing mode, an immediate value. +\ In modern CPU's instructions there are often some bitfields that +\ specify a register, an addressing mode, an immediate value. \ A value in an instruction word might be represented in one bitfield \ or several bitfields. \ If you code it yourself, you have to think about the right shifting @@ -35,7 +35,7 @@ \ Code Compliance: \ -\ This is for 32 bit and 64 bit systems and for GForth only. +\ This is for 32-bit and 64-bit systems and for GForth only. \ \ Revision Log: @@ -53,7 +53,7 @@ 0 swap 64 0 DO dup 1 and IF swap 1+ swap THEN 1 rshift LOOP drop ; : max/bits ( u -- u2 ) -\G returns the highes number that could be represented by u bits +\G returns the highest number that could be represented by u bits 1 swap lshift 1- ; Variable mli \ masked last i --- a/compat/struct.fs +++ b/compat/struct.fs @@ -44,7 +44,7 @@ : field ( align1 offset1 align size "name" -- align2 offset2 ) \ name execution: addr1 -- addr2 - 2 pick >r \ this uglyness is just for optimizing with dozerofield + 2 pick >r \ this ugliness is just for optimizing with dozerofield create-field r> if \ offset<>0 dofield --- a/configure.in +++ b/configure.in @@ -54,7 +54,7 @@ AC_SUBST(PROFOBJS) AC_ARG_ENABLE(prof, AC_HELP_STRING([--enable-prof], - [ Build gforth-prof, which outputs frequently occuring + [ Build gforth-prof, which outputs frequently occurring sequences of primitives.]), ,enable_prof=no) if test "$enable_prof" != "no"; then @@ -64,8 +64,8 @@ AC_ARG_WITH(debug, [ --with-debug specifies option -g to compile with debug info --without-debug omits the -g switch and creates smaller images on - machines where "strip" has problems with gcc style - debugging informations.], + machines where "strip" has problems with gcc-style + debugging information.], if test "$withval" = "yes"; then DEBUGFLAG=-g; fi) NO_CHECK="" @@ -274,7 +274,7 @@ machine=mips #dynamic native code has the following problems on MIPS: # - #1) J/JAL seems relocatable, but is are only + #1) J/JAL seems relocatable, but is only #relocatable within a 256MB-segment. While we try to #get the linker to arrange this, there is no guarantee #that this will succeed (and if the user uses a lot of @@ -547,7 +547,7 @@ ENGINE_FLAGS= AC_SUBST(ENGINE_FLAGS) -# Try if GCC understands -fno-gcse +# Check whether GCC understands -fno-gcse AC_MSG_CHECKING([if $CC understands -fno-gcse]) CFLAGS_1="$CFLAGS" @@ -556,7 +556,7 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_nogcse) -# Try if GCC understands -fno-strict-aliasing +# Check whether GCC understands -fno-strict-aliasing AC_MSG_CHECKING([if $CC understands -fno-strict-aliasing]) CFLAGS_1="$CFLAGS" CFLAGS="$CFLAGS -fno-strict-aliasing" @@ -564,7 +564,7 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_nostrictaliasing) -# Try if GCC understands -fno-crossjumping +# Check whether GCC understands -fno-crossjumping AC_MSG_CHECKING([if $CC understands -fno-crossjumping]) CFLAGS_1="$CFLAGS" CFLAGS="$CFLAGS -fno-crossjumping" @@ -572,7 +572,7 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_nocrossjumping) -# Try if GCC understands -fno-reorder-blocks +# Check whether GCC understands -fno-reorder-blocks AC_MSG_CHECKING([if $CC understands -fno-reorder-blocks]) CFLAGS_1="$CFLAGS" CFLAGS="$CFLAGS -fno-reorder-blocks" @@ -580,7 +580,7 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_noreorder_blocks) -# Try if GCC understands -falign-labels=1 +# Check whether GCC understands -falign-labels=1 AC_MSG_CHECKING([if $CC understands -falign-labels=1]) CFLAGS_1="$CFLAGS" CFLAGS="$CFLAGS -falign-labels=1" @@ -588,7 +588,7 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_align_labels) -# Try if GCC understands -falign-loops=1 +# Check whether GCC understands -falign-loops=1 AC_MSG_CHECKING([if $CC understands -falign-loops=1]) CFLAGS_1="$CFLAGS" CFLAGS="$CFLAGS -falign-loops=1" @@ -596,7 +596,7 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_align_loops) -# Try if GCC understands -falign-jumps=1 +# Check whether GCC understands -falign-jumps=1 AC_MSG_CHECKING([if $CC understands -falign-jumps=1]) CFLAGS_1="$CFLAGS" CFLAGS="$CFLAGS -falign-jumps=1" @@ -604,13 +604,13 @@ CFLAGS="$CFLAGS_1" AC_MSG_RESULT($ac_align_jumps) -# Try if GCC understands __attribute__((unused)) +# Check whether GCC understands __attribute__((unused)) AC_MSG_CHECKING([how to suppress 'unused variable' warnings]) AC_TRY_COMPILE(,[int __attribute__((unused)) foo;], MAYBE_UNUSED='__attribute__((unused))',) AC_DEFINE_UNQUOTED(MAYBE_UNUSED,$MAYBE_UNUSED,[attribute for possibly unused variables]) AC_MSG_RESULT($MAYBE_UNUSED) -#try if m4 understands -s +# Check whether m4 understands -s AC_MSG_CHECKING([how to invoke m4]) if m4 -s /dev/null >/dev/null 2>&1; then M4="m4 -s" @@ -623,7 +623,7 @@ # Find installed Gforth AC_MSG_CHECKING([for gforth]) GFORTH="`cd / && which gforth 2>/dev/null`" -#the "$srcdir" = "." test defends agains the "../" bug in gforth-0.6.2 +#the "$srcdir" = "." test defends against the "../" bug in gforth-0.6.2 (cd / && $GFORTH -e bye >/dev/null 2>/dev/null && test "$srcdir" = ".") || GFORTH="" if test -z "$GFORTH"; then PREFORTH='echo "You need to configure with a gforth in \$PATH to build this part" && false' --- a/cross.fs +++ b/cross.fs @@ -23,7 +23,7 @@ ToDo: - Crossdoc destination ./doc/crossdoc.fd makes no sense when - cross.fs is used seperately. jaw + cross.fs is used separately. jaw - Do we need this char translation with >address and in branchoffset? (>body also affected) jaw @@ -71,8 +71,8 @@ >CROSS -\ Test against this definitions to find out whether we are cross-compiling -\ may be usefull for assemblers +\ Test against this definition to find out whether we are cross-compiling +\ may be useful for assemblers 0 Constant gforth-cross-indicator \ find out whether we are compiling with gforth @@ -177,7 +177,7 @@ THEN ; : s>number ( addr len -- d ) - \ don't use this, there is no way to tell success + \ don't use this, there is no way to determine success s>number? drop ; : snumber? ( c-addr u -- 0 / n -1 / d 0> ) @@ -214,7 +214,7 @@ >CROSS -hex \ the defualt base for the cross-compiler is hex !! +hex \ the default base for the cross-compiler is hex !! \ Warnings off \ words that are generaly useful @@ -239,7 +239,7 @@ save-input bl word >r restore-input throw r> count get-current search-wordlist IF drop >r - \ we have to set current to be topmost context wordlist + \ we have to set current to the topmost context wordlist get-order get-order get-current swap 1+ set-order r> ['] to execute set-order @@ -283,7 +283,7 @@ This implements debugflags for the cross compiler and the compiled images. It works identical to the has-flags in the environment. -The debugflags are defined in a vocabluary. If the word exists and +The debugflags are defined in a vocabulary. If the word exists and its value is true, the flag is switched on. [THEN] @@ -369,7 +369,7 @@ \ -Changing the search-path: \ fpath+ adds a directory to the searchpath \ fpath= | makes complete now searchpath -\ seperator is | +\ separator is | \ .fpath displays the search path \ remark I: \ a ./ in the beginning of filename is expanded to the directory the @@ -771,7 +771,7 @@ Plugin leave, ( -- ) Plugin ?leave, ( -- ) -Plugin ca>native \ Convert a code address to the processors +Plugin ca>native \ Convert a code address to the processor's \ native address. This is used in doprim, and \ code/code: primitive definitions word to \ convert the addresses. @@ -893,7 +893,7 @@ Variable last-header-ghost \ last ghost definitions with header \ space for ghosts resolve structure -\ we create ghosts in a sepearte space +\ we create ghosts in a separate space \ and not to the current host dp, because this \ gives trouble with instant while compiling and creating \ a ghost for a forward reference @@ -1036,7 +1036,7 @@ drop >in ! ELSE >in ! THEN - \ we keep the execution semantics of the prviously + \ we keep the execution semantics of the previously \ defined words, this is a workaround \ for the redefined \ until vocs work Make-Ghost ; @@ -1070,7 +1070,7 @@ \ if this address is an xt, this field points to the ghost cell% field addr-xt-ghost \ a bit mask that tells as what part of the cell - \ is refenced from an address pointer, used for assembler generation + \ is referenced from an address pointer, used for assembler generation cell% field addr-refs End-Struct addr-struct @@ -1211,7 +1211,7 @@ \ \ Create additional parameters 19jan95py \ currently cross only works for host machines with address-unit-bits -\ eual to 8 because of s! and sc! +\ equal to 8 because of s! and sc! \ but I start to query the environment just to modularize a little bit : check-address-unit-bits ( -- ) @@ -2060,7 +2060,7 @@ : restrict restrict-mask flag! ; : isdoer -\G define a forth word as doer, this makes obviously only sence on +\G define a forth word as doer, this makes obviously only sense on \G forth processors such as the PSC1000 last-header-ghost @ >magic ! ; >CROSS @@ -2428,9 +2428,9 @@ : (lit,) ( n -- ) s>d dlit, ; ' (lit,) plugin-of lit, -\ if we dont produce relocatable code alit, defaults to lit, jaw +\ if we don't produce relocatable code alit, defaults to lit, jaw \ this is just for convenience, so we don't have to define alit, -\ seperately for embedded systems.... +\ separately for embedded systems.... T has? relocate H [IF] : (alit,) ( n -- ) compile lit T a, H ; ' (alit,) plugin-of alit, @@ -2703,7 +2703,7 @@ swap >do:ghost @ 2dup swap >do:ghost ! \ we use the >exec2 field for the semantic of a created word, \ using exec or exec2 makes no difference for normal cross-compilation - \ but is usefull for instant where the exec field is already + \ but is useful for instance when the exec field is already \ defined (e.g. Vocabularies) 2dup >exec @ swap >exec2 ! >comp @ swap >comp ! ; @@ -2732,7 +2732,7 @@ dup >created on dup to created 2dup takeover-x-semantics there 0 T a, H alias-mask flag! - \ store poiter to code-field + \ store pointer to code-field switchram T cfalign H there swap T ! H there tlastcfa ! @@ -2966,10 +2966,10 @@ \ this section defines different compilation \ actions for created words \ this will help the peephole optimizer -\ I (jaw) took this from bernds latest cross-compiler -\ changes but seperated it from the original +\ I (jaw) took this from bernd's latest cross-compiler +\ changes but separated it from the original \ Builder words. The final plan is to put this -\ into a seperate file, together with the peephole +\ into a separate file, together with the peephole \ optimizer for cross @@ -3366,7 +3366,7 @@ : $nb, ( adr len -- ) bounds ?DO I c@ nb, LOOP ; : @nb name-ptr @ name-buf tuck - ; -\ stores a usefull string representation of the character +\ stores a useful string representation of the character \ in the name buffer : name-char, ( c -- ) dup 'a 'z 1+ within IF nb, EXIT THEN @@ -3400,9 +3400,9 @@ : label-from-ghostname ( ghost -- addr len ) dup >ghostname init-name-buf 'L nb, bounds ?DO I c@ name-char, LOOP - \ we add the address to a name to make in unique + \ we add the address to a name to make it unique \ because one name may appear more then once - \ there are names (e.g. boot) that may be reference from other + \ there are names (e.g. boot) that may be referenced from other \ assembler source files, so we declare them as unique \ and don't add the address suffix dup >ghost-flags @ and 0= @@ -3477,7 +3477,7 @@ IF print-bytes THEN save-asm-region-part-aligned dup dup X aligned swap - ?dup - IF 2 pick @relbit ABORT" relocated field splitted" + IF 2 pick @relbit ABORT" relocated field split" print-bytes THEN 2drop ; @@ -3489,11 +3489,11 @@ tuck over - ; : skip-nolables ( taddr -- taddr2 taddr len ) -\G skips memory region where no lables are defined +\G skips memory region where no labels are defined \G starting from taddr+1 \G Labels will be introduced for each reference mark \G in addr-refs. -\G This word deals with lables at byte addresses as well. +\G This word deals with labels at byte addresses as well. \G The main idea is to have an intro part which \G skips until the next cell boundary, the middle part \G which skips whole cells very efficiently and the third @@ -3569,7 +3569,7 @@ >MINIMAL also minimal -\ Usefull words 13feb93py +\ Useful words 13feb93py : KB 400 * ; @@ -3668,7 +3668,7 @@ \G interprets the line if word is defined tdefined? 0= IF postpone \ THEN ; -: \? ( -- "envorinstring" ) +: \? ( -- "environstring" ) \G Skip line if environmental variable evaluates to false X has? 0= IF postpone \ THEN ; @@ -3796,7 +3796,7 @@ \ Sets the unique flag for a ghost. The assembler output \ generates labels with the ghostname concatenated with the address \ while cross-compiling. The address is concatenated -\ because we have double occurences of the same name. +\ because we have double occurrences of the same name. \ If we want to reference the labels from the assembler or C \ code we declare them unique, so the address is skipped. Ghost >ghost-flags dup @ or swap ! ; @@ -3821,7 +3821,7 @@ : G ghosts ; immediate -\ these ones are pefered: +\ these ones are preferred: : unlock previous forth also cross ; --- a/ec/shex.fs +++ b/ec/shex.fs @@ -17,7 +17,7 @@ \ You should have received a copy of the GNU General Public License \ along with this program. If not, see http://www.gnu.org/licenses/. -\ this is a extention to cross.fs to save motorola s-records +\ this is a extension to cross.fs to save motorola s-records \ the first part is generic to output s-records from and to any \ destination \ the second part is for the cross compiler --- a/kernel/comp.fs +++ b/kernel/comp.fs @@ -19,7 +19,7 @@ \ \ Revisions-Log -\ put in seperate file 14sep97jaw +\ put in separate file 14sep97jaw \ \ here allot , c, A, 17dec92py @@ -288,7 +288,7 @@ : !does ( addr -- ) \ gforth store-does latestxt does-code! ; -\ !! unused, but ifdefed/gosted in some places +\ !! unused, but ifdefed/ghosted in some places : (does>) ( R: addr -- ) r> cfaligned /does-handler + !does ; \ !! no gforth-native --- a/kernel/int.fs +++ b/kernel/int.fs @@ -19,7 +19,7 @@ \ \ Revision-Log -\ put in seperate file 14sep97jaw +\ put in separate file 14sep97jaw \ \ input stream primitives 23feb93py @@ -196,7 +196,7 @@ THEN ; : s>number ( addr len -- d ) - \ don't use this, there is no way to tell success + \ don't use this, there is no way to determine success s>number? drop ; : snumber? ( c-addr u -- 0 / n -1 / d 0> ) @@ -759,7 +759,7 @@ : query ( -- ) \ core-ext \G Make the user input device the input source. Receive input into \G the Terminal Input Buffer. Set @code{>IN} to zero. OBSOLESCENT: - \G superceeded by @code{accept}. + \G superceded by @code{accept}. [ has? file [IF] ] blk off loadfile off [ [THEN] ] @@ -1134,7 +1134,7 @@ cold [ [THEN] ] [ has? os [IF] ] - 1 (bye) \ !! determin exit code from throw code? + 1 (bye) \ !! determine exit code from throw code? [ [THEN] ] ; --- a/kernel/paths.fs +++ b/kernel/paths.fs @@ -20,7 +20,7 @@ \ -Changing the search-path: \ fpath+ adds a directory to the searchpath \ fpath= | makes complete now searchpath -\ seperator is | +\ separator is | \ .fpath displays the search path \ remark I: \ a ./ in the beginning of filename is expanded to the directory the @@ -28,7 +28,7 @@ \ ~+/ loads from the current working directory \ remark II: -\ if there is no sufficient space for the search path increase it! +\ if there is not sufficient space for the search path increase it! \ -Creating custom paths: --- a/kernel/tools.fs +++ b/kernel/tools.fs @@ -1,4 +1,4 @@ -\ TOOLS.FS Toolkit extentions 2may93jaw +\ TOOLS.FS Toolkit extensions 2may93jaw \ Copyright (C) 1995,1998,1999,2001,2003,2006,2007 Free Software Foundation, Inc. --- a/libcc.fs +++ b/libcc.fs @@ -448,7 +448,7 @@ .\" }\n" ; : scan-back { c-addr u1 c -- c-addr u2 } - \ the last occurence of c in c-addr u1 is at u2-1; if it does not + \ the last occurrence of c in c-addr u1 is at u2-1; if it does not \ occur, u2=0. c-addr 1- c-addr u1 + 1- u-do i c@ c = if --- a/other.fs +++ b/other.fs @@ -1,4 +1,4 @@ -\ OTHER.FS Ansforth extentions for CROSS 9may93jaw +\ OTHER.FS Ansforth extensions for CROSS 9may93jaw \ Copyright (C) 1995,1998,2000,2003,2007 Free Software Foundation, Inc. --- a/prims2x0.6.2.fs +++ b/prims2x0.6.2.fs @@ -42,7 +42,7 @@ \ the alternative \ store optimization for combined instructions. -\ Design Uglyness: +\ Design Ugliness: \ - global state (values, variables) in connection with combined instructions. @@ -178,7 +178,7 @@ cell% field item-stack \ descriptor for the stack used, 0 is default cell% field item-type \ descriptor for the item type cell% field item-offset \ offset in stack items, 0 for the deepest element - cell% field item-first \ true if this is the first occurence of the item + cell% field item-first \ true if this is the first occurrence of the item end-struct item% struct% @@ -298,7 +298,7 @@ create min-depth max-stacks cells allot create sp-update-in max-stacks cells allot -\ where max-depth occured the first time +\ where max-depth occurred the first time create max-depths max-stacks max-combined 1+ * cells allot \ maximum depth at start of each part: array[parts] of array[stack] create max-back-depths max-stacks max-combined 1+ * cells allot @@ -959,7 +959,7 @@ : output-forth ( -- ) prim prim-forth-code @ 0= IF \ output-alias - \ this is bad for ec: an alias is compiled if tho word does not exist! + \ this is bad for ec: an alias is compiled if the word does not exist! \ JAW ELSE ." : " prim prim-name 2@ type ." ( " prim prim-stack-string 2@ type ." )" cr --- a/see-ext.fs +++ b/see-ext.fs @@ -1,4 +1,4 @@ -\ see-ext.fs extentions for see locals, floats +\ see-ext.fs extensions for see locals, floats \ Copyright (C) 1995,1996,1997,2003,2007 Free Software Foundation, Inc.