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

Diff of /gcl/o/prog.c

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

revision 1.2 by camm, Sat Jul 20 07:10:56 2002 UTC revision 1.3 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 47  Foundation, 675 Mass Ave, Cambridge, MA Line 47  Foundation, 675 Mass Ave, Cambridge, MA
47  void  void
48  Ftagbody(object body)  Ftagbody(object body)
49  {  {
         object endp_temp;  
50    
51          object *old_top = vs_top;          object *old_top = vs_top;
52          object *new_top;          object *new_top;
# Line 105  Ftagbody(object body) Line 104  Ftagbody(object body)
104  }  }
105    
106  void  void
107  Fprog(object arg)  Fprog(VOL object arg)
108  {  {
         object endp_temp;  
109    
110          object *oldlex = lex_env;          object *oldlex = lex_env;
111          struct bind_temp *start;          struct bind_temp *start;
# Line 139  END: Line 137  END:
137  }  }
138    
139  void  void
140  FprogA(object arg)  FprogA(VOL object arg)
141  {  {
         object endp_temp;  
142    
143          object *oldlex = lex_env;          object *oldlex = lex_env;
144          struct bind_temp *start;          struct bind_temp *start;
# Line 175  END: Line 172  END:
172  void  void
173  Fgo(object args)  Fgo(object args)
174  {  {
         object endp_temp;  
175    
176          object lex_tag;          object lex_tag;
177          frame_ptr fr;          frame_ptr fr;
# Line 198  Fgo(object args) Line 194  Fgo(object args)
194  void  void
195  Fprogv(object args)  Fprogv(object args)
196  {  {
         object endp_temp;  
197    
198          object *top;          object *top;
199          object symbols;          object symbols;
# Line 244  Fprogv(object args) Line 239  Fprogv(object args)
239  void  void
240  Fprogn(object body)  Fprogn(object body)
241  {  {
         object endp_temp;  
242    
243          if(endp(body)) {          if(endp(body)) {
244                  vs_base=vs_top;                  vs_base=vs_top;
# Line 262  Fprogn(object body) Line 256  Fprogn(object body)
256  void  void
257  Fprog1(object arg)  Fprog1(object arg)
258  {  {
         object endp_temp;  
259    
260          object *top = vs_top;          object *top = vs_top;
261    
# Line 280  Fprog1(object arg) Line 273  Fprog1(object arg)
273  void  void
274  Fprog2(object arg)  Fprog2(object arg)
275  {  {
         object endp_temp;  
276    
277          object *top = vs_top;          object *top = vs_top;
278    

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

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