summaryrefslogtreecommitdiff
path: root/flags.adb
diff options
context:
space:
mode:
authorgingold2008-08-30 13:30:19 +0000
committergingold2008-08-30 13:30:19 +0000
commitcd9300765e7e3fd43e450777e98a778146f700c2 (patch)
treef013fea17ae4eee9c1649e63b99b9bfe377fafb4 /flags.adb
parent4b6571671497ecc1f846bfa49678254e14511fc9 (diff)
downloadghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.gz
ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.bz2
ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.zip
Switch to gcc 4.3
Don't use tagged types in grt (not supported by recent versions of GNAT) Fix warnings
Diffstat (limited to 'flags.adb')
-rw-r--r--flags.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/flags.adb b/flags.adb
index 0c0e2b2..d1efda3 100644
--- a/flags.adb
+++ b/flags.adb
@@ -53,7 +53,7 @@ package body Flags is
end Option_Warning;
function Parse_Option (Opt: String) return Boolean is
- Beg: Integer := Opt'First;
+ Beg: constant Integer := Opt'First;
begin
if Opt'Length > 5 and then Opt (Beg .. Beg + 5) = "--std=" then
if Opt'Length = 8 then