From 578465bef02d5945e9a9c250b1ed3a3735e33702 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 23 Mar 2000 22:17:51 +0000
Subject: [PATCH]  * fix tf000008 bug

---
 compiler/psub.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index 1dcc51ba63..5b9730bee9 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -120,7 +120,9 @@ begin
     end;
 
 { method ? }
-  if not(parse_only) and try_to_consume(_POINT) then
+  if not(parse_only) and
+     (lexlevel=normal_function_level) and
+     try_to_consume(_POINT) then
    begin
      storepos:=tokenpos;
      tokenpos:=procstartfilepos;
@@ -1996,7 +1998,10 @@ end.
 
 {
   $Log$
-  Revision 1.53  2000-03-16 16:41:13  pierre
+  Revision 1.54  2000-03-23 22:17:51  pierre
+   * fix tf000008 bug
+
+  Revision 1.53  2000/03/16 16:41:13  pierre
    * fix for bug 807
 
   Revision 1.52  2000/03/15 23:10:00  pierre