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

* convert non-constant enums in in-expressions to longint if we use the

Browse Source 
generic jumps code

git-svn-id: branches/jvmbackend@18697 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:25:33 +00:00
parent 478a0376e3
commit c8c75d7e1d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/jvm/njvmset.pas
View File

@ -68,9 +68,13 @@ implementation
begin begin
if right.nodetype=setconstn then if right.nodetype=setconstn then
tjvmsetconstnode(right).setconsttype:=sct_notransform; tjvmsetconstnode(right).setconsttype:=sct_notransform;
if isenum and if isenum then
(left.nodetype=ordconstn) then if (left.nodetype=ordconstn) then
tjvmordconstnode(left).enumconstok:=true; tjvmordconstnode(left).enumconstok:=true
else
{ not very clean, since we now have "longint in enumset", but
the code generator doesn't really mind }
inserttypeconv_explicit(left,s32inttype);
end; end;
result:=inherited pass_1; result:=inherited pass_1;
if assigned(result) then if assigned(result) then