69 cache_match (struct ia64_script *script, unw_word_t ip, unw_word_t pr)  in cache_match()  argument
71   if (ip == script->ip && ((pr ^ script->pr_val) & script->pr_mask) == 0)  in cache_match()
154   struct ia64_script *script = cache->buckets + c->hint;  in script_lookup()  local
161   if (cache_match (script, ip, pr))  in script_lookup()
162     return script;  in script_lookup()
168   script = cache->buckets + index;  in script_lookup()
171       if (cache_match (script, ip, pr))  in script_lookup()
175 	    (script - cache->buckets);  in script_lookup()
176 	  return script;  in script_lookup()
178       if (script->coll_chain >= IA64_UNW_HASH_SIZE)  in script_lookup()
180       script = cache->buckets + script->coll_chain;  in script_lookup()
185 script_init (struct ia64_script *script, unw_word_t ip)  in script_init()  argument
187   script->ip = ip;  in script_init()
188   script->hint = 0;  in script_init()
189   script->count = 0;  in script_init()
190   script->abi_marker = 0;  in script_init()
196   struct ia64_script *script, *prev, *tmp;  in script_new()  local
201   script = cache->buckets + head;  in script_new()
202   cache->lru_head = script->lru_chain;  in script_new()
204   /* re-insert script at the tail of the LRU chain: */  in script_new()
208   /* remove the old script from the hash table (if it's there): */  in script_new()
209   if (script->ip)  in script_new()
211       index = hash (script->ip);  in script_new()
216 	  if (tmp == script)  in script_new()
227 	    /* old script wasn't in the hash-table */  in script_new()
233   /* enter new script in the hash table */  in script_new()
235   script->coll_chain = cache->hash[index];  in script_new()
236   cache->hash[index] = script - cache->buckets;  in script_new()
238   script_init (script, ip);  in script_new()
239   return script;  in script_new()
243 script_finalize (struct ia64_script *script, struct cursor *c,  in script_finalize()  argument
246   script->pr_mask = sr->pr_mask;  in script_finalize()
247   script->pr_val = sr->pr_val;  in script_finalize()
248   script->pi = c->pi;  in script_finalize()
252 script_emit (struct ia64_script *script, struct ia64_script_insn insn)  in script_emit()  argument
254   if (script->count >= IA64_MAX_SCRIPT_LEN)  in script_emit()
256       Dprintf ("%s: script exceeds maximum size of %u instructions!\n",  in script_emit()
260   script->insn[script->count++] = insn;  in script_emit()
265 	     struct ia64_script *script)  in compile_reg()  argument
375   script_emit (script, insn);  in compile_reg()
383       script_emit (script, insn);  in compile_reg()
434 /* Build an unwind script that unwinds from state OLD_STATE to the
438 build_script (struct cursor *c, struct ia64_script *script)  in build_script()  argument
461       script_emit (script, insn);  in build_script()
464     compile_reg (&sr, IA64_REG_PSP, sr.curr.reg + IA64_REG_PSP, script);  in build_script()
486       compile_reg (&sr, IA64_REG_PRI_UNAT_MEM, pri_unat, script);  in build_script()
493     compile_reg (&sr, regorder[i], sr.curr.reg + regorder[i], script);  in build_script()
495   script->abi_marker = sr.abi_marker;  in build_script()
496   script_finalize (script, c, &sr);  in build_script()
517 run_script (struct ia64_script *script, struct cursor *c)  in run_script()  argument
526   c->pi = script->pi;  in run_script()
527   ip = script->insn;  in run_script()
528   limit = script->insn + script->count;  in run_script()
530   c->abi_marker = script->abi_marker;  in run_script()
622   struct ia64_script script;  in uncached_find_save_locs()  local
628   script_init (&script, c->ip);  in uncached_find_save_locs()
629   if ((ret = build_script (c, &script)) < 0)  in uncached_find_save_locs()
632 	Dprintf ("%s: failed to build unwind script for ip %lx\n",  in uncached_find_save_locs()
636   return run_script (&script, c);  in uncached_find_save_locs()
643   struct ia64_script *script = NULL;  in ia64_find_save_locs()  local
653       Debug (1, "contention on script-cache; doing uncached lookup\n");  in ia64_find_save_locs()
657     script = script_lookup (cache, c);  in ia64_find_save_locs()
658     Debug (8, "ip %lx %s in script cache\n", (long) c->ip,  in ia64_find_save_locs()
659 	   script ? "hit" : "missed");  in ia64_find_save_locs()
661     if (!script || (script->count == 0 && !script->pi.unwind_info))  in ia64_find_save_locs()
667     if (!script)  in ia64_find_save_locs()
669 	script = script_new (cache, c->ip);  in ia64_find_save_locs()
670 	if (!script)  in ia64_find_save_locs()
672 	    Dprintf ("%s: failed to create unwind script\n", __FUNCTION__);  in ia64_find_save_locs()
677     cache->buckets[c->prev_script].hint = script - cache->buckets;  in ia64_find_save_locs()
679     if (script->count == 0)  in ia64_find_save_locs()
680       ret = build_script (c, script);  in ia64_find_save_locs()
682     assert (script->count > 0);  in ia64_find_save_locs()
684     c->hint = script->hint;  in ia64_find_save_locs()
685     c->prev_script = script - cache->buckets;  in ia64_find_save_locs()
690 	  Dprintf ("%s: failed to locate/build unwind script for ip %lx\n",  in ia64_find_save_locs()
695     ret = run_script (script, c);  in ia64_find_save_locs()
720   struct ia64_script *script;  in ia64_cache_proc_info()  local
729   script = script_lookup (cache, c);  in ia64_cache_proc_info()
730   if (script)  in ia64_cache_proc_info()
733   script = script_new (cache, c->ip);  in ia64_cache_proc_info()
734   if (!script)  in ia64_cache_proc_info()
736       Dprintf ("%s: failed to create unwind script\n", __FUNCTION__);  in ia64_cache_proc_info()
741   script->pi = c->pi;  in ia64_cache_proc_info()
752   struct ia64_script *script;  in ia64_get_cached_proc_info()  local
759     script = script_lookup (cache, c);  in ia64_get_cached_proc_info()
760     if (script)  in ia64_get_cached_proc_info()
761       c->pi = script->pi;  in ia64_get_cached_proc_info()
764   return script ? 0 : -UNW_ENOINFO;  in ia64_get_cached_proc_info()