Files
binutils-gdb/libctf/testsuite/libctf-lookup/big-struct-corruption.c
Nick Alcock 7412b0a35c libctf: fix querying of large structures
After GCC PR 121411 is fixed, large structures (with offsets > 512MiB)
are written correctly... but libctf cannot query them properly unless
they are even bigger (> 4GiB), because it checks to see if the ctt_size
is CTF_LSIZE_SENT to decide whether to use a ctf_lmember_t or a
ctf_member_t to encode the structure members.  But the structure member
offsets are in *bits*, not bytes: the right value to check is
CTF_LSTRUCT_THRESH, which is 1/8th the size.

(Thanks to Martin Pirker <martin.pirker1@chello.at> for the diagnosis
and fix.)

Testing this is a bit fun, because we don't want to emit an error if the
compiler is broken: but we cannot tell whether the compiler is broken
using the existing lookup harness, because its input is passed through
the linker (and thus the broken ld).  So add another sort of link mode,
"objects", which keeps the constituent object files around and passes
both the final linker output and the object files that make it up to the
lookup program.  Our testcase can then check the linker input to see if
the compiler is buggy, and only if it isn't check the linker output and
fail if things aren't right.

libctf/
	PR libctf/33339
	* ctf-types.c (ctf_struct_member): Check CTF_LSTRUCT_THRESH, not
	CTF_LSIZE_SENT.
	* testsuite/lib/ctf-lib.exp (run_lookup_test): New 'objects'
	link option.
	* testsuite/libctf-lookup/big-struct-corruption.*: New test.
	* testsuite/libctf-lookup/big-struct-ctf.c: New test input.
2025-09-25 05:42:27 +01:00

119 lines
2.7 KiB
C

/* Determine whether libctf/33339 is fixed, if and only if GCC PR 121411 is also
fixed. */
#include "config.h"
#include <ctf-api.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
/* Determine whether the passed-in struct's member's offsets ever descend. */
static int
offsets_ascending (ctf_dict_t *fp, ctf_id_t type)
{
ctf_next_t *it = NULL;
ssize_t offset, last_offset = 0;
while ((offset = ctf_member_next (fp, type, &it, NULL, NULL, 0)) >= 0)
{
if (offset < last_offset)
return 0;
last_offset = offset;
}
if (ctf_errno (fp) != ECTF_NEXT_END)
{
fprintf (stderr, "Cannot check member offsets: %s\n",
ctf_errmsg (ctf_errno (fp)));
exit (0);
}
return 1;
}
int
main (int argc, char *argv[])
{
ctf_archive_t *ctf;
ctf_dict_t *fp;
ctf_id_t type;
int err;
if (argc != 3)
{
fprintf (stderr, "Syntax: %s PROGRAM OBJ\n", argv[0]);
exit(1);
}
/* Check for bugginess of compiler. */
if ((ctf = ctf_open (argv[2], NULL, &err)) == NULL)
{
fprintf (stderr, "Cannot open compiler object file %s: %s\n",
argv[2], ctf_errmsg (err));
exit (1);
}
/* Verify that offsets only ascend. */
if ((fp = ctf_arc_lookup_symbol_name (ctf, "huge_used", &type, &err)) == NULL)
{
fprintf (stderr, "UNSUPPORTED: compiler does not provide expected symbol.\n");
exit (0);
}
if (!offsets_ascending (fp, type))
{
fprintf (stderr, "UNSUPPORTED: GCC bug PR121411 detected.\n");
exit (0);
}
ctf_dict_close (fp);
ctf_close (ctf);
/* Check if test is disabled (e.g. on 32-bit). */
if ((ctf = ctf_open (argv[1], NULL, &err)) == NULL)
{
fprintf (stderr, "Cannot open linked binary test file %s: %s\n",
argv[1], ctf_errmsg (err));
exit (1);
}
if ((fp = ctf_arc_lookup_symbol_name (ctf, "test_disabled", &type, &err)) != NULL)
{
fprintf (stderr, "UNSUPPORTED: test not necessary on 32-bit targets.\n");
exit (0);
}
if ((fp = ctf_arc_lookup_symbol_name (ctf, "big_used", &type, &err)) == NULL)
{
fprintf (stderr, "big struct symbol not found.\n");
exit (1);
}
if (!offsets_ascending (fp, type))
{
fprintf (stderr, "large struct offsets incorrect.\n");
exit (1);
}
ctf_dict_close (fp);
if ((fp = ctf_arc_lookup_symbol_name (ctf, "huge_used", &type, &err)) == NULL)
{
fprintf (stderr, "huge struct symbol not found.\n");
exit (1);
}
if (!offsets_ascending (fp, type))
{
fprintf (stderr, "huge struct offsets incorrect.\n");
exit (1);
}
ctf_dict_close (fp);
ctf_close (ctf);
fprintf (stderr, "Large and huge structs working fine.\n");
exit (0);
}