paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 01:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* always get the basedef for an enum before using its classdef (since only

Browse Source 
the basedef has an associated classdef)

git-svn-id: branches/jvmbackend@20142 -
This commit is contained in:
Jonas Maebe 2012-01-21 19:35:58 +00:00
parent 7f15423d76
commit 0dfdae3132
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/jvmdef.pas
View File

@ -230,7 +230,7 @@ implementation
end;
enumdef:
begin
result:=jvmaddencodedtype(tenumdef(def).classdef,false,encodedstr,forcesignature,founderror);
result:=jvmaddencodedtype(tenumdef(def).getbasedef.classdef,false,encodedstr,forcesignature,founderror);
end;
orddef :
begin
@ -680,7 +680,7 @@ implementation
end;
enumdef:
begin
result:=tenumdef(def).classdef;
result:=tenumdef(def).getbasedef.classdef;
end;
pointerdef :
begin