aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/inline.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@adacore.com>2016-06-22 09:47:02 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2016-06-22 11:47:02 +0200
commit3bb91f983bc2d530e31ca3615cde2fb1c563005a (patch)
tree3cd96afc28e73ca4467c5b9af0d037b6fc26cf56 /gcc/ada/inline.adb
parentf9405b6348ba821cdc6a9d4c2e0e03050b16a0f9 (diff)
downloadgcc-3bb91f983bc2d530e31ca3615cde2fb1c563005a.zip
gcc-3bb91f983bc2d530e31ca3615cde2fb1c563005a.tar.gz
gcc-3bb91f983bc2d530e31ca3615cde2fb1c563005a.tar.bz2
lib.ads: Code cleanup.
2016-06-22 Arnaud Charlet <charlet@adacore.com> * lib.ads: Code cleanup. * inline.adb: Type refinement for a counter variable. * lib-xref-spark_specific.adb (Add_SPARK_File): removal of no-op code. Code cleanup. From-SVN: r237682
Diffstat (limited to 'gcc/ada/inline.adb')
-rw-r--r--gcc/ada/inline.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index b6db273..d205636 100644
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -3868,7 +3868,7 @@ package body Inline is
-- the body is an internal error.
procedure Instantiate_Bodies is
- J : Int;
+ J : Nat;
Info : Pending_Body_Info;
begin