1/* Find line information for address.
2   Copyright (C) 2004 Red Hat, Inc.
3   Written by Ulrich Drepper <drepper@redhat.com>, 2004.
4
5   This program is Open Source software; you can redistribute it and/or
6   modify it under the terms of the Open Software License version 1.0 as
7   published by the Open Source Initiative.
8
9   You should have received a copy of the Open Software License along
10   with this program; if not, you may obtain a copy of the Open Software
11   License version 1.0 from http://www.opensource.org/licenses/osl.php or
12   by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
13   3001 King Ranch Road, Ukiah, CA 95482.   */
14
15#ifdef HAVE_CONFIG_H
16# include <config.h>
17#endif
18
19#include "libdwP.h"
20
21
22const char *
23dwarf_linesrc (Dwarf_Line *line, Dwarf_Word *mtime, Dwarf_Word *length)
24{
25  if (line == NULL)
26    return NULL;
27
28  if (line->file >= line->files->nfiles)
29    {
30      __libdw_seterrno (DWARF_E_INVALID_DWARF);
31      return NULL;
32    }
33
34  if (mtime != NULL)
35    *mtime = line->files->info[line->file].mtime;
36
37  if (length != NULL)
38    *length = line->files->info[line->file].length;
39
40  return line->files->info[line->file].name;
41}
42