Ver código fonte

* call getbasedef before getting the classdef of an enum (only the basedef
has an associated class)

git-svn-id: branches/jvmbackend@20870 -

Jonas Maebe 13 anos atrás
pai
commit
622eb4b782
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/jvm/njvmmem.pas

+ 1 - 1
compiler/jvm/njvmmem.pas

@@ -409,7 +409,7 @@ implementation
           begin
            if (right.location.loc<>LOC_CONSTANT) then
              begin
-               psym:=search_struct_member(tenumdef(right.resultdef).classdef,'FPCORDINAL');
+               psym:=search_struct_member(tenumdef(right.resultdef).getbasedef.classdef,'FPCORDINAL');
                if not assigned(psym) or
                   (psym.typ<>procsym) or
                   (tprocsym(psym).ProcdefList.count<>1) then