瀏覽代碼

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

git-svn-id: trunk@21297 -

Jonas Maebe 13 年之前
父節點
當前提交
0fd9228deb
共有 1 個文件被更改,包括 1 次插入1 次删除
  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;