Lines Matching defs:acf
124 add_debug_acf(fcode_env_t *env, acf_t acf)
129 if (acf == debug_acfs[i])
132 if (!within_dictionary(env, acf))
137 debug_acfs[ndebug_acfs++] = acf;
138 *LINK_TO_FLAGS(ACF_TO_LINK(acf)) |= FLAG_DEBUG;
145 acf_t acf;
147 acf = (acf_t)POP(DS);
148 if (!within_dictionary(env, acf)) {
149 log_message(MSG_INFO, "acf: %llx not in dictionary\n",
150 (uint64_t)acf);
153 if ((acf_t)_ALIGN(acf, token_t) != acf) {
154 log_message(MSG_INFO, "acf: %llx not aligned\n",
155 (uint64_t)acf);
158 if (*acf != (token_t)(&do_colon)) {
159 log_message(MSG_INFO, "acf: %llx not a colon-def\n",
160 (uint64_t)acf);
163 add_debug_acf(env, acf);
171 acf_t acf;
177 acf = (acf_t)POP(DS);
178 add_debug_acf(env, acf);
221 acf_t acf;
227 if ((acf = (*fn)(env, LINK_TO_ACF(dptr), arg)) != NULL)
228 return (acf);
234 acf_to_str(acf_t acf)
236 static char msg[(sizeof (acf) * 2) + 3];
238 sprintf(msg, "(%08p)", acf);
253 output_acf_name(acf_t acf)
259 if (acf == NULL) {
265 dptr = ACF_TO_LINK(acf);
269 log_message(MSG_INFO, "%24s (%08p)", name, acf);
320 acf_t acf;
330 acf = (acf_t)POP(DS);
331 flagp = LINK_TO_FLAGS(ACF_TO_LINK(acf));
335 log_message(MSG_INFO, "Undebugging acf: %p\n", acf);
338 if (debug_acfs[i] == acf) {
370 is_debug_word(fcode_env_t *env, acf_t acf)
380 if (!within_dictionary(env, acf))
384 flagp = LINK_TO_FLAGS(ACF_TO_LINK(acf));
388 /* look in table of debug acf's */
390 if (debug_acfs[i] == acf)
409 find_semi_in_colon_def(fcode_env_t *env, acf_t acf)
411 for (; within_dictionary(env, acf); acf++)
412 if (*acf == (token_t)(&semi_ptr))
413 return ((token_t)acf);
602 log_message(MSG_DEBUG, "Token: %4x %32s acf = %8p,"
625 "Untested: %4x %32s acf = %8p, %8p\n", i,
764 show_a_word(fcode_env_t *env, acf_t acf, void *arg)
768 if (acf == NULL) {
775 log_message(MSG_DEBUG, "%15s ", get_name_or_acf(ACF_TO_LINK(acf)));
792 dump_a_word(fcode_env_t *env, acf_t acf, void *arg)
794 output_acf_name(acf);
837 acf_to_fcode_name(fcode_env_t *env, acf_t acf)
842 if (env->table[i].apf == acf)
859 acf_to_name(fcode_env_t *env, acf_t acf)
866 if (!within_dictionary(env, acf)) {
867 if ((bip = lookup_builtin((token_t)acf)) != NULL)
871 return (get_name_or_acf(ACF_TO_LINK(acf)));
882 within_word(fcode_env_t *env, acf_t acf, acf_t wacf)
884 if (acf == wacf || acf + 1 == wacf)
886 if (*acf == (token_t)(&do_colon)) {
888 if (acf == wacf)
890 } while (*acf++ != (token_t)(&semi_ptr));
897 * beginning for "colon" acf. If we find a "semi" acf first, we're not in
901 acf_backup_search(fcode_env_t *env, acf_t acf)
906 if ((acf_t)_ALIGN(acf, token_t) == acf && within_dictionary(env, acf)) {
907 for (nacf = acf; nacf >= (acf_t)env->base; nacf--)
915 return (acf_to_str(acf));
1054 do_sifting(fcode_env_t *env, acf_t acf, void *pat)
1058 if ((name = get_name(ACF_TO_LINK(acf))) != NULL && strstr(name, pat))
1059 output_acf_name(acf);
1155 acf_t acf = save_acf;
1164 if ((bip = lookup_builtin(*acf)) == NULL ||
1166 if (bip = lookup_builtin((token_t)acf))
1170 acf_to_name(env, acf));
1173 log_message(MSG_INFO, ": %s", acf_to_name(env, acf));
1175 acf = save_acf;
1176 for (acf++; ; acf++) {
1180 thentab[nthentab-1] == (token_t)acf;
1192 if ((token_t)acf == brtab[i]) {
1199 if (case_lit == (token_t)acf) {
1204 if (endof_loc == (token_t)acf) {
1209 if (endcase_loc == (token_t)acf) {
1215 if ((bip = lookup_builtin((token_t)*acf)) == 0) {
1216 last_lit = (token_t)acf;
1219 acf_to_name(env, (acf_t)*acf));
1242 acf++;
1243 p = (uchar_t *)acf;
1251 acf = (acf_t)p;
1252 acf--;
1256 acf++;
1258 log_message(MSG_INFO, "%x ", *acf);
1269 acf++;
1273 acf++;
1275 if (*acf < (token_t)acf) {
1293 thentab[nthentab - 1] = *acf;
1296 if (*acf < (token_t)acf) {
1297 brtab[nbrtab++] = *acf;
1298 brtab[nbrtab++] = (token_t)acf;
1302 endcase_loc = *acf;
1308 acf++;
1310 if (*acf < (token_t)acf) {
1323 *acf >= brstk[nbrstk - 1]) {
1334 thentab[nthentab++] = *acf;
1336 } else if (*acf < (token_t)acf) {
1337 brtab[nbrtab++] = *acf;
1338 brtab[nbrtab++] = (token_t)acf;
1343 acf++;
1346 endof_loc = *acf;
1361 acf++;
1389 do_dot_calls(fcode_env_t *env, acf_t acf, void *cacf)
1391 token_t *dptr = ACF_TO_LINK(acf);
1392 token_t *wptr = acf;
1397 output_acf_name(acf);
1400 output_acf_name(acf);
1402 output_acf_name(acf);
1409 acf_t acf = (acf_t)POP(DS);
1411 search_all_dictionaries(env, do_dot_calls, acf);