From fc3908f19abe6e499e2d370d17085c781967afa9 Mon Sep 17 00:00:00 2001 From: Bruce Mitchener Date: Fri, 1 Jan 2021 23:55:24 +0700 Subject: [PATCH] Fix typos. (#157) --- inc/inlnPS2.h | 2 +- inc/inlndos.h | 2 +- inc/lsptypes.h | 6 +++--- src/dir.c | 4 ++-- src/dsk.c | 2 +- src/gcmain3.c | 2 +- src/gcoflow.c | 2 +- src/gcr.c | 6 +++--- src/gcrcell.c | 2 +- src/gcscan.c | 4 ++-- src/loopsops.c | 2 +- src/ocr.c | 12 ++++++------ src/unixcomm.c | 2 +- src/uutils.c | 2 +- 14 files changed, 25 insertions(+), 25 deletions(-) diff --git a/inc/inlnPS2.h b/inc/inlnPS2.h index dc993b1..f9b1c0f 100755 --- a/inc/inlnPS2.h +++ b/inc/inlnPS2.h @@ -47,7 +47,7 @@ /* ebx tscache - the top-of-stack item. */ /* */ /* */ -/* Rgister conventions within arithmetic functions in the files */ +/* Register conventions within arithmetic functions in the files */ /* arith2.c - arith4.c, etc.: */ /* */ /* esi first argument to the function */ diff --git a/inc/inlndos.h b/inc/inlndos.h index 5880372..1d537a3 100755 --- a/inc/inlndos.h +++ b/inc/inlndos.h @@ -47,7 +47,7 @@ /* ebx tscache - the top-of-stack item. */ /* */ /* */ -/* Rgister conventions within arithmetic functions in the files */ +/* Register conventions within arithmetic functions in the files */ /* arith2.c - arith4.c, etc.: */ /* */ /* esi first argument to the function */ diff --git a/inc/lsptypes.h b/inc/lsptypes.h index 1b1049d..0a8c92a 100755 --- a/inc/lsptypes.h +++ b/inc/lsptypes.h @@ -369,7 +369,7 @@ typedef struct{ /****************************************************************/ #define GETBYTE(base) (* (base)) -/* GETBASEWORD only works if base points to a 32-bit bounday */ +/* GETBASEWORD only works if base points to a 32-bit boundary */ #define GETBASEWORD(base, offset) (* ((base)+(offset))) /* GETWORDBASEWORD works right with base on a 16-bit boundary. */ #define GETWORDBASEWORD(base, offset) (* (((DLword *)(base))+(offset))) @@ -572,7 +572,7 @@ typedef struct /****************************************************************/ #define GETBYTE(base) (* (unsigned char *) (3^(UNSIGNED)(base))) - /* GETBASEWORD only works if base points to a 32-bit bounday */ + /* GETBASEWORD only works if base points to a 32-bit boundary */ #define GETBASEWORD(base, offset) GETWORDBASEWORD((base),(offset)) #define GETWORDBASEWORD(base, offset) (* (DLword *) (2^(UNSIGNED)((base)+(offset)))) #define GETWORD(base) (* (DLword *) (2^(UNSIGNED)(base))) @@ -625,7 +625,7 @@ typedef struct #define GetTypeEntry(address) ( GETWORD(MDStypetbl+((address)>>9)) ) #else - /* Because the 386i's code generator does bettter with them */ + /* Because the 386i's code generator does better with them */ /* in this order (does an add, rather than mov-add) */ /* JDS 22-mar-90 */ diff --git a/src/dir.c b/src/dir.c index 349e8ed..1f77d1d 100644 --- a/src/dir.c +++ b/src/dir.c @@ -343,7 +343,7 @@ void print_finfo(FINFO *fp) * * Argument: None. * - * Value: If suceed, returns 1, otherwise 0. + * Value: If succeed, returns 1, otherwise 0. * * Side Effect: FreeFinfoList will point to the alloced area. MAXFINFO will hold * the total number of allocated instances of FINFO structure. @@ -386,7 +386,7 @@ int init_finfo() { * * Argument: None. * - * Value: If suceed, returns the id of linked list of FINFO structures, + * Value: If succeed, returns the id of linked list of FINFO structures, * otherwise -1. * * Side Effect: If needed, FinfoArray will be extended according to the value of diff --git a/src/dsk.c b/src/dsk.c index ee24908..dba87ff 100644 --- a/src/dsk.c +++ b/src/dsk.c @@ -3366,7 +3366,7 @@ static int get_versionless(FileName *varray, char *file, char *dir) * to which the versionless file is hard linked will * be stored. * int *highest_p - * If to_file is the highest versioned file in varrray, + * If to_file is the highest versioned file in varray, * highest_p will point to 1, otherwise, 0. * * Value: If succeed, returns 1, otherwise, 0. diff --git a/src/gcmain3.c b/src/gcmain3.c index 0692bdc..cbec762 100644 --- a/src/gcmain3.c +++ b/src/gcmain3.c @@ -27,7 +27,7 @@ /* */ /* */ /*************************************************************************/ -/* Descreption : */ +/* Description : */ /* */ /*************************************************************************/ /* \Tomtom */ diff --git a/src/gcoflow.c b/src/gcoflow.c index a8054b5..c8b4366 100644 --- a/src/gcoflow.c +++ b/src/gcoflow.c @@ -21,7 +21,7 @@ /* gcmaptable(arg); */ /* */ /*************************************************************************/ -/* Descreption : */ +/* Description : */ /* */ /*************************************************************************/ /* \Tomtom */ diff --git a/src/gcr.c b/src/gcr.c index 453dbea..a177221 100644 --- a/src/gcr.c +++ b/src/gcr.c @@ -27,8 +27,8 @@ /* This function's role is narrowing the gap between the */ /* contextswitch and the subrcall. */ /* In the original Lisp Source, as the contextswitch process may */ -/* clear the remain area to FSB,there is no problem in scannig stack*/ -/* .But in the subrcall,there isn't such process. */ +/* clear the remain area to FSB, there is no problem in scanning */ +/* stack. But in the subrcall,there isn't such process. */ /* Therefore, the function is required to set the remain stack area */ /* to FSB. And this function does so. */ /* dogc01() */ @@ -112,7 +112,7 @@ void gcarrangementstack(void) { /****************************************************************/ /* The following function is the caller that is the reclaimer. */ /* And, this function is same as \DOGC1 in Lisp because in the */ -/* C's implimentation the contextswitch is not required for the */ +/* C's implementation the contextswitch is not required for the */ /* remaining the system status. */ /****************************************************************/ diff --git a/src/gcrcell.c b/src/gcrcell.c index b7ad5a3..3e1b640 100644 --- a/src/gcrcell.c +++ b/src/gcrcell.c @@ -27,7 +27,7 @@ /* */ /* */ /*************************************************************************/ -/* Descreption : */ +/* Description : */ /* */ /* The functions "gcreccell" and "freelistcell" are the translated */ /* functions from the Lisp functions "\GCRECLAIMCELL" that is the UFN */ diff --git a/src/gcscan.c b/src/gcscan.c index e09a0ff..fac9c86 100644 --- a/src/gcscan.c +++ b/src/gcscan.c @@ -26,7 +26,7 @@ /* gcscan2(probe) */ /* */ /*************************************************************************/ -/* Descreption : */ +/* Description : */ /* */ /* The functions "gcscan1" and "gcscan2" are the translated functions */ /* from the Lisp Functions "\GCSCAN1" & "\GCSCAN2". */ @@ -36,7 +36,7 @@ /* by OPCODES "GCSCAN1" & "GCSCAN2". */ /* */ /* gcscan1 */ -/* INPUT : probe (the startng offset in the HTmain table) */ +/* INPUT : probe (the starting offset in the HTmain table) */ /* OUTPUT : the entry's offset or NIL (no more entry existing) */ /* */ /* gcscan2 */ diff --git a/src/loopsops.c b/src/loopsops.c index 29820a0..3e99393 100644 --- a/src/loopsops.c +++ b/src/loopsops.c @@ -352,7 +352,7 @@ LispPTR lcfuncall(register unsigned int atom_index, register int argnum, registe int rest; /* use for arignments */ register CClosure *closure68k; - if (atom_index == 0xffffffff) error("Loops punt to nonexistant fn"); + if (atom_index == 0xffffffff) error("Loops punt to nonexistent fn"); /* Get Next Block offset from argnum */ CURRENTFX->nextblock = (LADDR_from_68k(CurrentStackPTR) & 0x0ffff) - (argnum << 1) + 4 /* +3 */; diff --git a/src/ocr.c b/src/ocr.c index cb24d7e..e2924f0 100644 --- a/src/ocr.c +++ b/src/ocr.c @@ -292,7 +292,7 @@ INVAL: /* * Subr OCR_COMM: comm = OCR_OPEN * - * Fork OCR process and isssue 'O' command to open OCR device. + * Fork OCR process and issue 'O' command to open OCR device. */ static int ocr_open() { @@ -485,7 +485,7 @@ static void ocr_close() { /* * Subr OCR_COMM: comm = OCR_SCAN * - * Issue 'S' command to start scanning. 'S' commmand returns immediatedly + * Issue 'S' command to start scanning. 'S' command returns immediately * without waiting device to finish scanning. */ @@ -525,7 +525,7 @@ static int ocr_scan(sp) struct ocr_scan_para *sp; * Subr OCR_COMM: comm = OCR_IMG_INFO * * Issue 'I' command to get an information about the image being uploaded. - * 'I' commmand returns immediatedly without waiting OCR process to + * 'I' command returns immediately without waiting OCR process to * finish its work. */ @@ -642,7 +642,7 @@ static int ocr_clr_rpara() { * Subr OCR_COMM: comm = OCR_READ * * Issue 'R' command to start reading. - * 'R' commmand returns immediatedly without waiting OCR process to + * 'R' command returns immediately without waiting OCR process to * finish its work. */ @@ -677,7 +677,7 @@ static int ocr_read() { * SIGUSR1 handler. * * If one of time consuming work is finished by OCR process, SIGUSR1 is signalled. - * Accoding to the waiting reason, do appropriate work, then to notify Lisp. + * According to the waiting reason, do appropriate work, then to notify Lisp. */ static void ocr_sig_handler(sig, code, scp) int sig, code; @@ -811,7 +811,7 @@ static void ocr_read_finish() { } /* - * Set up the interrupt stuff and issue a requst. + * Set up the interrupt stuff and issue a request. */ static void ocr_irq() { diff --git a/src/unixcomm.c b/src/unixcomm.c index a8208ba..c3f3100 100644 --- a/src/unixcomm.c +++ b/src/unixcomm.c @@ -321,7 +321,7 @@ int FindAvailablePty(char *Master, char *Slave) { grantpt(res); unlockpt(res); strcpy(Slave, ptsname(res)); - DBPRINT(("slave pyt name is %s.\n", Slave)); + DBPRINT(("slave pty name is %s.\n", Slave)); #else /* From p to r */ diff --git a/src/uutils.c b/src/uutils.c index 2b9b71f..371ff0a 100644 --- a/src/uutils.c +++ b/src/uutils.c @@ -214,7 +214,7 @@ LispPTR unix_username(LispPTR *args) { * and so did PowerBook Macintosh systems. * "MACH" and "ARCH" both seem to be a mix of instruction set architecture and * system types (rs/6000 used PowerPC). - * The only usage seems to be checking "ARCH" == "dos" and for the existance + * The only usage seems to be checking "ARCH" == "dos" and for the existence * of *any* result from the call, which indicates it's an emulated system. */ LispPTR unix_getparm(LispPTR *args) {