From 28ce7983077a87ee54b435e2103bf4ec22cb77a7 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 2 Jun 2000 21:18:13 +0000
Subject: [PATCH]  + set vo_is_exported for vars

---
 compiler/pdecl.pas | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index fd7e98a115..c4274b17f7 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -556,7 +556,8 @@ unit pdecl;
                    if idtoken in [_EXPORT,_PUBLIC] then
                     begin
                       consume(_ID);
-                      if extern_aktvarsym then
+                      if extern_aktvarsym or
+                         (symtablestack^.symtabletype in [parasymtable,localsymtable]) then
                        Message(parser_e_not_external_and_export)
                       else
                        export_aktvarsym:=true;
@@ -585,7 +586,14 @@ unit pdecl;
                     aktvarsym:=new(pvarsym,init_C(s,C_name,tt));
                    { set some vars options }
                    if export_aktvarsym then
-                    inc(aktvarsym^.refs);
+                    begin
+                      inc(aktvarsym^.refs);
+{$ifdef INCLUDEOK}
+                      include(aktvarsym^.varoptions,vo_is_exported);
+{$else}
+                      aktvarsym^.varoptions:=aktvarsym^.varoptions+[vo_is_exported];
+{$endif}
+                    end;
                    if extern_aktvarsym then
 {$ifdef INCLUDEOK}
                     include(aktvarsym^.varoptions,vo_is_external);
@@ -1210,7 +1218,10 @@ unit pdecl;
 end.
 {
   $Log$
-  Revision 1.182  2000-06-01 19:14:09  peter
+  Revision 1.183  2000-06-02 21:18:13  pierre
+   + set vo_is_exported for vars
+
+  Revision 1.182  2000/06/01 19:14:09  peter
     * symtable.insert changed to procedure
 
   Revision 1.181  2000/04/17 18:44:22  peter
@@ -1294,4 +1305,4 @@ end.
   Revision 1.159  1999/10/01 10:05:42  peter
     + procedure directive support in const declarations, fixes bug 232
 
-}
+}
\ No newline at end of file