paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 04:50:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix tf000008 bug

Browse Source
This commit is contained in:
pierre 2000-03-23 22:17:51 +00:00
parent 799ed3311f
commit 578465bef0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psub.pas
View File

@ -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