github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-31 13:52:29 +00:00
Code Issues Projects Releases Wiki Activity

Remove extra semicolons, convert #define x() {...} to do {...} while (0) style (#444)

Browse Source 
* Remove extra semicolons, convert #define x() {...} to do {...} while (0) style

* Fix missing brace in INIT-specific definition of init_kbd_startup
This commit is contained in:
Nick Briggs
2022-10-05 09:07:17 -07:00
committed by GitHub
parent f5b17b0e63
commit cdffa541ef
57 changed files with 413 additions and 400 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/unwind.c
View File

@@ -80,8 +80,8 @@ LispPTR *N_OP_unwind(LispPTR *cstkptr, LispPTR tos, int n, int keep) {
lastpvar = (LispPTR *)(2 + PVar + (unsigned short)num);
num = ~(num >> 16) + 1;
for (; --num > 0;) { *--lastpvar = 0xffffffff; /* Mark as UNBOUND */ }
};
};
}
}
/* endptr = cstkptr */
@@ -127,11 +127,11 @@ LispPTR find_the_blip(LispPTR blip, LispPTR throwp, FX *unwinder)
}
goto cons_result;
} else if (var_name_in_frame == CATCH_RETURN_FROM_ATOM) {
if (throwp) { target = GETCLINK(target_addr); };
if (throwp) { target = GETCLINK(target_addr); }
goto cons_result;
}
} /* if blip */
}; /* for */
} /* for */
no_result:
return (NIL_PTR);
@@ -151,8 +151,8 @@ LispPTR variable_name_in_frame(FX *fx_addr, LispPTR code)
name_table_base = name_ptr + ((FNHEAD *)name_table_base)->ntsize;
while (value = GETWORD(name_ptr++)) do {
if (code == GETWORD(name_bind_ptr++)) { return (value) };
}; /* while */
if (code == GETWORD(name_bind_ptr++)) { return (value) }
} /* while */
return (NIL_PTR);
}; /* variable_name_in_frame */
@@ -184,11 +184,11 @@ LispPTR pvar_value_in_frame(FX *frame_addr, LispPTR atom_index)
LispPTR slot_value = *((LispPTR *)(FRAMESIZE + (DLword *)frame_addr) +
(bind_info - (FVPVAR << 8))) if (slot_value > 0) {
return (slot_value & POINTERMASK);
};
};
};
}
}
}
name_bind_ptr++;
}; /* while */
} /* while */
return (NIL_PTR);
}; /* pvar_value_in_frame */