From 46316585762156bbe9832e8fd3ee2e840951e50e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 30 Jan 2005 11:26:40 +0000
Subject: [PATCH]   * add info that a procedure is local in error messages

---
 compiler/ncnv.pas     | 9 ++++++++-
 compiler/symconst.pas | 8 ++++++--
 compiler/symdef.pas   | 9 ++++++++-
 3 files changed, 22 insertions(+), 4 deletions(-)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 009e460997..41e16d6ea8 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -1195,6 +1195,10 @@ implementation
         if (pd.owner.symtabletype=objectsymtable) then
           include(tprocvardef(resulttype.def).procoptions,po_methodpointer);
 
+        { was it a local procedure? }
+        if (pd.owner.symtabletype=localsymtable) then
+          include(tprocvardef(resulttype.def).procoptions,po_local);
+
         { only need the address of the method? this is needed
           for @tobject.create. In this case there will be a loadn without
           a methodpointer. }
@@ -2579,7 +2583,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.174  2005-01-09 15:04:36  peter
+  Revision 1.175  2005-01-30 11:26:40  peter
+    * add info that a procedure is local in error messages
+
+  Revision 1.174  2005/01/09 15:04:36  peter
     * fix crash with -CR
 
   Revision 1.173  2005/01/07 21:14:21  florian
diff --git a/compiler/symconst.pas b/compiler/symconst.pas
index 015e4b29e8..f8f4921776 100644
--- a/compiler/symconst.pas
+++ b/compiler/symconst.pas
@@ -259,7 +259,8 @@ type
     po_syscall_sysv,
     po_syscall_basesysv,
     po_syscall_sysvbase,
-    po_syscall_r12base
+    po_syscall_r12base,
+    po_local
   );
   tprocoptions=set of tprocoption;
 
@@ -440,7 +441,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.100  2005-01-09 20:24:43  olle
+  Revision 1.101  2005-01-30 11:26:40  peter
+    * add info that a procedure is local in error messages
+
+  Revision 1.100  2005/01/09 20:24:43  olle
     * rework of macro subsystem
     + exportable macros for mode macpas
 
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index bcf8101d26..cd159bf8e3 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -3983,6 +3983,8 @@ implementation
         showhidden:=true;
 {$endif EXTDEBUG}
         s:='';
+        if owner.symtabletype=localsymtable then
+         s:=s+'local ';
         if assigned(_class) then
          begin
            if po_classmethod in procoptions then
@@ -4846,6 +4848,8 @@ implementation
              s := s+'address of'
            else
              s := s+'procedure variable type of';
+         if po_local in procoptions then
+           s := s+' local';
          if assigned(rettype.def) and
             (rettype.def<>voidtype.def) then
            s:=s+' function'+typename_paras(showhidden)+':'+rettype.def.gettypename
@@ -6367,7 +6371,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.291  2005-01-24 22:08:32  peter
+  Revision 1.292  2005-01-30 11:26:40  peter
+    * add info that a procedure is local in error messages
+
+  Revision 1.291  2005/01/24 22:08:32  peter
     * interface wrapper generation moved to cgobj
     * generate interface wrappers after the module is parsed