summaryrefslogtreecommitdiff
path: root/gcc/ada/par-ch4.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-05-06 12:53:27 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-05-06 12:53:27 +0000
commit3ba6a78b08fd9584e78444dafd32d5808419292a (patch)
tree492cd082cc6e4f7b5a7e18b91c76fcbe7eacbd77 /gcc/ada/par-ch4.adb
parenta6252fe00bef7f8f91c6850559177e82a5facd64 (diff)
downloadgcc-3ba6a78b08fd9584e78444dafd32d5808419292a.tar.gz
2009-05-06 Robert Dewar <dewar@adacore.com>
* errout.adb: Minor reformatting * scng.adb, sem_prag.adb, par-ch4.adb, sem_res.adb, par-ch6.adb, sem_ch6.adb, par-prag.adb, sem_ch8.adb, sem_warn.adb, par-util.adb, styleg.adb: Add stylized comments to error messages that are included in the codefix circuitry of IDE's such as GPS. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147173 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch4.adb')
-rw-r--r--gcc/ada/par-ch4.adb5
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb
index 80a566beb5c..af91f1668d7 100644
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -607,7 +607,8 @@ package body Ch4 is
elsif Token = Tok_Range then
if Expr_Form /= EF_Simple_Name then
- Error_Msg_SC ("subtype mark must precede RANGE");
+ Error_Msg_SC -- CODEFIX???
+ ("subtype mark must precede RANGE");
raise Error_Resync;
end if;