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

Diff of /gcl/o/funlink.c

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

revision 1.16.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.16.6.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 214  is supplied and FLAG is nil, then this f Line 214  is supplied and FLAG is nil, then this f
214  }  }
215    RETURN1(Cnil);    RETURN1(Cnil);
216  }  }
217    object
218    fSuse_fast_links_2(object flag,object res) {
219      VFUN_NARGS=2;
220      return FFN(fSuse_fast_links)(flag,res);
221    }
222    
223    
224    object
225    clear_compiler_properties(object sym, object code)
226    { object tem;
227      extern object sSclear_compiler_properties;  
228      VFUN_NARGS=2; FFN(fSuse_fast_links)(Cnil,sym);
229      tem = getf(sym->s.s_plist,sStraced,Cnil);
230      if (sSAinhibit_macro_specialA && sSAinhibit_macro_specialA->s.s_dbind != Cnil)
231        (void)ifuncall2(sSclear_compiler_properties, sym,code);
232      if (tem != Cnil) return tem;
233      return sym;
234      
235    }
236    
237    
238  static int  static int
239  clean_link_array(object *ar, object *ar_end)  clean_link_array(object *ar, object *ar_end)
# Line 936  clear_stack(object *beg, object *limit) Line 956  clear_stack(object *beg, object *limit)
956     ;*beg=0;} return 0;}     ;*beg=0;} return 0;}
957    
958  static object  static object
959  set_mv(int i, object val)  FFN(set_mv)(int i, object val)
960  { if (i >= (sizeof(MVloc)/sizeof(object)))  { if (i >= (sizeof(MVloc)/sizeof(object)))
961       FEerror("Bad mv index",0);       FEerror("Bad mv index",0);
962    return(MVloc[i]=val);    return(MVloc[i]=val);
# Line 944  set_mv(int i, object val) Line 964  set_mv(int i, object val)
964    
965    
966  static object  static object
967  mv_ref(unsigned int i)  FFN(mv_ref)(unsigned int i)
968  { object x;  { object x;
969    if (i >= (sizeof(MVloc)/sizeof(object)))    if (i >= (sizeof(MVloc)/sizeof(object)))
970       FEerror("Bad mv index",0);       FEerror("Bad mv index",0);

Legend:
Removed from v.1.16.6.1  
changed lines
  Added in v.1.16.6.2

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