1# This file is part of ltrace.
2# Copyright (C) 2013 Petr Machata, Red Hat Inc.
3#
4# This program is free software; you can redistribute it and/or
5# modify it under the terms of the GNU General Public License as
6# published by the Free Software Foundation; either version 2 of the
7# License, or (at your option) any later version.
8#
9# This program is distributed in the hope that it will be useful, but
10# WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12# General Public License for more details.
13#
14# You should have received a copy of the GNU General Public License
15# along with this program; if not, write to the Free Software
16# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
17# 02110-1301 USA
18
19proc do_tests {bin appendage} {
20    ltraceMatch1 [ltraceRun -e *xyz -- $bin] {xyz\(} == 2
21
22    # If the actual entry point that xyz resolves to is not traced, it
23    # should get xyz's name.  But we don't mind if somebody implements
24    # the late lookup and actually names the symbol properly.
25
26    set log [ltraceRun -L -x xyz -- $bin]
27    ltraceMatch1 $log [format {xyz\.IFUNC%s\(\)} $appendage] == 1
28    ltraceMatch1 $log [format {(xyz|abc)%s\(} $appendage] == 2
29
30    # If we request abc's tracing explicitly, than it definitely needs
31    # to be presented as abc, not as xyz.
32
33    set log [ltraceRun -L -x xyz+abc -- $bin]
34    ltraceMatch1 $log [format {xyz\.IFUNC%s\(\)} $appendage] == 1
35    ltraceMatch1 $log [format {abc%s\(} $appendage] == 2
36}
37
38set src [ltraceSource c {
39    int abc (int a) { return a + 1; }
40
41    __asm__(".type xyz, \%gnu_indirect_function");
42
43    int xyz (int a);
44    extern void *xyz_ifunc(void) __asm__("xyz");
45    extern void *xyz_ifunc(void) {
46	return &abc;
47    }
48
49    int
50    main(int argc, char *argv[])
51    {
52      return xyz (xyz (argc));
53    }
54}]
55
56foreach ext {{} .pie} {
57	set bin1 [ltraceCompile $ext $src]
58	do_tests $bin1 ""
59}
60
61set lib [ltraceCompile lib.so $src]
62
63foreach ext {{} .pie} {
64    set bin2 [ltraceCompile $ext $lib [ltraceSource c {/* Empty.  */}]]
65    do_tests $bin2 @lib.so
66}
67
68ltraceDone
69