* don't export the symbols for "strict private" fields (it was only not

    done for regular private fields)

git-svn-id: branches/objc@13782 -

compiler/objcutil.pas

@@ -825,7 +825,7 @@ end;
             vf:=tfieldvarsym(objccls.symtable.SymList[i]);
             { TODO: package visibility (private_extern) -- must not be exported
                either}
-            if (vf.visibility<>vis_private) then
+            if not(vf.visibility in [vis_private,vis_strictprivate]) then
               exportname(prefix+vf.RealName,0);
           end;
     end;