From 76cd84f2a1400ca96b0f433af1e1542de34a3b8a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 14 Nov 2006 20:38:54 +0000
Subject: [PATCH]   * fixed cs_externally_visible (macpas {$z+})

git-svn-id: trunk@5381 -
---
 compiler/pdecvar.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas
index 00ff3e2bc0..8e1ee6fd07 100644
--- a/compiler/pdecvar.pas
+++ b/compiler/pdecvar.pas
@@ -838,8 +838,9 @@ implementation
                   is_external_var:=true;
                 end
               else if (cs_externally_visible in current_settings.localswitches) then
-                begin {The effect of this is the same as if cvar has been given as directives.}
+                begin {The effect of this is the same as if cvar has been given as directives and it's made public.}
                   is_cdecl:=true;
+                  is_public_var:=true;
                 end;
             end;