gcc/f/where.c

195 ffewhere_line_content (ffewhereLine wl)
197   assert (wl != NULL);
198   return wl->content;
204 ffewhere_line_file (ffewhereLine wl)
208   assert (wl != NULL);
209   ll = ffewhere_ll_lookup_ (wl->line_num);
216 ffewhere_line_filelinenum (ffewhereLine wl)
220   assert (wl != NULL);
221   ll = ffewhere_ll_lookup_ (wl->line_num);
222   return wl->line_num + ll->offset - ll->line_no;
228 ffewhere_line_kill (ffewhereLine wl)
231   if (!ffewhere_line_is_unknown (wl))
234 	     wl->line_num, wl->uses);
236   assert (ffewhere_line_is_unknown (wl) || (wl->uses != 0));
237   if (!ffewhere_line_is_unknown (wl) && (--wl->uses == 0))
239       wl->previous->next = wl->next;
240       wl->next->previous = wl->previous;
241       malloc_kill_ks (ffe_pool_file (), wl,
243 		      + wl->length + 1);
258   ffewhereLine wl = ffewhere_root_line_.last;
264        || (wl->line_num != ln))
272       wl = malloc_new_ks (ffe_pool_file (), "FFEWHERE line",
275       wl->next = (ffewhereLine) &ffewhere_root_line_;
276       wl->previous = ffewhere_root_line_.last;
277       wl->previous->next = wl;
278       wl->next->previous = wl;
279       wl->line_num = ln;
280       wl->uses = 1;
281       wl->length = ffelex_line_length ();
282       strcpy (wl->content, ffelex_line ());
283       return wl;
288   while (wl->line_num > ln)
289     wl = wl->previous;
293   if (wl->line_num == ln)
298 	       wl->uses);
300       wl->uses++;
301       return wl;
311   wl = malloc_new_ks (ffe_pool_file (), "FFEWHERE line",
314   wl->next = (ffewhereLine) &ffewhere_root_line_;
315   wl->previous = ffewhere_root_line_.last;
316   wl->previous->next = wl;
317   wl->next->previous = wl;
318   wl->line_num = ln;
319   wl->uses = 1;
320   wl->length = 0;
321   *(wl->content) = '\0';
322   return wl;
328 ffewhere_line_use (ffewhereLine wl)
332 	   "u\n", wl->line_num, wl->uses);
334   assert (ffewhere_line_is_unknown (wl) || (wl->uses != 0));
335   if (!ffewhere_line_is_unknown (wl))
336     ++wl->uses;
337   return wl;
402 ffewhere_track (ffewhereLine *wl, ffewhereColumn *wc, ffewhereTrack wt,
409   if ((ffewhere_line_is_unknown (*wl))
411       || ((lo = ln - ffewhere_line_number (*wl)) >= FFEWHERE_indexUNKNOWN))
414       ffewhere_line_kill (*wl);
416       *wl = FFEWHERE_lineUNKNOWN;
425 	  ffewhere_line_kill (*wl);
427 	  *wl = FFEWHERE_lineUNKNOWN;
443 	  ffewhere_line_kill (*wl);
445 	  *wl = ffewhere_line_unknown ();
451 	  ffewhere_line_kill (*wl);
453 	  *wl = ffewhere_line_use (ffewhere_line_new (ln));