jcf-write.c (get_access_flags): Return correct access flags for private and protected...

2002-08-08  Bryce McKinlay  <bryce@waitaki.otago.ac.nz>

       * jcf-write.c (get_access_flags): Return correct access flags for
       private and protected inner classes.

From-SVN: r56146

diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index d413096b2ecfe215b3da9929dc573b2687b9b21b..28038889b8cc15c8d5285a184aea60ac933ed5f9 100644 (file)
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-08  Bryce McKinlay  <bryce@waitaki.otago.ac.nz>
+
+       * jcf-write.c (get_access_flags): Return correct access flags for 
+       private and protected inner classes.
+
 2002-08-08  Nathan Sidwell  <nathan@codesourcery.com>
 
        * java/Make-lang.in (java.mostlyclean): Remove coverage files.

diff --git a/gcc/java/jcf-write.c b/gcc/java/jcf-write.c
index dcf2397a9ec4adebcac644bc22773455382c1820..076912505e58aaf71581fb14736c0fafb43be1f4 100644 (file)
--- a/gcc/java/jcf-write.c
+++ b/gcc/java/jcf-write.c
@@ -683,6 +683,10 @@ get_access_flags (decl)
        flags |= ACC_INTERFACE;
       if (CLASS_STATIC (decl))
        flags |= ACC_STATIC;
+      if (CLASS_PRIVATE (decl))
+       flags |= ACC_PRIVATE;
+      if (CLASS_PROTECTED (decl))
+       flags |= ACC_PROTECTED;
       if (ANONYMOUS_CLASS_P (TREE_TYPE (decl))
          || LOCAL_CLASS_P (TREE_TYPE (decl)))
        flags |= ACC_PRIVATE;