paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 21:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong check in r10432 causing an internalerror for ppc/ppc64

Browse Source 
git-svn-id: trunk@10433 -
This commit is contained in:
Jonas Maebe 2008-03-02 20:00:52 +00:00
parent 8f239d04b6
commit 7524d9f8ca
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ppcgen/ngppcadd.pas
View File

@ -384,7 +384,8 @@ implementation
{ when a setdef is passed, it has to be a smallset }
if not is_smallset(left.resultdef) or
not is_smallset(right.resultdef) then
(not is_smallset(right.resultdef) and
(right.nodetype<>setelementn)) then
internalerror(200203301);
opdone := false;