github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-29 04:51:28 +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

30
src/binds.c
View File

@@ -29,11 +29,11 @@ N_OP_bind(stack_pointer, tos, n1, n2)
***************************************************/
LispPTR *N_OP_bind(register LispPTR *stack_pointer, register LispPTR tos, int byte1, int byte2) {
register int n1; /* # slots to bind to NIL (0, 0) */
register int n2; /* # slots to bind to value in stack */
register LispPTR *ppvar; /* pointer to argued slot in Pvar area */
register unsigned i; /* temporary for control */
LispPTR *N_OP_bind(LispPTR *stack_pointer, LispPTR tos, int byte1, int byte2) {
int n1; /* # slots to bind to NIL (0, 0) */
int n2; /* # slots to bind to value in stack */
LispPTR *ppvar; /* pointer to argued slot in Pvar area */
unsigned i; /* temporary for control */
#ifdef TRACE
printPC();
@@ -69,11 +69,11 @@ LispPTR N_OP_unbind(stackpointer)
***************************************************/
LispPTR *N_OP_unbind(register LispPTR *stack_pointer) {
register DLword num; /* number of unbind sot */
register LispPTR *ppvar; /* pointer to last PVAR slot. */
register DLword i; /* temporary for control */
register LispPTR value;
LispPTR *N_OP_unbind(LispPTR *stack_pointer) {
DLword num; /* number of unbind sot */
LispPTR *ppvar; /* pointer to last PVAR slot. */
DLword i; /* temporary for control */
LispPTR value;
#ifdef TRACE
printPC();
@@ -106,11 +106,11 @@ N_OP_dunbind
***************************************************/
LispPTR *N_OP_dunbind(register LispPTR *stack_pointer, register LispPTR tos) {
register DLword num; /* number of unbind sot */
register LispPTR *ppvar; /* pointer to last PVAR slot. */
register DLword i; /* temporary for control */
register LispPTR value;
LispPTR *N_OP_dunbind(LispPTR *stack_pointer, LispPTR tos) {
DLword num; /* number of unbind sot */
LispPTR *ppvar; /* pointer to last PVAR slot. */
DLword i; /* temporary for control */
LispPTR value;
#ifdef TRACE
printPC();