浏览代码

Fix a bug introduced in r28691. The only testsuite failure on Win32 compared to Trunk is test/tstrutils2.pp, but that could be because I branched while that test was broken anyway...

pexports.pas, read_exports:
  * "((options and eo_name)=0)" is supposed to be translated as "not (eo_name in options)" and not "eo_name in options"

git-svn-id: branches/svenbarth/packages@31914 -
svenbarth 9 年之前
父节点
当前提交
e6a181c91d
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/pexports.pas

+ 2 - 2
compiler/pexports.pas

@@ -198,7 +198,7 @@ implementation
                           { same index? And/or should we also export the aliases }
                           { if a name is specified? (JM)                         }
 
-                          if eo_name in options then
+                          if not (eo_name in options) then
                             { Export names are not mangled on Windows and OS/2 }
                             if (target_info.system in (systems_all_windows+[system_i386_emx, system_i386_os2])) then
                               hpname:=orgs
@@ -216,7 +216,7 @@ implementation
                     end;
                   staticvarsym:
                     begin
-                      if eo_name in options then
+                      if not (eo_name in options) then
                         { for "cvar" }
                         if (vo_has_mangledname in tstaticvarsym(srsym).varoptions) then
                           hpname:=srsym.mangledname