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) |
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); |
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); |