/[gcl]/gcl/o/frame.c
ViewVC logotype

Diff of /gcl/o/frame.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:11 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
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;
# Line 54  object tag; Line 53  object tag;
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    
# Line 65  object frame_id; Line 63  object frame_id;
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    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26