diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-01-20 08:18:59 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-01-20 08:18:59 +0100 |
| commit | 027006fa23595efe8eb8dd5ed3a8ffef8a9fb7fc (patch) | |
| tree | 7c70dc1a9f6d64375382428fede549de03272455 /src/files_map.adb | |
| parent | f90c39edb7d91de43d0cc14851cea35b4be2b3f2 (diff) | |
| download | ghdl-027006fa23595efe8eb8dd5ed3a8ffef8a9fb7fc.tar.gz ghdl-027006fa23595efe8eb8dd5ed3a8ffef8a9fb7fc.tar.bz2 ghdl-027006fa23595efe8eb8dd5ed3a8ffef8a9fb7fc.zip | |
files_map.adb: fix thinko in Find_Language
Diffstat (limited to 'src/files_map.adb')
| -rw-r--r-- | src/files_map.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/files_map.adb b/src/files_map.adb index a86809b01..1d9a5c7b8 100644 --- a/src/files_map.adb +++ b/src/files_map.adb @@ -544,7 +544,7 @@ package body Files_Map is P := Filename'Last; E := Ext'Last; loop - if P >= Filename'First + if P <= Filename'First or else E < Ext'First then return Language_Unknown; |