From a813f5a1840071941f933523d400202bed9e8cc5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 29 Apr 2004 21:10:13 +0000
Subject: [PATCH]   + locationstr always reset

---
 compiler/pdecsub.pas | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index 2442ec65df..9c62383ef5 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -405,6 +405,7 @@ implementation
              vs.free;
             consume(_ID);
           until not try_to_consume(_COMMA);
+          locationstr:='';
           { read type declaration, force reading for value and const paras }
           if (token=_COLON) or (varspez=vs_value) then
            begin
@@ -464,11 +465,11 @@ implementation
                         consume(_CSTRING);
                       end
                     else
-		      begin
+		             begin
                         if explicit_paraloc then
                           Message(parser_e_paraloc_all_paras);
-			locationstr:='';
-		      end;
+      			        locationstr:='';
+       		         end;
                   end
                 else
                   locationstr:='';
@@ -2193,7 +2194,10 @@ const
 end.
 {
   $Log$
-  Revision 1.168  2004-04-28 15:19:03  florian
+  Revision 1.169  2004-04-29 21:10:13  florian
+    + locationstr always reset
+
+  Revision 1.168  2004/04/28 15:19:03  florian
     + syscall directive support for MorphOS added
 
   Revision 1.167  2004/04/28 00:20:43  karoly
@@ -2687,4 +2691,4 @@ end.
     * removed static procprefix since the mangledname is now build only
       on demand from tprocdef.mangledname
 
-}
+}
\ No newline at end of file