Lines Matching refs:acf
128 add_debug_acf(fcode_env_t *env, acf_t acf) in add_debug_acf() argument
133 if (acf == debug_acfs[i]) in add_debug_acf()
136 if (!within_dictionary(env, acf)) in add_debug_acf()
141 debug_acfs[ndebug_acfs++] = acf; in add_debug_acf()
142 *LINK_TO_FLAGS(ACF_TO_LINK(acf)) |= FLAG_DEBUG; in add_debug_acf()
149 acf_t acf; in paren_debug() local
151 acf = (acf_t)POP(DS); in paren_debug()
152 if (!within_dictionary(env, acf)) { in paren_debug()
154 (uint64_t)acf); in paren_debug()
157 if ((acf_t)_ALIGN(acf, token_t) != acf) { in paren_debug()
159 (uint64_t)acf); in paren_debug()
162 if (*acf != (token_t)(&do_colon)) { in paren_debug()
164 (uint64_t)acf); in paren_debug()
167 add_debug_acf(env, acf); in paren_debug()
175 acf_t acf; in debug() local
181 acf = (acf_t)POP(DS); in debug()
182 add_debug_acf(env, acf); in debug()
225 acf_t acf; in search_all_dictionaries() local
231 if ((acf = (*fn)(env, LINK_TO_ACF(dptr), arg)) != NULL) in search_all_dictionaries()
232 return (acf); in search_all_dictionaries()
238 acf_to_str(acf_t acf) in acf_to_str() argument
240 static char msg[(sizeof (acf) * 2) + 3]; in acf_to_str()
242 sprintf(msg, "(%08p)", acf); in acf_to_str()
257 output_acf_name(acf_t acf) in output_acf_name() argument
263 if (acf == NULL) { in output_acf_name()
269 dptr = ACF_TO_LINK(acf); in output_acf_name()
273 log_message(MSG_INFO, "%24s (%08p)", name, acf); in output_acf_name()
324 acf_t acf; in undebug() local
334 acf = (acf_t)POP(DS); in undebug()
335 flagp = LINK_TO_FLAGS(ACF_TO_LINK(acf)); in undebug()
339 log_message(MSG_INFO, "Undebugging acf: %p\n", acf); in undebug()
342 if (debug_acfs[i] == acf) { in undebug()
374 is_debug_word(fcode_env_t *env, acf_t acf) in is_debug_word() argument
384 if (!within_dictionary(env, acf)) in is_debug_word()
388 flagp = LINK_TO_FLAGS(ACF_TO_LINK(acf)); in is_debug_word()
394 if (debug_acfs[i] == acf) in is_debug_word()
413 find_semi_in_colon_def(fcode_env_t *env, acf_t acf) in find_semi_in_colon_def() argument
415 for (; within_dictionary(env, acf); acf++) in find_semi_in_colon_def()
416 if (*acf == (token_t)(&semi_ptr)) in find_semi_in_colon_def()
417 return ((token_t)acf); in find_semi_in_colon_def()
768 show_a_word(fcode_env_t *env, acf_t acf, void *arg) in show_a_word() argument
772 if (acf == NULL) { in show_a_word()
779 log_message(MSG_DEBUG, "%15s ", get_name_or_acf(ACF_TO_LINK(acf))); in show_a_word()
796 dump_a_word(fcode_env_t *env, acf_t acf, void *arg) in dump_a_word() argument
798 output_acf_name(acf); in dump_a_word()
841 acf_to_fcode_name(fcode_env_t *env, acf_t acf) in acf_to_fcode_name() argument
846 if (env->table[i].apf == acf) in acf_to_fcode_name()
863 acf_to_name(fcode_env_t *env, acf_t acf) in acf_to_name() argument
870 if (!within_dictionary(env, acf)) { in acf_to_name()
871 if ((bip = lookup_builtin((token_t)acf)) != NULL) in acf_to_name()
875 return (get_name_or_acf(ACF_TO_LINK(acf))); in acf_to_name()
886 within_word(fcode_env_t *env, acf_t acf, acf_t wacf) in within_word() argument
888 if (acf == wacf || acf + 1 == wacf) in within_word()
890 if (*acf == (token_t)(&do_colon)) { in within_word()
892 if (acf == wacf) in within_word()
894 } while (*acf++ != (token_t)(&semi_ptr)); in within_word()
905 acf_backup_search(fcode_env_t *env, acf_t acf) in acf_backup_search() argument
910 if ((acf_t)_ALIGN(acf, token_t) == acf && within_dictionary(env, acf)) { in acf_backup_search()
911 for (nacf = acf; nacf >= (acf_t)env->base; nacf--) in acf_backup_search()
919 return (acf_to_str(acf)); in acf_backup_search()
1058 do_sifting(fcode_env_t *env, acf_t acf, void *pat) in do_sifting() argument
1062 if ((name = get_name(ACF_TO_LINK(acf))) != NULL && strstr(name, pat)) in do_sifting()
1063 output_acf_name(acf); in do_sifting()
1159 acf_t acf = save_acf; in paren_see() local
1168 if ((bip = lookup_builtin(*acf)) == NULL || in paren_see()
1170 if (bip = lookup_builtin((token_t)acf)) in paren_see()
1174 acf_to_name(env, acf)); in paren_see()
1177 log_message(MSG_INFO, ": %s", acf_to_name(env, acf)); in paren_see()
1179 acf = save_acf; in paren_see()
1180 for (acf++; ; acf++) { in paren_see()
1184 thentab[nthentab-1] == (token_t)acf; in paren_see()
1196 if ((token_t)acf == brtab[i]) { in paren_see()
1203 if (case_lit == (token_t)acf) { in paren_see()
1208 if (endof_loc == (token_t)acf) { in paren_see()
1213 if (endcase_loc == (token_t)acf) { in paren_see()
1219 if ((bip = lookup_builtin((token_t)*acf)) == 0) { in paren_see()
1220 last_lit = (token_t)acf; in paren_see()
1223 acf_to_name(env, (acf_t)*acf)); in paren_see()
1246 acf++; in paren_see()
1247 p = (uchar_t *)acf; in paren_see()
1255 acf = (acf_t)p; in paren_see()
1256 acf--; in paren_see()
1260 acf++; in paren_see()
1262 log_message(MSG_INFO, "%x ", *acf); in paren_see()
1273 acf++; in paren_see()
1277 acf++; in paren_see()
1279 if (*acf < (token_t)acf) { in paren_see()
1297 thentab[nthentab - 1] = *acf; in paren_see()
1300 if (*acf < (token_t)acf) { in paren_see()
1301 brtab[nbrtab++] = *acf; in paren_see()
1302 brtab[nbrtab++] = (token_t)acf; in paren_see()
1306 endcase_loc = *acf; in paren_see()
1312 acf++; in paren_see()
1314 if (*acf < (token_t)acf) { in paren_see()
1327 *acf >= brstk[nbrstk - 1]) { in paren_see()
1338 thentab[nthentab++] = *acf; in paren_see()
1340 } else if (*acf < (token_t)acf) { in paren_see()
1341 brtab[nbrtab++] = *acf; in paren_see()
1342 brtab[nbrtab++] = (token_t)acf; in paren_see()
1347 acf++; in paren_see()
1350 endof_loc = *acf; in paren_see()
1365 acf++; in paren_see()
1393 do_dot_calls(fcode_env_t *env, acf_t acf, void *cacf) in do_dot_calls() argument
1395 token_t *dptr = ACF_TO_LINK(acf); in do_dot_calls()
1396 token_t *wptr = acf; in do_dot_calls()
1401 output_acf_name(acf); in do_dot_calls()
1404 output_acf_name(acf); in do_dot_calls()
1406 output_acf_name(acf); in do_dot_calls()
1413 acf_t acf = (acf_t)POP(DS); in dot_calls() local
1415 search_all_dictionaries(env, do_dot_calls, acf); in dot_calls()