From 015cca99cd497e059006660991db3cfe447fddd5 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 24 Apr 2000 12:47:27 +0000
Subject: [PATCH]   * fixed check for exporting var or proc

---
 compiler/pexports.pas | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/compiler/pexports.pas b/compiler/pexports.pas
index cd3d6d7bf2..4748c68488 100644
--- a/compiler/pexports.pas
+++ b/compiler/pexports.pas
@@ -64,7 +64,7 @@ unit pexports;
                    if assigned(srsym) then
                      begin
                         hp^.sym:=srsym;
-                        if ((srsym^.typ<>procsym) or
+                        if ((hp^.sym^.typ<>procsym) or
                             ((tf_need_export in target_info.flags) and
                              not(po_exports in pprocdef(pprocsym(srsym)^.definition)^.procoptions)
                             )
@@ -131,12 +131,10 @@ unit pexports;
                           end;
                         if (DefString<>'') and UseDeffileForExport then
                          DefFile.AddExport(DefString);
-                        if srsym^.typ=procsym then
+                        if hp^.sym^.typ=procsym then
                           exportlib^.exportprocedure(hp)
                         else
-                          begin
-                             exportlib^.exportvar(hp);
-                          end;
+                          exportlib^.exportvar(hp);
                      end;
                 end
               else
@@ -155,7 +153,10 @@ end.
 
 {
   $Log$
-  Revision 1.21  2000-02-24 18:41:39  peter
+  Revision 1.22  2000-04-24 12:47:27  peter
+    * fixed check for exporting var or proc
+
+  Revision 1.21  2000/02/24 18:41:39  peter
     * removed warnings/notes
 
   Revision 1.20  2000/02/23 23:06:39  florian