tree 3a032dc23e8252fe4e9e5bdcd2d51a516cc75d09
parent 29faeceaa8a7833c1234f9980266c84c7c6b9d02
author Tom Tromey <tromey@adacore.com> 1725902952 -0600
committer Tom Tromey <tromey@adacore.com> 1741295837 -0700

Fix latent crash in ada_variant_discrim_name

ada_variant_discrim_name does this:

  for (discrim_end = name + strlen (name) - 6; discrim_end != name;

If NAME is too short, this will construct an invalid pointer, perhaps
causing a crash.

This patch arranges to check the length first.