diff options
| author | Bob Duff <duff@adacore.com> | 2021-07-30 16:49:37 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-23 13:06:14 +0000 |
| commit | c06539752d77126689ee49fc3e4a8add2a4980e3 (patch) | |
| tree | c9d18619d19cb4e2690c86ae7af8168c2caf7521 | |
| parent | fb3f21a3df8062a7a209b385aae377de2d8c093e (diff) | |
| download | gcc-c06539752d77126689ee49fc3e4a8add2a4980e3.zip gcc-c06539752d77126689ee49fc3e4a8add2a4980e3.tar.gz gcc-c06539752d77126689ee49fc3e4a8add2a4980e3.tar.bz2 | |
[Ada] Follow-on efficiency improvements
gcc/ada/
* gen_il-gen.adb: Set the number of concrete nodes that have the
Homonym field to a higher number than any other field. This
isn't true, but it forces Homonym's offset to be chosen first,
so it will be at offset zero and hence slot zero.
| -rw-r--r-- | gcc/ada/gen_il-gen.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/gen_il-gen.adb b/gcc/ada/gen_il-gen.adb index 95fb526..2fbec00 100644 --- a/gcc/ada/gen_il-gen.adb +++ b/gcc/ada/gen_il-gen.adb @@ -1036,6 +1036,13 @@ package body Gen_IL.Gen is Append (All_Fields, F); end loop; + -- Force Homonym to be at offset zero, which speeds up the + -- compiler. The Sort below will place Homonym first in + -- All_Fields. + + Num_Concrete_Have_Field (Homonym) := + Num_Concrete_Have_Field (Nkind) + 1; + -- Sort All_Fields based on how many concrete types have the field. -- This is for efficiency; we want to choose the offsets of the most -- common fields first, so they get low numbers. |