diff options
| author | Martin Liska <mliska@suse.cz> | 2022-11-07 09:55:28 +0100 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2022-11-07 09:55:28 +0100 |
| commit | 33f5dde0cd15df9cf89b29280d4ff5fcf7b30e66 (patch) | |
| tree | d7311de992568a7d952a4e9af8891041d34394c4 /gcc/ada/lib-xref.adb | |
| parent | 1b09b78ee61bd921ae78ebd0f7905b95b9e1c903 (diff) | |
| parent | a8fb90eb3949bfb101bd6f50f24a029e10119591 (diff) | |
| download | gcc-33f5dde0cd15df9cf89b29280d4ff5fcf7b30e66.zip gcc-33f5dde0cd15df9cf89b29280d4ff5fcf7b30e66.tar.gz gcc-33f5dde0cd15df9cf89b29280d4ff5fcf7b30e66.tar.bz2 | |
Merge branch 'master' into devel/sphinx
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 043444c..5a1538e 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1271,10 +1271,10 @@ package body Lib.Xref is XE : Xref_Entry renames Xrefs.Table (F); type M is mod 2**32; - H : constant M := M (XE.Key.Ent) + 2 ** 7 * M (abs XE.Key.Loc); + H : constant M := 3 * M (XE.Key.Ent) + 5 * M (abs XE.Key.Loc); -- It would be more natural to write: -- - -- H : constant M := M'Mod (XE.Key.Ent) + 2**7 * M'Mod (XE.Key.Loc); + -- H : constant M := 3 * M'Mod (XE.Key.Ent) + 5 * M'Mod (XE.Key.Loc); -- -- But we can't use M'Mod, because it prevents bootstrapping with older -- compilers. Loc can be negative, so we do "abs" before converting. |