Merge in trunk.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/wide-int@203881 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 12 insertions, 0 deletions

diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb
index 79c1e15037a..233e30168a2 100644
--- a/gcc/ada/sem_dim.adb
+++ b/gcc/ada/sem_dim.adb
@@ -2277,6 +2277,12 @@ package body Sem_Dim is
             Result := No_Rational;
          end if;
 
+         --  Provide minimal semantic information on dimension expressions,
+         --  even though they have no run-time existence. This is for use by
+         --  ASIS tools, in particular pretty-printing.
+
+         Set_Entity (N, Standard_Op_Minus);
+         Set_Etype  (N, Standard_Integer);
          return Result;
       end Process_Minus;
 
@@ -2302,6 +2308,12 @@ package body Sem_Dim is
             Result := Left_Rat / Right_Rat;
          end if;
 
+         --  Provide minimal semantic information on dimension expressions,
+         --  even though they have no run-time existence. This is for use by
+         --  ASIS tools, in particular pretty-printing.
+
+         Set_Entity (N, Standard_Op_Divide);
+         Set_Etype  (N, Standard_Integer);
          return Result;
       end Process_Divide;