paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 10:29:29 +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; end;
{ method ? } { 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 begin
storepos:=tokenpos; storepos:=tokenpos;
tokenpos:=procstartfilepos; tokenpos:=procstartfilepos;
@ -1996,7 +1998,10 @@ end.
{ {
$Log$ $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 * fix for bug 807
Revision 1.52 2000/03/15 23:10:00 pierre Revision 1.52 2000/03/15 23:10:00 pierre