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

* fixed wrong string for error messages

Browse Source 
git-svn-id: trunk@5199 -
This commit is contained in:
florian 2006-11-03 13:19:46 +00:00
parent 04d44ed3ba
commit 9d7556c222
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -1340,6 +1340,7 @@ implementation
srsymtable : TSymtable; srsymtable : TSymtable;
hdef : tdef; hdef : tdef;
static_name : string; static_name : string;
orgstoredpattern,
storedpattern : string; storedpattern : string;
begin begin
{ allow post fix operators } { allow post fix operators }
@ -1359,6 +1360,7 @@ implementation
{ handle unit specification like System.Writeln } { handle unit specification like System.Writeln }
unit_found:=try_consume_unitsym(srsym,srsymtable); unit_found:=try_consume_unitsym(srsym,srsymtable);
storedpattern:=pattern; storedpattern:=pattern;
orgstoredpattern:=orgpattern;
consume(_ID); consume(_ID);
{ named parameter support } { named parameter support }
@ -1378,7 +1380,7 @@ implementation
check_hints(srsym,srsym.symoptions) check_hints(srsym,srsym.symoptions)
else else
begin begin
identifier_not_found(orgpattern); identifier_not_found(orgstoredpattern);
srsym:=generrorsym; srsym:=generrorsym;
srsymtable:=nil; srsymtable:=nil;
end; end;