Explorar o código

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

git-svn-id: trunk@21297 -

Jonas Maebe %!s(int64=13) %!d(string=hai) anos
pai
achega
0fd9228deb
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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
               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
                 olddef:=ttypesym(objsym).typedef;
                 ttypesym(objsym).typedef:=current_structdef;