github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-05 02:35:23 +00:00
Code Issues Projects Releases Wiki Activity

Wholesale removal of deprecated register attribute from all source files

Browse Source
This commit is contained in:
Nick Briggs
2022-08-15 15:04:07 -07:00
parent 5c0349cc69
commit 873d4927ce
107 changed files with 777 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/lowlev1.c
View File

@@ -40,10 +40,10 @@ static const int mask_array[16] = {
return: ??
***********************************************************/
LispPTR N_OP_putbitsnfd(register LispPTR base, register LispPTR data, int word_offset,
register int beta) {
register DLword *pword;
register int shift_size, field_size, fmask;
LispPTR N_OP_putbitsnfd(LispPTR base, LispPTR data, int word_offset,
int beta) {
DLword *pword;
int shift_size, field_size, fmask;
#ifdef CHECK
if (base > POINTERMASK) { error("getbits: base out of range"); }
@@ -77,10 +77,10 @@ LispPTR N_OP_putbitsnfd(register LispPTR base, register LispPTR data, int word_o
lo - mask & shifted data
***********************************************************/
LispPTR N_OP_getbitsnfd(int base_addr, register int word_offset, int beta) {
register DLword *pword;
register short first;
register short size;
LispPTR N_OP_getbitsnfd(int base_addr, int word_offset, int beta) {
DLword *pword;
short first;
short size;
pword = Addr68k_from_LADDR(base_addr + word_offset);
size = 0xF & beta;
@@ -111,7 +111,7 @@ LispPTR N_OP_getbitsnfd(int base_addr, register int word_offset, int beta) {
(Called only by Native code)
***********************************************************/
LispPTR N_OP_putbasen(register LispPTR base, register LispPTR tos, int n) {
LispPTR N_OP_putbasen(LispPTR base, LispPTR tos, int n) {
base = POINTERMASK & base;
if ((SEGMASK & tos) != S_POSITIVE) {
ERROR_EXIT(tos);
@@ -137,7 +137,7 @@ LispPTR N_OP_putbasen(register LispPTR base, register LispPTR tos, int n) {
(Called only by Native code)
***********************************************************/
LispPTR N_OP_putbaseptrn(register LispPTR base, register LispPTR tos, int n) {
LispPTR N_OP_putbaseptrn(LispPTR base, LispPTR tos, int n) {
base = POINTERMASK & base;
*((LispPTR *)Addr68k_from_LADDR(base + n)) = tos & POINTERMASK;
return (base);