Browse Source

Fix usage of refcounted types from another unit.

pdecobj.pas:
  * object_dec: add the hidden $refcount field as public not private as searchsym_in_class() always uses the current unit to handle the visibility

git-svn-id: branches/svenbarth/arc@28961 -
svenbarth 10 years ago
parent
commit
b3be4d9992
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pdecobj.pas

+ 1 - 1
compiler/pdecobj.pas

@@ -1510,7 +1510,7 @@ implementation
               begin
               begin
                 fsym:=cfieldvarsym.create('$refcount',vs_value,s32inttype,[]);
                 fsym:=cfieldvarsym.create('$refcount',vs_value,s32inttype,[]);
                 current_objectdef.symtable.insert(fsym);
                 current_objectdef.symtable.insert(fsym);
-                tobjectsymtable(current_objectdef.symtable).addfield(fsym,vis_private);
+                tobjectsymtable(current_objectdef.symtable).addfield(fsym,vis_public);
               end;
               end;
 
 
             { parse and insert object members }
             { parse and insert object members }