paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 11:29:16 +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;
hdef : tdef;
static_name : string;
orgstoredpattern,
storedpattern : string;
begin
{ allow post fix operators }
@ -1359,6 +1360,7 @@ implementation
{ handle unit specification like System.Writeln }
unit_found:=try_consume_unitsym(srsym,srsymtable);
storedpattern:=pattern;
orgstoredpattern:=orgpattern;
consume(_ID);
{ named parameter support }
@ -1378,7 +1380,7 @@ implementation
check_hints(srsym,srsym.symoptions)
else
begin
identifier_not_found(orgpattern);
identifier_not_found(orgstoredpattern);
srsym:=generrorsym;
srsymtable:=nil;
end;