From c2d6f7a636a8344aa74fa27c7603ae51d1eac4cf Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 30 Sep 2005 09:40:36 +0000
Subject: [PATCH] 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 -
---
 compiler/pdecsub.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index a468e1b895..e4df651e1b 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -1985,7 +1985,7 @@ const
           end;
 
         { 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
           begin
             case pd.proccalloption of