Ensure that $indirect symbols are not exported.

pkgutil.pas:
  * export_unit: correctly check the symbol name for the $indirect suffix

git-svn-id: branches/svenbarth/packages@28967 -

compiler/pkgutil.pas

@@ -193,7 +193,7 @@ implementation
                 procexport(name);
               AT_DATA:
                 begin
-                  if pos(name,indirect_suffix)=length(name)-length(indirect_suffix)+1 then
+                  if pos(indirect_suffix,name)=length(name)-length(indirect_suffix)+1 then
                     continue;
                   varexport(name);
                 end;