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