github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 20:27:45 +00:00
Code Issues Projects Releases Wiki Activity

Fix typos. (#196)

Browse Source
This commit is contained in:
Bruce Mitchener
2021-01-09 12:42:11 +07:00
committed by GitHub
parent 0e3d3acd4e
commit 16c6b8f7c3
13 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/foreign.c
View File

@@ -92,7 +92,7 @@ typedef int (*PFP)(); /* Pointer to Function returning a Pointer */
/* 1 is the result type */
/* 2 is the error return flag: 0=no errors. 1 if there's */
/* some problem */
/* 3 is the lenght of the arglist passed */
/* 3 is the length of the arglist passed */
/* 4 is the pointer to the smasher place or 0 if return */
/* 5-n the arglist types */
/* args[1-<number-of-args+1>]: arguments */
@@ -355,12 +355,12 @@ LispPTR call_c_fn(LispPTR *args) {
/* 1 is the result type */
/* 2 is the error return flag: 0=no errors. 1 if there's */
/* some problem */
/* 3 is the lenght of the arglist passed */
/* 3 is the length of the arglist passed */
/* 4-n the arglist types */
/* args[1]: Smashing place */
/* args[2 - <number-of-args+1>]: arguments */
/* */
/* This is an aboration. It is only implemented on the speciffic */
/* This is an aberration. It is only implemented on the specific */
/* request of an influential customer. The things we do for money! */
/* */
/* The result of this functioncall will be smashed into what */

2
src/fp.c
View File

@@ -67,7 +67,7 @@ LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2) {
/* */
/* N _ O P _ f d i f f e r e n c e */
/* */
/* 2-arugment floating-point subtraction. */
/* 2-argument floating-point subtraction. */
/* */
/************************************************************************/

4
src/fvar.c
View File

@@ -305,7 +305,7 @@ void nfvlookup(struct frameex1 *apframe1, register DLword *achain,
1. save TopOfStack to evaluation stack.
2. set address of searching FVAR slot to chain.
3. call lookfor. (It sets some content to FVAR slot)
4. get some address by caluculation of content of FVAR slot.
4. get some address by calculation of content of FVAR slot.
5. set the address to TopOfStack.
**************************************************************************/
LispPTR N_OP_fvarn(register int n)
@@ -333,7 +333,7 @@ N_OP_stkscan
entry STKSCAN OPCODE[057]
<<Enter>>
TopOfStack: Low word - Atom index number of variable to be saned.
TopOfStack: Low word - Atom index number of variable to be scanned.
<<Exit>>
TopOfStack: Address of found value.

4
src/intcall.c
View File

@@ -54,9 +54,9 @@ void cause_interruptcall(register unsigned int atom_index)
/* This used to be >=, but I think that was a change from earlier,
when it was originally >. I changed it back on 2/2/98 to see
if that fixes stack overflow toruble. --JDS */
if that fixes stack overflow trouble. --JDS */
if ((UNSIGNED)(CurrentStackPTR + tmp_fn->stkmin + STK_SAFE) > (UNSIGNED)EndSTKP) {
/*printf("Intrrupt:$$ STKOVER when ");
/*printf("Interrupt:$$ STKOVER when ");
print(atom_index);
printf(" was called *****\n");*/
DOSTACKOVERFLOW(0, -1);

6
src/keyevent.c
View File

@@ -319,7 +319,7 @@ getmore:
while (input_readevent(LispWindowFd, &event) >= 0) {
/*if(!kb_event( &event )) {goto getmore;};*/
if ((KBDEventFlg += kb_event(&event)) > 0) {
/* immidiately request for IRQ check */
/* immediately request for IRQ check */
Irq_Stk_End = Irq_Stk_Check = 0;
}
}
@@ -639,8 +639,8 @@ void taking_mouse_down() {
}
#endif /* COLOR */
/* LastCursorClippingX must be set brfore calling
To avoid duplicate caluculation */
/* LastCursorClippingX must be set before calling
To avoid duplicate calculation */
#ifndef COLOR
/* FOR MONO ONLY */
void copy_cursor(int newx, int newy)

6
src/llstk.c
View File

@@ -241,10 +241,10 @@ int do_stackoverflow(int incallp) {
/* Call MOVEFRAME directly */
if ((newfx = (DLword)moveframe(CURRENTFX)) == 0xFFFF) {
/* To make immidiately call HARDRESET */
/* To make immediately call HARDRESET */
Irq_Stk_Check = 0;
Irq_Stk_End = 0;
return (1); /* Whole space exausted */
return (1); /* Whole space exhausted */
}
/* Return from MOVEFRAME directly */
@@ -514,7 +514,7 @@ void flip_cursorbar(int n) {
/**************************************************************/
void blt(register DLword *dest68k, register DLword *source68k, int nw) {
/******* OLD def ,
Due to C compiler's bug, we can't use pre-decriment for register val
Due to C compiler's bug, we can't use pre-decrement for register val
source68k += nw;
dest68k += nw;
while(nw)

4
src/mnwevent.c
View File

@@ -146,7 +146,7 @@ void HandleMotion(Widget widget, WindowInterface wif, XMotionEvent *xevent, Bool
/* printf("mouse x %d, y %d\n", xevent->x_root, xevent->y_root); */
DoRing();
if ((KBDEventFlg) > 0) {
/* immidiately request for IRQ check */
/* immediately request for IRQ check */
Irq_Stk_End = Irq_Stk_Check = 0;
}
}
@@ -441,7 +441,7 @@ void getMNWsignaldata(int fd)
(*((DLword *)EmMouseY68K)) = *EmCursorY68K = report.xmotion.y_root;
DoRing();
if ((KBDEventFlg) > 0) {
/* immidiately request for IRQ check */
/* immediately request for IRQ check */
Irq_Stk_End = Irq_Stk_Check = 0;
}
} break;

2
src/return.c
View File

@@ -97,7 +97,7 @@ void contextsw(register DLword fxnum, register DLword bytenum, register DLword f
#endif
if (!(fxnum == SubovFXP)) {
/* interrupt disable during execting [special] function
/* interrupt disable during executing [special] function
invoked by contextsw(\KEYHANDLER,\RESETSTACK,FAULT)
*/
}

2
src/timer.c
View File

@@ -781,7 +781,7 @@ and do a 'v' before trying anything else.";
/* */
/* i n t _ p a n i c _ i n i t */
/* */
/* A catch for all the deadly interupts (but KILL, of course) */
/* A catch for all the deadly interrupts (but KILL, of course) */
/* Dumps you into uraid; you probably can't get back from it, */
/* but there is hope that you will be able to poke around with */
/* uraid and get a clue about why you're dying. */