Преглед на файлове

Merged revisions 1233 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

r1233 (florian)
* names of cdecl'ed exports on linux fixed

git-svn-id: branches/fixes_2_0@1238 -

florian преди 20 години
родител
ревизия
c2d6f7a636
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      compiler/pdecsub.pas

+ 1 - 1
compiler/pdecsub.pas

@@ -1985,7 +1985,7 @@ const
           end;
           end;
 
 
         { Public/exported alias names }
         { Public/exported alias names }
-        if (po_public in pd.procoptions) and
+        if (([po_public,po_exports]*pd.procoptions)<>[]) and
            not(po_has_public_name in pd.procoptions) then
            not(po_has_public_name in pd.procoptions) then
           begin
           begin
             case pd.proccalloption of
             case pd.proccalloption of