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

Fix spelling error in variable name. No functional change.

Browse Source 
modified:   src/unwind.c
This commit is contained in:
Nick Briggs 2020-10-03 14:47:54 -07:00
parent d8fda3b846
commit 14d4d3a5a2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/unwind.c
View File

@ -112,14 +112,14 @@ LispPTR find_the_blip(LispPTR blip, LispPTR throwp, FX *unwinder)
register LispPTR pc = NIL_PTR;
LispPTR CATCH_RETURN_PC_ATOM = parse_atomstring("SI::*CATCH-RETURN-PC*");
LispPTR CHATCH_RETURN_TO_ATOM = parse_atomstring("SI::*CATCH-RETURN-TO*");
LispPTR CATCH_RETURN_TO_ATOM = parse_atomstring("SI::*CATCH-RETURN-TO*");
LispPTR CATCH_RETURN_FROM_ATOM = parse_atomstring("SI::*CATCH-RETURN-FROM*");
for (target = (LispPTR)unwinder; FX_INVALIDP(target); GETCLINK(target_addr)) {
target_addr = (FX *)Addr68k_from_StkOffset(target);
if (blip == *target_addr) {
register LispPTR var_name_in_frame = variable_name_in_frame(target_addr, (FVPVAR << 8) + 1);
if (var_name_in_frame == CHATCH_RETURN_TO_ATOM) {
if (var_name_in_frame == CATCH_RETURN_TO_ATOM) {
if (throwp) {
pc = pvar_value_in_frame(target_addr, CATCH_RETURN_PC_ATOM);
if