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