28 |
|
|
29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
unwind(fr, tag) |
void |
32 |
frame_ptr fr; |
unwind(frame_ptr fr, object tag) |
|
object tag; |
|
33 |
{ |
{ |
34 |
signals_allowed = 0; |
signals_allowed = 0; |
35 |
nlj_fr = fr; |
nlj_fr = fr; |
53 |
/* never reached */ |
/* never reached */ |
54 |
} |
} |
55 |
|
|
56 |
frame_ptr frs_sch (frame_id) |
frame_ptr frs_sch (object frame_id) |
|
object frame_id; |
|
57 |
{ |
{ |
58 |
frame_ptr top; |
frame_ptr top; |
59 |
|
|
63 |
return(NULL); |
return(NULL); |
64 |
} |
} |
65 |
|
|
66 |
frame_ptr frs_sch_catch(frame_id) |
frame_ptr frs_sch_catch(object frame_id) |
|
object frame_id; |
|
67 |
{ |
{ |
68 |
frame_ptr top; |
frame_ptr top; |
69 |
|
|
70 |
for(top = frs_top; top >= frs_org ;top--) |
for(top = frs_top; top >= frs_org ;top--) |
71 |
if (top->frs_val == frame_id && top->frs_class == FRS_CATCH |
if ((top->frs_val == frame_id && top->frs_class == FRS_CATCH) |
72 |
|| top->frs_class == FRS_CATCHALL |
|| top->frs_class == FRS_CATCHALL |
73 |
) |
) |
74 |
return(top); |
return(top); |
75 |
return(NULL); |
return(NULL); |
76 |
} |
} |
77 |
|
|
78 |
|
|