github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 15:36:34 +00:00
Code Issues Projects Releases Wiki Activity

Fix typos. (#157)

Browse Source
This commit is contained in:
Bruce Mitchener 2021-01-01 23:55:24 +07:00 committed by GitHub
parent b31ac48ed0
commit fc3908f19a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
14 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
inc/inlnPS2.h
View File

@ -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 */

2
inc/inlndos.h
View File

@ -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 */

6
inc/lsptypes.h
View File

@ -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 */

4
src/dir.c
View File

@ -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

2
src/dsk.c
View File

@ -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.

2
src/gcmain3.c
View File

@ -27,7 +27,7 @@
/* */
/* */
/*************************************************************************/
/* Descreption : */
/* Description : */
/* */
/*************************************************************************/
/* \Tomtom */

2
src/gcoflow.c
View File

@ -21,7 +21,7 @@
/* gcmaptable(arg); */
/* */
/*************************************************************************/
/* Descreption : */
/* Description : */
/* */
/*************************************************************************/
/* \Tomtom */

6
src/gcr.c
View File

@ -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. */
/****************************************************************/

2
src/gcrcell.c
View File

@ -27,7 +27,7 @@
/* */
/* */
/*************************************************************************/
/* Descreption : */
/* Description : */
/* */
/* The functions "gcreccell" and "freelistcell" are the translated */
/* functions from the Lisp functions "\GCRECLAIMCELL" that is the UFN */

4
src/gcscan.c
View File

@ -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 */

2
src/loopsops.c
View File

@ -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 */;

12
src/ocr.c
View File

@ -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() {

2
src/unixcomm.c
View File

@ -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 */

2
src/uutils.c
View File

@ -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) {