paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

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

git-svn-id: trunk@21109 -
This commit is contained in:
Jonas Maebe 2012-04-28 22:38:14 +00:00
parent 4ac396bd74
commit 6850653296
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecobj.pas
View File

@ -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