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

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

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;