github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-03 07:10:39 +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

8
src/gvar2.c
View File

@@ -36,8 +36,8 @@
/* */
/************************************************************************/
LispPTR N_OP_gvar_(register LispPTR tos, unsigned int atom_index) {
register LispPTR *pslot; /* pointer to argued GVAR slot */
LispPTR N_OP_gvar_(LispPTR tos, unsigned int atom_index) {
LispPTR *pslot; /* pointer to argued GVAR slot */
#ifdef BIGATOMS
if (0 != (atom_index & SEGMASK))
@@ -69,8 +69,8 @@ LispPTR N_OP_gvar_(register LispPTR tos, unsigned int atom_index) {
/* */
/************************************************************************/
LispPTR N_OP_rplptr(register LispPTR tos_m_1, register LispPTR tos, unsigned int alpha) {
register DLword *pslot; /* pointer to argued slot (68 address) */
LispPTR N_OP_rplptr(LispPTR tos_m_1, LispPTR tos, unsigned int alpha) {
DLword *pslot; /* pointer to argued slot (68 address) */
pslot = Addr68k_from_LADDR(tos_m_1 + alpha);
FRPLPTR(((struct xpointer *)pslot)->addr, tos);