* replaced "set1<=set2" expression with "(set1*set2)=set1", because the

    SPARC code generator of 2.6.0 compiles the former expression wrongly
    (which was fixed in r21095)

git-svn-id: trunk@21109 -

compiler/pdecobj.pas

@@ -490,7 +490,9 @@ implementation
                   else
                     break;
                 end;
-              if [oo_is_abstract, oo_is_sealed] <= current_structdef.objectoptions then
+              { don't use <=, because there's a bug in the 2.6.0 SPARC code
+                generator regarding handling this expression }
+              if ([oo_is_abstract, oo_is_sealed] * current_structdef.objectoptions) = [oo_is_abstract, oo_is_sealed] then
                 Message(parser_e_abstract_and_sealed_conflict);
               { set default external name in case of no external directive }
               if (current_objectdef.objecttype=odt_javaclass) and