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

Correct procedure declarations since N_OP_xxx function args are all LispPTRs

Browse Source
This commit is contained in:
Nick Briggs
2022-08-13 15:55:11 -07:00
parent 9e2b3eb882
commit 5a7cfcbbe7
8 changed files with 48 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/arithops.c
View File

@@ -23,7 +23,7 @@ N_OP_plus2
return(tos + b)
************************************************************/
LispPTR N_OP_plus2(int tosm1, int tos) {
LispPTR N_OP_plus2(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -58,7 +58,7 @@ doufn:
/* */
/************************************************************************/
LispPTR N_OP_iplus2(int tosm1, int tos) {
LispPTR N_OP_iplus2(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -92,7 +92,7 @@ N_OP_difference
return(a - tos)
************************************************************/
LispPTR N_OP_difference(int tosm1, int tos) {
LispPTR N_OP_difference(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -119,7 +119,7 @@ doufn:
return (N_OP_fdifference(tosm1, tos));
}
LispPTR N_OP_idifference(int tosm1, int tos) {
LispPTR N_OP_idifference(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -150,7 +150,7 @@ N_OP_logxor
return(tosm1 ^ tos)
************************************************************/
LispPTR N_OP_logxor(int tosm1, int tos) {
LispPTR N_OP_logxor(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -169,7 +169,7 @@ N_OP_logand
entry LOGAND2 OPCODE[0345]
return(tosm1 & tos)
************************************************************/
LispPTR N_OP_logand(int tosm1, int tos) {
LispPTR N_OP_logand(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -188,7 +188,7 @@ N_OP_logor
entry LOGOR2 OPCODE[0344]
return(tosm1 | tos)
************************************************************/
LispPTR N_OP_logor(int tosm1, int tos) {
LispPTR N_OP_logor(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -209,7 +209,7 @@ N_OP_greaterp
return(tosm1 > tos)
************************************************************/
LispPTR N_OP_greaterp(int tosm1, int tos) {
LispPTR N_OP_greaterp(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
N_GETNUMBER(tosm1, arg1, do_ufn);
@@ -224,7 +224,7 @@ do_ufn:
return (N_OP_fgreaterp(tosm1, tos));
}
LispPTR N_OP_igreaterp(int tosm1, int tos) {
LispPTR N_OP_igreaterp(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -244,7 +244,7 @@ N_OP_iplusn
entry IPLUS.N OPCODE[0335]
return(tos + n)
************************************************************/
LispPTR N_OP_iplusn(int tos, int n) {
LispPTR N_OP_iplusn(LispPTR tos, int n) {
int arg1;
int result;
@@ -274,7 +274,7 @@ N_OP_idifferencen
entry IDIFFERENCE.N OPCODE[0336]
return(tos - n)
************************************************************/
LispPTR N_OP_idifferencen(int tos, int n) {
LispPTR N_OP_idifferencen(LispPTR tos, int n) {
int arg1;
int result;
@@ -308,7 +308,7 @@ do_ufn:
/* */
/************************************************************************/
LispPTR N_OP_makenumber(int tosm1, int tos) {
LispPTR N_OP_makenumber(LispPTR tosm1, LispPTR tos) {
int result;
if (((tosm1 & 0xFFFF0000) != S_POSITIVE) || ((tos & 0xFFFF0000) != S_POSITIVE)) ERROR_EXIT(tos);
@@ -326,7 +326,7 @@ LispPTR N_OP_makenumber(int tosm1, int tos) {
/* */
/************************************************************************/
LispPTR N_OP_boxiplus(int a, int tos) {
LispPTR N_OP_boxiplus(LispPTR a, LispPTR tos) {
int arg2;
if (GetTypeNumber(a) == TYPE_FIXP) {
@@ -349,7 +349,7 @@ bad:
/* */
/************************************************************************/
LispPTR N_OP_boxidiff(int a, int tos) {
LispPTR N_OP_boxidiff(LispPTR a, LispPTR tos) {
int arg2;
if (GetTypeNumber(a) == TYPE_FIXP) {
@@ -369,7 +369,7 @@ bad:
*/
/**********************************************************************/
LispPTR N_OP_times2(int tosm1, int tos) {
LispPTR N_OP_times2(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -398,7 +398,7 @@ doufn:
} /* end N_OP_times2 */
LispPTR N_OP_itimes2(int tosm1, int tos) {
LispPTR N_OP_itimes2(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -433,7 +433,7 @@ doufn:
*/
/**********************************************************************/
LispPTR N_OP_quot(int tosm1, int tos) {
LispPTR N_OP_quot(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -451,7 +451,7 @@ doufn:
} /* end N_OP_quot */
LispPTR N_OP_iquot(int tosm1, int tos) {
LispPTR N_OP_iquot(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;
@@ -475,7 +475,7 @@ doufn:
*/
/**********************************************************************/
LispPTR N_OP_iremainder(int tosm1, int tos) {
LispPTR N_OP_iremainder(LispPTR tosm1, LispPTR tos) {
int arg1, arg2;
int result;

2
src/bin.c
View File

@@ -31,7 +31,7 @@
#include "lsptypes.h" // for state, ERROR_EXIT, GetTypeNumber, Get_BYTE
#include "stream.h" // for Stream
LispPTR N_OP_bin(register int tos) {
LispPTR N_OP_bin(LispPTR tos) {
register Stream *stream68k; /* stream instance on TOS */
register char *buff68k; /* pointer to BUFF */

2
src/bitblt.c
View File

@@ -59,7 +59,7 @@ extern int MonoOrColor;
/** **/
/*****************************************************************************/
LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos)
LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl, LispPTR tos)
{
PILOTBBT *pbt;
DLword *srcbase, *dstbase;

6
src/lowlev2.c
View File

@@ -35,7 +35,7 @@
***********************************************************/
LispPTR N_OP_addbase(register int base, register int offset) {
LispPTR N_OP_addbase(LispPTR base, LispPTR offset) {
base = POINTERMASK & base;
switch ((SEGMASK & offset)) {
case S_POSITIVE: return (base + (offset & 0x0000FFFF));
@@ -65,7 +65,7 @@ LispPTR N_OP_addbase(register int base, register int offset) {
***********************************************************/
LispPTR N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset) {
LispPTR N_OP_getbasebyte(LispPTR base_addr, LispPTR byteoffset) {
switch ((SEGMASK & byteoffset)) {
case S_POSITIVE: byteoffset = byteoffset & 0x0000FFFF; break;
case S_NEGATIVE: byteoffset = byteoffset | 0xFFFF0000; break;
@@ -93,7 +93,7 @@ LispPTR N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset) {
***********************************************************/
LispPTR N_OP_putbasebyte(register LispPTR base_addr, register int byteoffset, register int tos) {
LispPTR N_OP_putbasebyte(register LispPTR base_addr, LispPTR byteoffset, LispPTR tos) {
if (((SEGMASK & tos) != S_POSITIVE) || ((unsigned short)tos >= 256)) ERROR_EXIT(tos);
switch ((SEGMASK & byteoffset)) {
case S_POSITIVE: byteoffset &= 0x0000FFFF; break;