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

* extended r21290 to also apply to Java interfaces (they can also contain

Browse Source 
constants)

git-svn-id: trunk@21297 -
This commit is contained in:
Jonas Maebe 2012-05-14 21:27:44 +00:00
parent 9ba5267b61
commit 0fd9228deb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecobj.pas
View File

@ -1427,7 +1427,7 @@ implementation
but in const blocks too. to make this possible we need to set but in const blocks too. to make this possible we need to set
their symbols to real defs instead of errordef } their symbols to real defs instead of errordef }
if assigned(objsym) and (objecttype in [odt_class,odt_javaclass]) then if assigned(objsym) and (objecttype in [odt_class,odt_javaclass,odt_interfacejava]) then
begin begin
olddef:=ttypesym(objsym).typedef; olddef:=ttypesym(objsym).typedef;
ttypesym(objsym).typedef:=current_structdef; ttypesym(objsym).typedef:=current_structdef;