Browse Source

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

git-svn-id: trunk@21297 -

Jonas Maebe 13 years ago
parent
commit
0fd9228deb
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pdecobj.pas

+ 1 - 1
compiler/pdecobj.pas

@@ -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;